Generowanie podciągów w clojure

Question

Próbuję wygenerować wszystkie możliwe prefiksowe podciągi danego łańcucha w clojure. Na przykład, jeśli słowo jest Ninja chcę wyjście być ("N" "Ni" "Nin" "Ninj" "Ninja")

można łatwo zrobić z tym:

user=> (def a "Ninja") 

user => (for [x (range 1 (+ 1 (.length a)))] 
      (subs a 0 x)) 

("N" "Ni" "Nin" "Ninj" "Ninja") 

I to wszystko jest w porządku ... chyba .. Używam dla pętli w tym miejscu .. i nie wygląda to tak bardzo clojure-y .. czy istnieje lepszy/właściwy sposób na zrobienie tego bez pętli for lub czy pętla for całkowicie okay się w tym przypadku?

dziękuję

Answer 1

Mapowanie subs na długości jak w for zrozumieniem lub with map explicitly to co zrobię, jak również.

Jeśli jednak naprawdę chcą funkcji wyższego poziomu, można użyć reductions

(rest (reductions str (str) "Ninja")) 
;=> ("N" "Ni" "Nin" "Ninj" "Ninja") 

Gdybyś chciał przyrostków zamiast, można zrobić tak ładnie z iterate i subs ponieważ nie miałoby określić koniec.

(take-while seq (iterate #(subs % 1) "Ninja")) 
;=> ("Ninja" "inja" "nja" "ja" "a") 

Answer 2

for Ułatwienia są perfekcyjnie, IMO. Jeśli chcesz zobaczyć inne podejście, tutaj jest to, co chciałbym zrobić:

(map (partial subs a 0) (range 1 (-> a count inc))) 
;; ("N" "Ni" "Nin" "Ninj" "Ninja") 

Answer 3

Można użyć reduce

user=> (reduce #(conj % (str (first %) %2)) '() "Ninja") 
("Ninja" "Ninj" "Nin" "Ni" "N")