SPOJ 24 "Small factorial"
問題:https://www.spoj.pl/problems/FCTRL2/
set a(0) 1 for {set i 1} {$i<=100} {incr i} { set a($i) [expr [set a([expr $i - 1])] * $i] } for {gets stdin t} {$t>0} {incr t -1} { puts [set a([gets stdin])] }
問題:https://www.spoj.pl/problems/FCTRL2/
set a(0) 1 for {set i 1} {$i<=100} {incr i} { set a($i) [expr [set a([expr $i - 1])] * $i] } for {gets stdin t} {$t>0} {incr t -1} { puts [set a([gets stdin])] }