mirror of https://github.com/rusefi/bldc.git
7 lines
138 B
Common Lisp
7 lines
138 B
Common Lisp
|
(define q2 (lambda (x y)
|
||
|
(if (or (< x 1) (< y 1)) 1
|
||
|
(+ (q2 (- x (q2 (- x 1) y)) y)
|
||
|
(q2 x (- y (q2 x (- y 1))))))))
|
||
|
|
||
|
(q2 6 7)
|