Найдите сумму положительных нечётных чисел меньше 100. на xlisp

(defun f (n)
           (loop for a from n downto 0
                 if (oddp a)
                 summing a))

(defun f (l m)
           (every #'> l m))

(defun f (n)
           (if (zerop n) (+)
               (if (oddp n)
                 (+ n (f (1- n)))
                 (f (1- n)))))

(defun f (l m)
           (if (and (atom l) (atom m)) t
               (if (< (car l) (car m)) ()
                   (f (cdr l) (cdr m)))))

(defun f (l m)
           (if (and (atom l) (atom m)) t
               (if (consp (car l))
                 (and (f (car l) (car m))
                      (f (cdr l) (cdr m)))
                 (if (< (car l) (car m)) ()
                     (f (cdr l) (cdr m))))))

(defun f (l m)
           (mapcan 
            #'(lambda 
               (x y)
               (if (consp x) (f x y)
                   (if (> x y) t)))
            l m))

CL-USER> (f 100)
2500

CL-USER> (f '(3 ((15))) '(2 ((9))))
T

(defun f (n)
           (if (zerop n) (+)
               (if (oddp n)
                 (+ n (f (1- n)))
                 (f (1- n)))))

(defun f (l m)
           (if (and (atom l) (atom m)) t
               (if (< (car l) (car m)) ()
                   (f (cdr l) (cdr m)))))

(defun f (l m)
           (if (and (atom l) (atom m)) t
               (if (< (car l) (car m)) ()
                   (f (cdr l) (cdr m)))))

(defun f (l m)
           (if (and (atom l) (atom m)) t
               (if (consp (car l))
                 (and (f (car l) (car m))
                      (f (cdr l) (cdr m)))
                 (if (< (car l) (car m)) ()
                     (f (cdr l) (cdr m))))))

(defun task (lst)
  (let ((s 0))
    (dolist (i lst s) (when (and (> i 0) (oddp i) (< i 100)) (setq s (+ s i))))))
 
 
==> task
 
(task '(1 2 3 4 5 6 7))
 
==> 16

(defun dominate (lst1 lst2)
 (apply 'and
   (mapcar #'(lambda (z) (apply '> z))
     (apply 
       'append 
          (mapcar #'(lambda (x) 
                    (mapcar #'(lambda (y) (list x y)) lst2)) lst1)))))
 
 
==> dominate
 
(dominate '(11 22 33) '(1 2 3))
 
==> T
 
(dominate '(11 22 33) '(1 2 333))
 
==> NIL

(defun dominate (lst1 lst2)
 (not (zerop 
  (apply '*
   (mapcar #'(lambda (z) (if (apply '> z) 1 0))
     (apply 
       'append 
          (mapcar #'(lambda (x) 
                    (mapcar #'(lambda (y) (list x y)) lst2)) lst1)))))))
 
 
==> dominate
 
(dominate '(11 22 33) '(1 2 333))
 
==> NIL
 
(dominate '(11 22 33) '(1 2 3))
 
==> T

(defun sum-odd-plus (n)
  (cond ((zerop n) 0)
        ((oddp n) (+ n (sum-odd-plus (1- n))))
        ((sum-odd-plus (1- n)))))
 
> (sum-odd-plus 99)
2500