Ausgabe mit Rekusiven Aufruf < Scheme < Programmiersprachen < Praxis < Informatik < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 09:31 Do 13.11.2008 | | Autor: | wolle238 |
| Aufgabe | | a) Die Reißverschluss-Zerlegung einer Liste (x0 x1 x2 x3 ...) ist die Liste ((x0 x2 ...)(x1 x3 ...)). Schreiben Sie eine Scheme-Funktion (zip-apart l), die eine Liste l auf diese Weise zerlegt. |
Hallo!
Wir sind grad dabei eine Funktion zur Ausgabe in Scheme zu schreiben. Wir wollen zwei Listen ausgeben.
Wir haben dieses Programm
(define (even l)
(if (empty? l) empty
(cons (first l) (odd (rest l)))))
(define (odd l)
(cond[(empty? l) empty]
[(empty? (rest l)) empty]
[else (even (rest l))]))
(define (zip-apart l)
(string-append (list->string((even l) (list->string (odd l))))))
Leider und wollen halt Listen neben einander ausgeben, erhalten dann aber einen Fehler:
(define j (list 1 2 3 4 5))
(zip-apart j)
list->string: expects argument of type <list of character>; given (list 2 4)
Dann haben wir das mit der Liste anders überlegt:
(define (ausgabe l)
(and (string-append (number->string (car l))) (ausgabe (cdr l))))
Dies funktioniert ja leider auch nicht, da and ja nur eine true-false Verknüfung ist.
Gibt es dafür Lösung??
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 15:03 Do 13.11.2008 | | Autor: | wolle238 |
Das wäre eine Möglichkeit zur Ausgabe! Ich hoffe, dass stimmt auch! ;)
(define (zip-apart l)
(cond [(empty? l) empty]
[else (append
(list (even l))
(list (odd l)))]))
MfG Wolle238
|
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 20:20 Do 13.11.2008 | | Autor: | rainerS |
Hallo!
> a) Die Reißverschluss-Zerlegung einer Liste (x0 x1 x2 x3
> ...) ist die Liste ((x0 x2 ...)(x1 x3 ...)). Schreiben Sie
> eine Scheme-Funktion (zip-apart l), die eine Liste l auf
> diese Weise zerlegt.
> Hallo!
>
> Wir sind grad dabei eine Funktion zur Ausgabe in Scheme zu
> schreiben. Wir wollen zwei Listen ausgeben.
>
> Wir haben dieses Programm
>
> (define (even l)
> (if (empty? l) empty
> (cons (first l) (odd (rest l)))))
>
> (define (odd l)
> (cond[(empty? l) empty]
> [(empty? (rest l)) empty]
> [else (even (rest l))]))
![[ok]](/images/smileys/ok.gif "[ok]")
> (define (zip-apart l)
> (string-append (list->string((even l) (list->string
> (odd l))))))
>
> Leider und wollen halt Listen neben einander ausgeben,
> erhalten dann aber einen Fehler:
> (define j (list 1 2 3 4 5))
> (zip-apart j)
> list->string: expects argument of type <list of
> character>; given (list 2 4)
Klammern falsch gesetzt. Und warum hantiert ihr mit Strings, wenn die Ausgabe eine Liste sein soll?
list->string erwartet eine Liste von Zeichen als Argument, das funktioniert daher sowieso nicht.
| 1: | (define (zip-apart l)
| | 2: | (string-append (list->string (even l)) (list->string (odd l)))) |
Aber das funktioniert nicht, denn list->string erwartet eine Liste von Zeichen als Argument.
Warum setzt ihr die beiden Teile nicht einfach mit "list" zusammen?
> Dann haben wir das mit der Liste anders überlegt:
> (define (ausgabe l)
> (and (string-append (number->string (car l))) (ausgabe
> (cdr l))))
>
> Dies funktioniert ja leider auch nicht, da and ja nur eine
> true-false Verknüfung ist.
Nein, weil ihr string-append nur einen Parameter gebt.
Viele Grüße
Rainer
|
|
|
|
