Primele 3 paragrafe sunt destinate celor care nu au primit primul mail
de la mine si sunt o copie a acestuia.

Aveti atasate trei fisiere:
"LISP C3 Lab 1.txt" sunt exemple din primul curs al d-lui prof. Negru.
Va rog ca aceste exemple sa le incercati singuri sa vedeti comportarea
intrepretorului LISP. Exemplele contin elemente si constructii de baza
pe care va trebui sa le cunoasteti. Fiecare linie din acest fisier se
copiaza in interpretor si se apasa ENTER pentru obtinerea rezultatului.
Nu voi reveni aspura acestor aspecte decat sumar sau daca vor fi
nelamuriri. 
"xl304win.zip" care contine pordusul Xlisp. Se lanseaza din directorul
BIN creat dupa extragerea din arhiva. 
"Curs LISP 3 cap 3.ps" contine primele trei capitole ale Cursului de
Inteligenta Artificiala. Formatul este .PS(PostScriptum).

Eventuale intrebari le astept pe aceasta adresa de mail.

Va rog sa transmiteti celor care nu au primit acest mail sa imi trimita
ei unul cu numele, prenumele si grupa din care fac parte pe
cristi_cira@rdslink.ro.
_______________________
Lista celor care NU sunt NEVOITI sa rezolve tema. 

Ciprian Parascai
Adrian Baltat
Robert Barabas
Andrei Bakos
Cristian Vidican
Maria Tomescu
Teodora Mladin
Nicoleta Stan
Ladislau Kelly
Catalin Popescu
Ioana Coroian
Lavinia Maxim
Sergiu Pogor
Marius Veliciu
Mircea Palade
Daniela Palade
Ramona Stanoiu
Cosmin Hada
Claudia Iakab
Stefan Varga
Florin Sida
Onisim Gligor 
Emanuel Dronca

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