Hatena::Groupcadr

lnzntのLisp日記 このページをアンテナに追加 RSSフィード

2010年11月26日(金)

再帰(その1) 階乗

| 21:10 | 再帰(その1) 階乗 - lnzntのLisp日記 を含むブックマーク はてなブックマーク - 再帰(その1) 階乗 - lnzntのLisp日記 再帰(その1) 階乗 - lnzntのLisp日記 のブックマークコメント

(defun factorial (n)
  (cond
    ((zerop n) 1)
    (t (* n (factorial (1- n))))))