|
Size: 149
Comment:
|
Size: 149
Comment:
|
| No differences found! | |
(defun fac (number)
(cond
((= number 1)
number)
(t
(* number (fac (- number 1))))|
Size: 149
Comment:
|
Size: 149
Comment:
|
| No differences found! | |
(defun fac (number)
(cond
((= number 1)
number)
(t
(* number (fac (- number 1))))Factorial.lisp (last edited 2011-08-03 11:00:38 by localhost)