home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / glisp / tak.gl < prev    next >
Encoding:
Text File  |  1993-10-23  |  175 b   |  9 lines
  1. "Takkeuchi"
  2. (defun tak (x y z)
  3.   (if (not (< y x)) z
  4.     (tak (tak (- x 1) y z)
  5.          (tak (- y 1) z x)
  6.          (tak (- z 1) x y))))
  7. "(tak 18 12 6)"
  8. (tak 18 12 6)
  9.