home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
xl21hos2.zip
/
TAK.LSP
< prev
next >
Wrap
Lisp/Scheme
|
1995-12-27
|
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))