mirror of https://github.com/rusefi/bldc.git
29 lines
521 B
Common Lisp
29 lines
521 B
Common Lisp
(define is-number
|
|
(lambda (x)
|
|
(if (eq (type-of x) type-i)
|
|
't
|
|
(if (eq (type-of x) type-u)
|
|
't
|
|
(if (eq (type-of x) type-float)
|
|
't
|
|
(if (eq (type-of x) type-i32)
|
|
't
|
|
(if (eq (type-of x) type-u32)
|
|
't
|
|
'nil)))))))
|
|
|
|
|
|
(define sumtree
|
|
(lambda (x)
|
|
(if (is-number x)
|
|
x
|
|
(if (eq x 'nil)
|
|
0
|
|
(let ((a (sumtree (car x)))
|
|
(b (sumtree (cdr x))))
|
|
(+ a b)
|
|
)))))
|
|
|
|
|
|
(check (= (sumtree (list (list 1u32 1i32 1u 1 1 1 1 1 1 1) (list 1 2.0) (list 3 4.0))) 20.0))
|