Scheme - Rucksackproblem

[me26]

Hallo ihr,
ich brauche dringend eure Hilfe!
Muss das Rucksackproblem in Scheme programmieren..
hab einen Ansatz
(define
(Rucksack-packen Gewicht Teilgewichte)
(let t-s
((Alternativen Teilgewichte)
(akku '()))
(cond
((= Gewicht (apply + akku))
akku)
((null? Alternativen) #f)
; erster Fall: einpacken!
((t-s (cdr Alternativen) (cons (car Alternativen) akku)))
(else
; die einzige Alternative: nicht einpacken!
(t-s (cdr Alternativen) akku)))))

(define Teilgewichte-a '(1 1 40 2 3 5 15 15 20 40))
(Rucksack-packen 101 Teilgewichte-a)
(Rucksack-packen 102 Teilgewichte-a)
(Rucksack-packen 103 Teilgewichte-a)
(Rucksack-packen 104 Teilgewichte-a)
(Rucksack-packen 105 Teilgewichte-a)

(define Teilgewichte-b '(1 2 5 9 20 50 90 181 400 900))
(Rucksack-packen 101 Teilgewichte-b)
(Rucksack-packen 102 Teilgewichte-b)
(Rucksack-packen 103 Teilgewichte-b)
(Rucksack-packen 104 Teilgewichte-b)
(Rucksack-packen 105 Teilgewichte-b)

versteh das aber über define eigentlich gar nicht.. außerdem wird der nutzenwert nicht berücksichtigt..
kann mir einer helfen?