Mini-teste 2-A, Duração: 45 min, Com Consulta
RESOLUÇÃO
1.A
O resultado de (p2 '((1 2) 3 (4))) é 10.
O procedimento percorre a lista em profundidade e soma o valor de
todos os átomos; o primeiro elemento da lista é um átomo quando
(not (pair? (car lis))) dá #t.
2.A
(verifica-cla-aux n (cdr cla-teste))
2.B
(define calcula-cla
(lambda (pesos cla-alunos)
(if (null? cla-alunos)
0
(+ (* (car pesos) (car cla-alunos))
(clacula-cla (cdr pesos) (cdr cla-alunos))))))