Pozycja podporządkowania Clojure w sekwencji

Question

Czy Clojure zapewnia dowolny wbudowany sposób wyszukiwania pozycji pod-sekwencji w danej sekwencji?

Answer 1

Clojure zapewnia wbudowany sposób na łatwe Java Interop.

(java.util.Collections/indexOfSubList '(a b c 5 6 :foo g h) '(5 6 :foo)) 
;=> 3 

Answer 2

Sekwencja to abstrakcja, a nie konkrecja. Pewne konkrecje, które można wykorzystać poprzez abstrakcję sekwencji, mogą znaleźć pozycję podciągu (na przykład łańcuchy i kolekcje java), ale sekwencje w ogóle tego nie robią, ponieważ ukryta konkrecja nie musi mieć indeksu .

Co jednak można zrobić, to stworzyć zestaw tożsamości elementu i funkcji indeksu. Spójrz na map-indexed.

Oto naiwna implementacja, która leniwie znajdzie pozycję (wszystkich) podciągów w sekwencji. Wystarczy użyć najpierw zabrać 1 lub tylko jednego, aby znaleźć:

(defn find-pos 
    [sq sub] 
    (->> 
    (partition (count sub) 1 sq) 
    (map-indexed vector) 
    (filter #(= (second %) sub)) 
    (map first))) 

=> (find-pos [:a :b \c 5 6 :foo \g :h] 
       [\c 5 6 :foo]) 
(2) 

=> (find-pos "the quick brown fox" 
       (seq "quick")) 
(4) 

zadbać, algorytmy indeksów opartych na ogół nie są czymś byś zrobił w języku funkcjonalnym. O ile nie istnieją dobre powody, dla których potrzebny jest indeks w ostatecznym wyniku, rozległe użycie wyszukiwania indeksu jest uznawane za zapach kodu.