From: orzz (123orzz at gmail.com) Date: Sat Sep 22 23:46:21 EDT 2007 |
|
(define (A x y) (cond ((= y 0) 0) ((= x 0) (* 2 y)) ((= y 1) 2) (else (A (- x 1) (A x (- y 1)))))) http://en.wikipedia.org/wiki/Ackermann_function A(m,n)= n+1 if m = 0 A(m-1,1) if m > 0 and n = 0 A(m-1,A(m,n-1)) if m > 0 and n > 0 (define (A-WIKI m n) (cond ((= m 0) (+ n 1)) ((= n 0) (A-WIKI (- m 1) 1)) (else (A-WIKI (- m 1) (A-WIKI m (- n 1)))))) all that confuse me.anyone give me a hand.thx!
Posted on the users mailing list. |
|