Name: Anonymous 2007-08-07 11:37 ID:ywrNHFyl
(defun knuth (x n)
(if (= n 2)
(return-from knuth (expt x x))
(return-from knuth (expt x (knuth x (- n 1))))
)
)
Yes, an implementation in 6 lines of Lisp. What is Knuth's up-arrow notation? Wikipedia that shit. Don't try this with anything greater than (knuth 3 3), or you will overflow. (knut 3 3) == 3^3^3. (knuth 3 4) == 3^3^3^3.
(if (= n 2)
(return-from knuth (expt x x))
(return-from knuth (expt x (knuth x (- n 1))))
)
)
Yes, an implementation in 6 lines of Lisp. What is Knuth's up-arrow notation? Wikipedia that shit. Don't try this with anything greater than (knuth 3 3), or you will overflow. (knut 3 3) == 3^3^3. (knuth 3 4) == 3^3^3^3.