ruby/benchmark/other-lang/ack.scm

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

8 строки
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)