; 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)
            )
        )
    )
)