Enunciado distribuído na sala.
Java: 1-b, 2-c, 3-a, 4-a, 5-b, 6-b, 7-a, 8-a.
Prolog:
inter([], L, L).
inter([H|T], B, [H|R]) :- inter(B, T, R).
Lisp:
(defun caixas (expr)
(if (atom expr)
0
(+ 1 (caixas (car expr)) (caixas (cdr expr)))
)
)
© 2011 João Meidanis