AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Scheme - Rucksackproblem

Ein Thema von me26 · begonnen am 8. Jan 2008 · letzter Beitrag vom 8. Jan 2008
Antwort Antwort
me26

Registriert seit: 8. Jan 2008
2 Beiträge
 
#1

Scheme - Rucksackproblem

  Alt 8. Jan 2008, 18:45
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?
  Mit Zitat antworten Zitat
Benutzerbild von STS301
STS301

Registriert seit: 6. Nov 2007
668 Beiträge
 
Delphi 7 Personal
 
#2

Re: Scheme - Rucksackproblem

  Alt 8. Jan 2008, 18:54
Schau mal hier

vielleicht hilft dir das ein bischen
Sebastian

ölpölp

Linux will rule the universe!!
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#3

Re: Scheme - Rucksackproblem

  Alt 8. Jan 2008, 18:59
Zitat von STS301:
Schau mal hier

vielleicht hilft dir das ein bischen
Zitat:
Keine Beiträge entsprechen Deinen Kriterien.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
me26

Registriert seit: 8. Jan 2008
2 Beiträge
 
#4

Re: Scheme - Rucksackproblem

  Alt 8. Jan 2008, 19:06
Nein, dass hilft mir natürlich nicht, wie soll es auch
Wäre euch echt dankbar, wenn ihr da was auf 'Lager habt!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:37 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