Advertisement
triclops200

Tetration

Jun 27th, 2012
248
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.14 KB | None | 0 0
  1. (define *** (lambda (n m)
  2.             (cond
  3.               ((= m 0) n)
  4.               ((= 1 1) (expt n (*** n (- m 1))))
  5.               )))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement