mirror of https://github.com/rusefi/bldc.git
17 lines
496 B
Common Lisp
17 lines
496 B
Common Lisp
|
|
||
|
(define insert (lambda (l ls)
|
||
|
(match ls
|
||
|
( nil (cons l nil))
|
||
|
( ((? a) . (? xs))
|
||
|
(if (< l a)
|
||
|
(cons l (cons a xs))
|
||
|
(cons a (insert l xs)))))))
|
||
|
|
||
|
(define sort (lambda (ls)
|
||
|
(match ls
|
||
|
(nil nil)
|
||
|
( ((? a) . (? xs))
|
||
|
(insert a (sort xs))))))
|
||
|
|
||
|
(sort '(4 2 0 9 1 56 2 4 7))
|