mirror of https://github.com/rusefi/bldc.git
8 lines
141 B
Common Lisp
8 lines
141 B
Common Lisp
|
(define f (lambda (ls)
|
||
|
(match ls
|
||
|
( nil 0 )
|
||
|
( (?cons c) (+ (car c) (f (cdr c))))
|
||
|
( ? 'error-not-a-list))))
|
||
|
|
||
|
(= (f '()) 0)
|