Schema einer Schleife Durch eine Liste

Wie würde ich Schleife diese Liste in scheme?

(define test-document '(
                    ((h e l l o))
                    ((t h i s)(i s)(t e s t))
                    ))

Was ich auch versuchte, es zeigte nur die erste Spalte.

Was meinst du mit "Schleife" zu dieser Liste"?
Zugriff auf jedes Wort in der Liste um.

InformationsquelleAutor Philip Rego | 2014-04-20

scheme

1

Was Sie haben, ist eine Liste von Listen von Listen:
```
(define test-document '(((h e l l o)) ((t h i s) (i s) (t e s t))))
```
Schleife über Elemente müssen Sie eine Schleife eine Schleife eine Schleife. Zu tun, so können wir map und curry wie folgt:
```
(map (curry map (curry map
        (compose string->symbol string-upcase symbol->string)))
    test-document)
```
Diese erzeugt die folgende Ausgabe:
```
(((H E L L O)) ((T H I S) (I S) (T E S T)))
```
Wenn Ihr Scheme-interpreter verfügt nicht über einen integrierten-in curry Funktion können Sie definieren wie folgt:
```
(define (curry func . args)
    (lambda x (apply func (append args x))))
```
Hoffe, dass dies geholfen.
- Es sagt "curry" ist undefiniert
- Die scheme-interpreter verwenden Sie? Die curry Funktion ist verfügbar in mzscheme. Jedenfalls habe ich aktualisiert meine Antwort mit einer Umsetzung der curry.
InformationsquelleAutor Aadit M Shah
3

car und cdr Familie von Funktionen sind Ihre Freunde, um das navigieren in Listen. Hier sind einige Beispiele.
```
(define test-document '(
                    ((h e l l o))
                    ((t h i s)(i s)(t e s t))
                    ))

(car test-document)  ;; `((h e l l o))
(caar test-document)  ;; `(h e l l o)
(cadr test-document) ;; `((t h i s) (i s) (t e s t))
(car (cadr test-document) ;; `(t h i s)
(cadr (cadr test-document) ;; `(i s)
(caddr (cadr test-document) ;; `(test )
```
Definieren Sie eine Funktion, gehen Sie die Liste und rufen Sie eine Funktion für jedes Element, das nicht eine Liste.
```
(define (walk-list lst fun)
   (if (not (list? lst))
      (fun lst)
      (if (not (null? lst))
         (begin
            (walk-list (car lst) fun)
            (walk-list (cdr lst) fun)))))
```
Nennen es drucken jedes Element.
```
(walk-list test-document print)
```
- Aber was, wenn Sie nicht wissen, die Größe des Dokuments.
- Ich habe etwas mehr Inhalt, um meine Antwort zu verdeutlichen, wie Sie können zu Fuß eine Liste und etwas tun, mit den Elementen in es.
- Wie bekomme ich es zum drucken der Wörter ohne parethesis. es wird die Worte als eine Liste, aber ich kann nichts mit ihm führen, es hat die dumme pareteses um Sie herum (define (Fuss-Liste lst Spaß) (if (not (equal? (car lst) '())) (Spaß lst) (if (not (null? lst)) (begin (Fuss-list (car lst) Spaß) (Fuß-Liste (cdr lst) Spaß))))) (Fuß-Liste test-Dokument anzeigen)
InformationsquelleAutor R Sahu

Haben Sie denken, etwas wie dies?

(define (walk-list lst)
  (define (sub-walk lst)
    (if (null? lst)
        '()
        (let ((x (car lst)))
          (if (list? x)
              (cons (sub-walk x) (sub-walk (cdr lst)))
              (apply string-append (map symbol->string lst))))))
  (flatten (sub-walk lst)))

dann

(walk-list test-document)
=> '("hello" "this" "is" "test")

welche Sie verarbeiten können, mit den üblichen verdächtigen (map, filter, ...).

Wenn Ihr System hat keine flatten Verfahren, die Sie verwenden können, dieses:

(define (flatten lst)
  (reverse
   (let loop ((lst lst) (res null))
     (if (null? lst)
         res
         (let ((c (car lst)))
           (loop (cdr lst) (if (pair? c) (loop c res) (cons c res))))))))

Ich habe nicht die Funktion flatten
Das ist der Grund, warum ich in meiner Antwort!

InformationsquelleAutor uselpa

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.