ack.scm « other-lang « benchmark - ruby.git - rhe's working repository

index : ruby.git

rhe's working repository

about summary refs log tree commit diff stats

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

blob: e9e1886933730481f6dbe7bae38c6dc066facfbb (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)