ZAD.1.

[28]> (defun cal (x y &optional z)
(
case z
(+ (+ x y))
(- (- x y))
(* (* x y))
(/ (/ x y))
(otherwise (+ x y))
)
)
CAL
[29]> (CAL 2 4)
6
[30]> (cal 2 4)
6
[31]> (cal 2 4 '*)
8
[32]> (cal 2 4 '-)
-2
[33]> (cal 2 4 '/)
1/2
[34]>




ZAD.2.


[250]> (defun f ( y )(do ((x y (cdr x))
(y nil))
((null x) (reverse y))
(push (+ (car x) 10) y))
)
F
[271]> (f '(1 2 3 4))
(11 12 13 14)


ZAD.3.

[8]> (defun foo (a b)
(setq d nil)
(loop (setq c (pop b))
(if (listp c)(foo a c)
(when (equal a c)(setq d 't)))
(when (equal b nil)(return d))
(when (equal d 't)(return d)))
)
FOO
[9]> (foo 'x '(+ a b))
NIL
[10]> (foo 'x '(+ a x))
T