mirror of https://github.com/rusefi/bldc.git
10 lines
252 B
Common Lisp
10 lines
252 B
Common Lisp
|
|
||
|
(defun f (x)
|
||
|
(match x
|
||
|
( ((? x) . ((? y) . _)) (< x 10) (list y 'smaller))
|
||
|
( ((? x) . ((? y) . _)) (> x 10) (list y 'larger))
|
||
|
( _ 'whatever)))
|
||
|
|
||
|
(and (eq (f '(0 1 2 3)) '(1 smaller))
|
||
|
(eq (f '(11 9 8 7)) '(9 larger)))
|