RosettaCodeData/Task/Ackermann-function/Racket/ackermann-function.rkt

#lang racket
(define (ackermann m n)
  (cond [(zero? m) (add1 n)]
        [(zero? n) (ackermann (sub1 m) 1)]
        [else (ackermann (sub1 m) (ackermann m (sub1 n)))]))
new files 2013-04-10 12:38:42 -07:00			`#lang racket`
			`(define (ackermann m n)`
			`(cond [(zero? m) (add1 n)]`
update 2013-06-05 21:47:54 +00:00			`[(zero? n) (ackermann (sub1 m) 1)]`
			`[else (ackermann (sub1 m) (ackermann m (sub1 n)))]))`