Advertisement
Guest User

Untitled

a guest
Nov 28th, 2014
171
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. (defun factorial (x)
  2. (if (zerop x)
  3. 1
  4. (* x (factorial (- x 1)))))
  5.  
  6. defun factorial (x)
  7. if (zerop x)
  8. 1
  9. x * (factorial (x-1))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement