ruby--ruby/benchmark/other-lang/ack.scm

(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)
set svn:eol-style git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11708 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 2007-02-12 18:01:19 -05:00			`(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)`