Описать функцию, которая находила бы сумму всех числовых элементов в списке

(defun task (lst)
 (cond ((null lst) 0)
       ((numberp (car lst)) (+ (car lst) (task (cdr lst))))
       ((listp (car lst)) (+ (task (car lst)) (task (cdr lst))))
       (t (task (cdr lst))))) 
 
==> task
 
(task '(1 2 (((3))) (4 5 (((6 7)))) 8))
 
==> 36
 
(task '(1 2 (((3))) (4 a ((b)) 5 (((6 7)))) 8))
 
==> 36

(defun f (xs)
  (reduce (lambda (a x)
            (+ a (typecase x
                   (number
                    x)
                   (list
                    (f x))
                   (t
                    0))))
          xs
          :initial-value 0))

(defun sum-numbers (w)
  (reduce
   #'+ w
   :key
   #'(lambda (a)
       (if (numberp a)
           a
           (if (listp a)
               (sum-numbers a)
               0)))))
 
> (sum-numbers '(1 2 (((3))) (4 a ((b)) 5 (((6 7)))) 8))
36

(defun sum-numbers (w)
  (loop for a in w
        if (numberp a) sum a
        else if (listp a) sum (sum-numbers a)))
 
> (sum-numbers '(1 2 (((3))) (4 a ((b)) 5 (((6 7)))) 8))
36

;; racket-lang.org
(define (foo lst)
  (apply + (filter number? (flatten lst))))
 
;; racket way
(define (bar lst)
  (for/fold ([ sum 0])
            ([i (in-list (flatten lst))])
    (match i
      [(? number? x) (+ sum x)]
      [_ sum])))
 
 
(let ((lst '(1 2 (((3))) (4 a ((b)) 5 (((6 7)))) 8)))
  (map (lambda (f) (f lst)) `(,foo ,bar)))
;'(36 36)