TEST 11

matricola: ______________________________

nome (solo se non si ricorda la matricola): __________________________________
























              (define (homer ls)
                  (cond ((and (null? (car ls)) (null? (cadr ls)))    0)
                           ((null? (car ls))   (+ 1  (homer (list (car ls) (caadr ls)))))
                           (else    (homer (list (cdar ls) (cdr ls))))))

             (define (simpson ls)
                  (homer (list ls '())))