home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
xlisp
/
xl21freq.zip
/
TAK.LSP
< prev
next >
Wrap
Lisp/Scheme
|
1993-12-17
|
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))