ack.scm « other-lang « benchmark « ruby « jni - pw.cloudef.rpg.git - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/jni/ruby/benchmark/other-lang/ack.scm

blob: a80b73ba55a63f99843ff3057fcd35cc858ec8c9 (plain)

(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)