mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
fd81221a8e
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11708 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
7 lines
132 B
Scheme
7 lines
132 B
Scheme
(define (ack m n)
|
|
(cond ((zero? m) (+ n 1))
|
|
((zero? n) (ack (- m 1) 1))
|
|
(else (ack (- m 1) (ack m (- n 1))))))
|
|
|
|
(ack 3 9)
|
|
|