User:Icarot: Difference between revisions
Jump to navigation
Jump to search
(Created page with "Three things I'm fond of: Русский, opera, and functional languages. Ye all, all ye, hail the Y-Combinator, blessed be Her name.") |
mNo edit summary |
||
Line 1: | Line 1: | ||
(defn ack [m n] | |||
(cond (zero? m) (inc n) | |||
(zero? n) (ack (dec m) 1) | |||
:else (ackermann (dec m) (ack m (dec n))))) | |||
yummmmm. | |||
Revision as of 19:54, 28 February 2013
(defn ack [m n]
(cond (zero? m) (inc n) (zero? n) (ack (dec m) 1) :else (ackermann (dec m) (ack m (dec n)))))
yummmmm.