home *** CD-ROM | disk | FTP | other *** search
/ ftp.uni-stuttgart.de/pub/systems/acorn/ / Acorn.tar / Acorn / acornet / dev / xlisp+ / xlisp+.spk / lsp / ackerman next >
Lisp/Scheme  |  1992-10-02  |  116b  |  5 lines
  1. (defun ack (m n)
  2.     (cond ((zerop m) (1+ n))
  3.           ((zerop n) (ack (1- m) 1))
  4.           ((ack (1- m) (ack m (1- n))))))
  5.