Se pojeb :S

;gnu clisp 2.49

(defun prvek (L X)

        (cond ((null L) ())
              ((atom (car L)) (or (= (car L) X) (prvek (cdr L) X)))
              (t (or (prvek (cdr L) X) (prvek (car L) X)))
        )
)

;(print (prvek '((1 2) 3 4) 3))


(defun soucet (L)

    (cond ((null L) 0)
          ((atom (car L)) (+ (car L) (soucet (cdr L))))
          (t (+ (soucet (car L)) (soucet (cdr L))))

    )

)

;(print (soucet '(3 4 3 (1 (5 6) 2 2))))

(defun pocet (L)

    (cond ((null L) 0)
          ((atom (car L)) (+ 1 (pocet (cdr L))))
          (t (+ (pocet (car L)) (pocet (cdr L))))

    )

)

;(print (pocet '(3 4 3 (1 (5 6) 2 2))))



; ukol ukol
; ukol spojeni 2 seznamu
(defun spoj (L1 L2)
   (cond
       ((null L1) L2)
       ((null L2) L1)
       ((and (null L1) (null L2) nill))
       ((null (cdr L1)) (cons (car L1) L2))
       (t (cons (car L1) (spoj (cdr L1) L2)))
   )
)



; ukol minimum v obecnem seznamu
(defun minimum (L)
    (cond
        ((not(atom(car L))) (minimum (spoj (car L) (cdr L))))
        ((= 1 (pocet L)) (car L))
        ((< (car L) (minimum (cdr L))) (car L))
        ((> (car L) (minimum (cdr L))) (minimum (cdr L)))
        ((= (car L) (minimum (cdr L))) (car L))
    )
)



; ukol soucet_x v seznamu
(defun soucet_x (L X)
    (cond ((null L) 0)
          ((and (atom (car L)) (= X (car L)))  (+ (car L) (soucet_x (cdr L) X)))
          ((not(atom (car L))) (+ (soucet_x (car L) X) (soucet_x (cdr L) X)))
          (t (+  (soucet_x (cdr L) X)))
    )

)

(print (spoj '(1 2 3) '(4 5 6)))
(print (minimum '(2 5 (-50 4) 6 7 -5)))
(print (soucet_x '(1 (3 4 3) 2 3 3) 3 ))