>>45
使用言語：　Arc

(def fact (n) (if (is n 0) 1 (apply * (range 1 n))))

arc> (for i 0 10 (prn (fact i)))
1
1
2
6
24
120
720
5040
40320
362880
3628800
nil