Дан список из 10 целых чисел. Составить программу, вычисляющую сумму всех положительных нечетных чисел.

(defun num>5 (lst)
   (cond ((null lst) 0)
            ((> (car lst) 5) (+ 1 (num>5 (cdr lst))))
            (t (num>5 (cdr lst)))))
 
 
==> num>5
 
(num>5 '(1 2 3 11 22 33))
 
==> 3
 
(num>5 '(1 2 3 1 2 3))
 
==> 0

(defun summ (lst)
   (cond ((null lst) 0)
         ((and (oddp (car lst)) (> (car lst) 0)) (+ (car lst) (summ (cdr lst))))
         (t (summ (cdr lst)))))
 
==> summ
 
(summ '(1 2 3 4 5 6 7 8 9 10))
 
==> 25
 
(summ '(1 -2 3 4 5 6 7 8 9 10))
 
==> 25
 
(summ '(1 2 -3 4 5 6 7 8 9 10))
 
==> 22

(defun sum-odd-plus (w)
  (cond ((null w) 0)
        ((and (oddp (car w)) (plusp (car w)))
         (+ (car w) (sum-odd-plus (cdr w))))
        ((sum-odd-plus (cdr w)))))
 
(defun sum-odd-plus-check10 (w)
  (when (= (length w) 10) (sum-odd-plus w)))
 
> (sum-odd-plus-check10 '(1 2 3 4 5 6 7 8 9 10))
25
> (sum-odd-plus-check10 '(1 2 3 4 5 6 7 8 9))
NIL

(defun num>5 (lst &optional l)
   (cond ((null l) 
           (cond ((= (length lst) 10) (num>5 lst t))
                 (t (raiseerror "Длина списка отлична от 10!"))))
         ((null lst) 0)
         ((> (car lst) 5) (+ 1 (num>5 (cdr lst) t)))
         (t (num>5 (cdr lst) t))))
 
 
==> num>5
 
(num>5 '(1 2 3 4 5 6 7 8 9 10))
 
==> 5
 
(num>5 '(1 2 3 4 5 6 7 8 9))
 
Длина списка отлична от 10!
==> ERRSTATE
 
(num>5 '(1 2 3 4 5 6 7 8 9 10 11))
 
Длина списка отлична от 10!
==> ERRSTATE