HA3 7
-
- Mausschubser
- Beiträge: 70
- Registriert: 1. Okt 2007 15:55
- Wohnort: Darmstadt
- Kontaktdaten:
Vielleicht hilft dir enumerate-tree aus T5 S. 116 weiter. Es macht die Strukturen allerdings ein wenig zu flach...
Code: Alles auswählen
(define (enumerate-tree tree)
(cond
[(empty? tree) empty]
[(not (cons? tree)) (list tree)]
[else
(append (enumerate-tree (first tree))
(enumerate-tree (rest tree)))])
)
-
- Mausschubser
- Beiträge: 70
- Registriert: 1. Okt 2007 15:55
- Wohnort: Darmstadt
- Kontaktdaten:
-
- Mausschubser
- Beiträge: 56
- Registriert: 6. Aug 2007 22:38
juhuuu...
also ich fand die schon gut knifflig...ohne den ein oder anderen tipp waere ich bestimmt auf grund gelaufen.
Code: Alles auswählen
(perm '(3 2 1))
(list (list 3 2 1) (list 2 3 1) (list 2 1 3) (list 3 1 2) (list 1 3 2) (list 1 2 3))
-
- Mausschubser
- Beiträge: 70
- Registriert: 1. Okt 2007 15:55
- Wohnort: Darmstadt
- Kontaktdaten:
Hallo, noch einer on, der mir mal helfen kann??
Hab eben noch einen Fehler in meiner Perm Prozedur gefunden...
und jetzt hab ich folgende Ausgabe (nach ausprobieren)
(list (list 'a 42 'true) (list 42 'a 'true) (list 42 'true 'a) (list 42 'true) (list 'true 42) (list 'true))
Queltest dazu
Hab eben noch einen Fehler in meiner Perm Prozedur gefunden...
und jetzt hab ich folgende Ausgabe (nach ausprobieren)
(list (list 'a 42 'true) (list 42 'a 'true) (list 42 'true 'a) (list 42 'true) (list 'true 42) (list 'true))
Queltest dazu
Code: Alles auswählen
(define (perm lox)
(cond
[(empty? lox) empty]
[else (append (insert-everywhere (first lox) (rest lox))
(map flatten-once (perm (rest lox))))]))