15 lines
221 B
Scheme
15 lines
221 B
Scheme
|
;;; -*-Scheme-*-
|
||
|
|
;;;
|
||
|
|
;;; The Ackermann function
|
||
|
|
|
||
|
|
(define (acker x y)
|
||
|
|
(cond
|
||
|
|
((zero? x)
|
||
|
|
(+ y 1))
|
||
|
|
((zero? y)
|
||
|
|
(acker (- x 1) 1))
|
||
|
|
(else
|
||
|
|
(acker (- x 1) (acker x (- y 1))))))
|
||
|
|
|
||
|
|
(print (acker 3 2))
|