Wie nehme ich eine Scheibe einer Liste (Teilliste) in Schema?

Gegeben eine Liste, wie würde ich wählen Sie eine neue Liste, mit einer Scheibe die original-Liste (offset und die Anzahl der Elemente) ?

EDIT:

Gute Vorschläge so weit. Gibt es nicht etwas angegeben in einem der SRFI? Dies scheint eine sehr grundlegende Sache, also ich bin überrascht, dass ich brauche, um es zu implementieren, die im user-land.

InformationsquelleAutor der Frage troelskn | 2008-09-20

  1. 8

    Dem folgenden code wird das tun, was Sie wollen:

    (define get-n-items
    (lambda (lst num)
        (if (> num 0)
            (cons (car lst) (get-n-items (cdr lst) (- num 1)))
            '()))) ;'

(define slice
    (lambda (lst start count)
        (if (> start 1)
            (slice (cdr lst) (- start 1) count)
            (get-n-items lst count))))

    Beispiel:

    > (define l '(2 3 4 5 6 7 8 9)) ;'
()
> l
(2 3 4 5 6 7 8 9)
> (slice l 2 4)
(3 4 5 6)
>

    InformationsquelleAutor der Antwort dsm

  2. 11

    Seltsamerweise slice ist nicht mit SRFI-1aber man kann es kürzer mit SRFI-1 und drop:

    (define (slice l offset n)
  (take (drop l offset) n))

    Dachte ich, dass eine der Erweiterungen, die ich verwendet habe, die mit dem Schema, wie die PLT-Scheme-Bibliothek oder Schwindel, diese eingebaut, aber es scheint nicht der Fall zu sein. Es ist nicht einmal in der neuen R6RS Bibliotheken.

    InformationsquelleAutor der Antwort Nathan Shively-Sanders

  3. 5

    Können Sie versuchen, diese Funktion:

    subseq Sequenz-start - &optionale end -

    Den start parameter ist der Versatz. Die Ende parameter kann leicht gedreht werden, in der die Anzahl der Elemente zu schnappen, indem Sie einfach start + Anzahl-der-Elemente.

    Ein kleiner bonus ist, dass subseq funktioniert auf allen Sequenzen, umfasst dies nicht nur Listen, sondern auch Strings und Vektoren.

    Edit: Es scheint, dass nicht alle lisp-Implementierungen haben subseq, aber es wird den job zu erledigen just fine wenn Sie es haben.

    InformationsquelleAutor der Antwort Josh Gagnon

  4. 1
    (define (sublist list start number)
  (cond ((> start 0) (sublist (cdr list) (- start 1) number))
        ((> number 0) (cons (car list)
                      (sublist (cdr list) 0 (- number 1))))
        (else '())))

    InformationsquelleAutor der Antwort Matthias Benkard

  5. 1

    Hier ist meine Umsetzung slice verwendet einen richtigen Schwanz nennen

    (define (slice a b xs (ys null))
  (cond ((> a 0) (slice (- a 1) b (cdr xs) ys))
        ((> b 0) (slice a (- b 1) (cdr xs) (cons (car xs) ys)))
        (else (reverse ys))))

(slice 0 3 '(A B C D E F G)) ;=> '(A B C)
(slice 2 4 '(A B C D E F G)) ;=> '(C D E F)

    InformationsquelleAutor der Antwort user633183

  6. 0

    Probieren Sie etwas wie dieses:

        (define (slice l offset length)
      (if (null? l)
        l
        (if (> offset 0)
            (slice (cdr l) (- offset 1) length)
            (if (> length 0)
                (cons (car l) (slice (cdr l) 0 (- length 1)))
                '()))))

    InformationsquelleAutor der Antwort Martin Cote

Schreibe einen Kommentar