tarea 5, 6, cantidad-adyacentes

; Resolviendo el 6 usando la función primitiva length
; se supone que no la puedo usar, pero no entiendo
; como voy a contar sin eso
(define cantidad-adyacentes
    (lambda (N l)
        (length
            (cdar
                (filter (lambda (l) (equal? (car l) N)) l)
            )
        )
    )
)