Tema 1.

1.Evaluati expresiile si returnati valoarea ultimei expresii evaluate:
1.1 	(setq A '(U V W))
 (set (car (cdr A)) 'B)
 (cons V A)
1.2 	(setq A '(U V W))
 '(setq A '(X Y Z))
 A
1.3	(setq A 'A)
 (setq B 'A)
 (list A B 'B)
1.4 	(list (list 'A 'B) '(list 'A 'B))
1.5	(defun double (X) (* 2 X))
 (double 2.3)
1.6 	(defun times-square (X Y) (* X X Y))
 (times-square 4 3)
1.7	(defun times-cube (X Y) (* X Y Y Y))
 (times-cube 3 2)
1.8	(zerop '3)
 (zerop 3)
 (atom 3)
 (null '(A B))
 (numberp '(A B))
 (consp '(A B))
 (listp '(A B))
 (consp 'NIL)
 (not (null 'NIL))
1.9 	(cadr '(A B C D E))
 (second '(A B C D E))
 (cadr (cadr '((A B C) (D E f) (G H I))))
 (cadadr '((A B C) (D E f) (G H I)))
 (cddadr '((A B C) (D E f) (G H I)))
 (last '((A B C) (D E f) (G H I)))
 (cdr (third '((A B C) (D E f) (G H I))))
1.10	(reverse '(A B C D))
 (reverse '(A (B C) (D E)))
 (reverse '(A (B C) D((E F G) H)))
2. Scrie-ti doua s-expresii diferite care sa intoarca simbolul C din
listele urmatoare:
 (A B C D E)
 ((A B C) (D E F))
 ((A B) (C D) (E F))
 (A (B C D) E F)
3. Se da functia recursiva:
 (defun primelen (N L)
	(cond ((zerop N) NIL)
	 (t (cons (car L) (primelen (- N 1) (cdr L))))
Sa se constuiasca functia final recursiva "primelen-final" care are
aceasi comportare. 
 (defun primlen-final (N L) ... )

Aceasta este Tema 1 care poate fi trimisa pe adresa
cristi_cira@rdslink.ro pana la 6 noiembrie 2003 ora 22:00. Va rog ca
subiectul mailului sa fie de forma "Tema N" pentru cele care contin
rezolvarea exercitiilor, bineinteles.


Cristi Cira