Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Knuth's up-arrow notation

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.

Name: Anonymous 2007-08-07 22:19 ID:eHiNpn4q

Even fagget liek me knows how to do n00b things like this with recursion in fucking every language.  Just like crappy C's version which is shorter
int knuth(int a, int b)
{
  if (b == 2) return a * a; else knuth(a, b - 1);
}

Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List