User:Icarot: Difference between revisions
Jump to navigation
Jump to search
mNo edit summary |
mNo edit summary |
||
Line 1: | Line 1: | ||
<lang clojure> | |||
(defn ack [m n] | (defn ack [m n] | ||
(cond (zero? m) (inc n) | (cond (zero? m) (inc n) | ||
(zero? n) (ack (dec m) 1) | (zero? n) (ack (dec m) 1) | ||
:else (ackermann (dec m) (ack m (dec n))))) | :else (ackermann (dec m) (ack m (dec n))))) | ||
</lang> | |||
yummmmm. | yummmmm. |
Revision as of 19:55, 28 February 2013
<lang clojure> (defn ack [m n]
(cond (zero? m) (inc n) (zero? n) (ack (dec m) 1) :else (ackermann (dec m) (ack m (dec n)))))
</lang> yummmmm.