fun.l

来自「A very small LISP implementation with se」· L 代码 · 共 10 行

# 25jun07abu
# (c) Software Lab. Alexander Burger

(de fact (N)
   (if (=0 N)
      1
      (* N (fact (dec N))) ) )

# vi:et:ts=3:sw=3