LISP02 Zadaća

; Prvi zadatak
(defun operacija (x y &optional (OP '+))  ; Ispravka.
    (case OP
        ('* (* x y))
        ('/ (/ x y))
        ('% (* (/ y 100) x))
        ('+ (+ x y))                ; Ispravka: Prvi put sam zaboravio na zbrajanje
        (otherwise '"Ilegalan unos operacije!")
    )
)

; Drugi zadatak
(defun add12 (&rest x)
    (setq z nil)
    (dolist (y x) (push (+ 12 y) z))
    (reverse z)
)

; Treci zadatak
(defun postoji (x lista)
    (or
        (equal x lista)
        (if (not (atom lista)) (postoji x (car lista)))
        (if (not (atom lista)) (postoji x (cdr lista)))
    )
)