Systematische Suche SS09

Aus ProgrammingWiki

Archivierte Version vom 2009-04-22T13:37:52+00:00. Aktuelle Version

(define rucksack1
  (lambda (g-ls s-ls)
    (display 'rucksack1)
    (display g-ls)(display s-ls)(newline)
        (if (null? g-ls)
       (begin
       (display s-ls) (newline))
       (begin
          (rucksack1 (cdr g-ls) (cons (car g-ls) s-ls))
          (display '-); Tiefe
          (rucksack1 (cdr g-ls) s-ls))))); Breite

<eval> (rucksack1 '(30 50 10) '()) </eval>