mirror of https://github.com/rusefi/bldc.git
10 lines
153 B
Common Lisp
10 lines
153 B
Common Lisp
|
(define tak (lambda (x y z)
|
||
|
|
(if (not (< y x))
|
||
|
|
z
|
||
|
|
(tak
|
||
|
|
(tak (- x 1) y z)
|
||
|
|
(tak (- y 1) z x)
|
||
|
|
(tak (- z 1) x y)))))
|
||
|
|
|
||
|
|
(tak 18 12 6)
|