User:Icarot
Jump to navigation
Jump to search
<source lang="lisp"> (defn ack [m n]
(cond (zero? m) (inc n)
(zero? n) (ack (dec m) 1)
:else (ackermann (dec m) (ack m (dec n)))))</source>
yummmmm.
<source lang="lisp"> (defn ack [m n]
(cond (zero? m) (inc n)
(zero? n) (ack (dec m) 1)
:else (ackermann (dec m) (ack m (dec n)))))</source>
yummmmm.