mirror of https://github.com/rusefi/bldc.git
15 lines
165 B
Common Lisp
15 lines
165 B
Common Lisp
|
|
||
|
(define r-list '(3 7 12 19 25 8 14 30 5 22 17 11))
|
||
|
|
||
|
|
||
|
(defun f (x)
|
||
|
(if (= x 0)
|
||
|
t
|
||
|
{
|
||
|
(sort > r-list)
|
||
|
(gc)
|
||
|
(f (- x 1))
|
||
|
}))
|
||
|
|
||
|
(check (f 100))
|