Examen IA - v3

Care sunt valorile evaluării fiecărei dintre următoarele forme?
(FUNCALL *> ‘(55 33))

Fie funcţia:
(DEFUN SUMA (LIST)
(COND ((EQ (LENGTH LIST) 1)
(CAR LIST)
.. )
(T (+ (CAR LIST) (SUMA (CDR LIST)))
)
)
)

Care este rezultatul evaluării formei: (SUMA ‘(1 2 5—1 3))?

Se dă funcţia:
(DEFUN XXX (H R C)
(COND ((NULL H) NIL)
((EQ (CAR H) C)
(CAR R)
)
(T (XXX (CDR H) (CDR R) O)
)
) H HH
Care este rezultatul evaluării formei: (XXX '(A B C) '(1 2 3) ‘C)?

Rezultatul evaluării formei (LIST '(P Q) '(S T)j este:

Care este rezultatul evaluării formei: (CAR '(((A)) B C)):

Rezultatul evaluării formei (CAR (A B C)) este:

Rezultatul evaluării formei (CONS ‘(P Q) (CDR ‘(A B C))) este:

Rezultatul evaluării formei (APPEND ‘(CAR (X Y)) '(A B C)) este:

Se defineşte funcţia:
(DEFUN MISTER (A B)
(COND ((NULL A) 0)
((EQUAL B (CAR A))
(+ 1 (MISTER (CDR A) B))
)
(T (MISTER (CDR A) B))
)
Ea retumează:

Se consideră definiţia funcţiei F:
(DEFUN F (A L)
(COND
((NULL L) T)
((EQ A (CAR L)) NIL)
(T (F A (CDR L)))))
Care este rezultatul întors la evaluarea formei:
(F 'B '((A B) C))

Care este efectul următorului macro:
> (DEFMACRO TEST (X)
(LIST ’LET '((S 0))
(LIST 'DOLIST (LIST ’l X) *(SETQ S (+ S I)))
’S))
TEST

Să se indice dacă următoarea afirmaţie este adevărată sau falsă:
Nu se pot compila programele Lisp deoarece limbajul Lisp este interpretat.

Care este rezultatul obt in urma evaluarii formei: (LENGTH (LIST '(AB)'(CD)))

Rezultat in urma evaluarii (CAR '(AB.CD))

In LISP expresiile aritmetice se reprezinta prin forma poloneza

Care este rezultatul intors in urma evaluarii formei (LENGTH '(A(B(C D)(E)))

Sa se indice rezultatul obt in urma evaluarii urmatoarelor forme:
(defun F(L)
(COND ((NULL L)0)
((NUMBERP(FIRST L))(+(FIRST L)(F(REST L))))(T(F(REST L)))))
(F '(1 2 A 3))

Sa se indice rezultatul obtinut in urma evaluarii urmatoarei forme
(DEFUN F(L)(COND((NULL L)NIL)(T(CONS('(FIRST L)(FIRST L))(F(REST L))))))
(F '(A B C))

Care este rezultatul obtinut in urma evaluarii formei (CAR(CDR(A B(C (D)))))

Sa se indice efectul evaluarii urmatoarei forme
(EQ(SECOND(CAAR '(((X Y)Z)U)))'Y)