Wie finde ich den index eines Elements in einer Liste im Schläger?

Ist dies trivial umzusetzen, natürlich, aber ich habe das Gefühl es ist schon etwas gebaut, um Schläger, der dies tut. Bin ich richtig, dass intuition, und wenn ja, in welcher Funktion?

InformationsquelleAutor seisvelas | 2013-04-08
  1. 12

    Seltsam, gibt es nicht eine built-in-Verfahren in Schläger-für die Suche nach den 0-basierten index eines Elements in eine Liste (die entgegengesetzte Verfahren hat existieren, es heißt list-ref). Jedoch, es ist nicht schwer zu implementieren, effizient:

    (define (index-of lst ele)
  (let loop ((lst lst)
             (idx 0))
    (cond ((empty? lst) #f)
          ((equal? (first lst) ele) idx)
          (else (loop (rest lst) (add1 idx))))))

    Aber es ist ein ähnliches Verfahren in srfi/1 es heißt list-index und Sie erhalten die gewünschte Wirkung durch die übergabe der richtigen Parameter:

    (require srfi/1)

(list-index (curry equal? 3) '(1 2 3 4 5))
=> 2

(list-index (curry equal? 6) '(1 2 3 4 5))
=> #f

    UPDATE

    Als der Schläger 6.7, index von ist jetzt Teil der standard-Bibliothek. Genießen Sie!

    • Wie Bizarr. Würde die Schläger-dev-mailing-Liste die entsprechende Steckdose für die Empfehlung dieses feature Hinzugefügt werden, um die Sprache?
    • Ich denke ... aber es ist keine große Sache, da es so einfach zu implementieren ist.
    • Ich hatte vergessen list-index. Siehe meine aktualisierte Antwort.
    • Danke Oscar, ich werde zu verwenden, dass Sie sind erstaunlich.
    • Mein Vergnügen! 🙂
    • Du bist der erste nicht-Schläger-dev die ich kenne, die verwendet curry, herzlichen Glückwunsch. 🙂 (Ich in der Regel neigen dazu, zu verwenden cut für ähnliche Situationen, wo der wahre currying ist nicht erforderlich, da können Sie Argumente in der Mitte, wie dieser.)
    • Beachten Sie, dass acc ist ein ziemlich schlechter name hier, da es nicht wirklich sammeln nichts.
    • vereinbart, fixiert es!
    • Gut, ich hätte einige andere stilistische Kommentare in Ihrem code, wie die Verwendung von Runden Klammern und der damit verbundenen Zeilenumbruch in der let Bindungen, aber ich in der Regel halten Sie mich...
    • Ich weiß, aber alte Gewohnheiten sterben schwer
    • Warum würden Sie verwenden, Liste-index statt des Autos (filter ...)?
    • da filter gibt eine Liste der Elemente, die wir interessiert sind, in einem einzigen element. Und außerdem, es gibt keine Möglichkeit anzugeben, der index zurückgegeben werden, wenn Sie mit filter. Einfach ausgedrückt, es ist nicht das richtige Werkzeug für den job
    • Vielleicht dieser ist ein besserer link für cut.
    • Die Absicht war es, einen echten Anwendungsfall für cut engagiert, was die Verknüpfung zu realen code, der es verwendet. Es war keine Dokumentation zur Verfügung zu stellen Menschen, die nicht schon wissen, was cut war.
    • Ich schlage vor, Sie tauschen Sie die beiden Hälften Ihrer Antwort, für schnell-Leser wie mich, die mit dem Lesen aufhören, bevor das Ende. Ich denke, die wichtigste information ist, dass es ein Verfahren.
    • Ich bin nicht einverstanden. Ich denke, dass die wichtigsten Informationen (wrt diese Antwort) für einen Programmierer wissen, ist, dass er/Sie ermächtigt fühlen, die durch Ihre Sprache zur Implementierung von Verfahren, die Sie fühlen fehlt. Wenn Sie später kommen, um zu lernen, dass eine built-in-Verfahren existiert, können Sie es verwenden, in neue Programme und/oder umgestalten von alten Programmen. Zu stoppen, um die Aufgabe, das internet jedes mal, wenn Sie brauchen eine einfache Vorgehensweise ist nur von kurzer Sie sich selbst schneiden.
    • Als der Schläger 6.7 index-of ist jetzt Teil der standard-Bibliothek! Dies könnte würdig sein, eines zu Bearbeiten ist (obwohl diese Antwort funktioniert perfekt in Ordnung).
    • danke!!! Ich Lerne Schläger und Ihre Beiträge SO unentbehrlich gewesen bisher

    InformationsquelleAutor Óscar López
  2. 6

    Hier eine sehr einfache Umsetzung:

    (define (index-of l x)
  (for/or ([y l] [i (in-naturals)] #:when (equal? x y)) i))

    Und ja, so etwas sollte Hinzugefügt werden, um die standard-Bibliothek, aber es ist nur ein wenig schwierig zu tun, damit niemand bekam es noch.

    Beachten Sie jedoch, dass es eine Funktion, die nur sehr selten nützlich-denn Listen sind in der Regel als eine Sequenz, die dekonstruiert werden nur mit der ersten/rest idiom, anstatt direkt den Zugriff auf Elemente. Mehr als, dass, wenn Sie eine Verwendung für Sie und du bist ein Neuling, dann ist meine erste Vermutung wird sein, dass Sie missbräuchlich zu Listen. Angesichts der Tatsache, dass die addition eine solche Funktion ist wahrscheinlich Reise solche newbies, indem es mehr zugänglich. (Aber es wird noch Hinzugefügt werden, irgendwann.)

    InformationsquelleAutor Eli Barzilay
  3. 0

    Kann man auch mit einem built-in-Funktion 'member' gibt eine Teilliste, beginnend mit der gewünschten Position oder #f wenn Element nicht vorhanden in der Liste. Folgenden vergleicht die Längen der original-Liste und die Teilliste zurückgegeben Mitglied: 

    (define (indexof n l)
  (define sl (member n l))
  (if sl 
      (- (length l)
         (length sl))
      #f))

    Für viele Situationen, man möchte Indizes der alle vorkommen des Elements in der Liste. Kann man sich eine Liste aller Indizes wie folgt: 

    (define (indexes_of1 x l)
  (let loop ((l l)
             (ol '())
             (idx 0))
    (cond
      [(empty? l) (reverse ol)]
      [(equal? (first l) x)
       (loop (rest l)
             (cons idx ol)
             (add1 idx))]
      [else
       (loop (rest l)
             ol
             (add1 idx))])))

    For/list können auch verwendet werden, für diese: 

    (define (indexes_of2 x l)
  (for/list ((i l)
             (n (in-naturals))
             #:when (equal? i x))
    n))

    Testen: 

    (indexes_of1 'a '(a b c a d e a f g))
(indexes_of2 'a '(a b c a d e a f g))

    Ausgabe: 

    '(0 3 6)
'(0 3 6)
    • Bitte bitte nicht die -1 Sache, um zu signalisieren, dass kein index vorhanden ist. Es ist viel übersichtlicher und einfacher, wenn Sie zurück #false in diesen Fällen, so dass die idiomatische Weise, es zu tun
    • Code wurde korrigiert.
    InformationsquelleAutor rnso
Schreibe einen Kommentar