Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Scheme - Rucksackproblem (https://www.delphipraxis.net/106297-scheme-rucksackproblem.html)

me26 8. Jan 2008 17:45


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?

STS301 8. Jan 2008 17:54

Re: Scheme - Rucksackproblem
 
Schau mal hier

vielleicht hilft dir das ein bischen

DeddyH 8. Jan 2008 17:59

Re: Scheme - Rucksackproblem
 
Zitat:

Zitat von STS301
Schau mal hier

vielleicht hilft dir das ein bischen

Zitat:

Keine Beiträge entsprechen Deinen Kriterien.
:lol:

me26 8. Jan 2008 18:06

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 14:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz