home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sa104os2.zip / SATHR104.ZIP / SATHER / CONTRIB / LISP / ACKER.L next >
Lisp/Scheme  |  1994-10-25  |  224b  |  18 lines
  1. { Ackerman function - gri 12 Aug 1994 }
  2.  
  3. (setq A
  4.    (lambda (x y)
  5.       (cond
  6.          ((= x 0) (+ y 1))
  7.          ((= y 0) (A (- x 1) 1))
  8.          (t (A (- x 1) (A x (- y 1))))
  9.       )
  10.    )
  11. )
  12.  
  13.  
  14. { Examples:
  15.  
  16. (A 3 2)
  17. (A 3 3)
  18. }