home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
lisp
/
xlsp20.arc
/
XLISPLSP.ARC
/
TAK.LSP
< prev
Wrap
Lisp/Scheme
|
1988-02-12
|
177b
|
10 lines
(defun tak (x y z)
(if (not (< y x))
z
(tak (tak (1- x) y z)
(tak (1- y) z x)
(tak (1- z) x y))))
(defun dotak ()
(tak 18 12 6))