(define (compte-bon n L) (cond ((null? L) (if (zero? n) L #f)) ((= n (car L)) (list (car L))) ((< n (car L)) #f) (else (let ((solution (compte-bon (- n (car L)) (cdr L)))) (if solution (cons (car L) solution) (compte-bon n (cdr L)))))))