Codeforces Unknown Language Round #1 A "Factorial"

Codeforces Unknown Language Round 1 A Tcl

問題：http://codeforces.com/contest/64/problem/A

参加形式：本番

１から１０の数字が与えられるのでその階乗を求める．

SPOJ 24 FRCT2とほぼ同じなので流用．

コード

set a(0) 1
for {set i 1} {$i<=10} {incr i} {
        set a($i) [expr [set a([expr $i - 1])] * $i]
}

puts [set a([gets stdin])]