![]() |
Scheme - Rucksackproblem
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? |
Re: Scheme - Rucksackproblem
|
Re: Scheme - Rucksackproblem
Zitat:
Zitat:
|
Re: Scheme - Rucksackproblem
Nein, dass hilft mir natürlich nicht, wie soll es auch :)
Wäre euch echt dankbar, wenn ihr da was auf 'Lager habt! |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:10 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz