Tạo các chất nền trong clojure

Question

Tôi đang cố gắng tạo tất cả các phần tử tiền tố có thể có của một chuỗi đã cho trong clojure. Ví dụ, nếu từ đó là Ninja, tôi muốn đầu ra được ("N" "Ni" "Nin" "Ninj" "Ninja")

tôi có thể dễ dàng làm điều đó với điều này:

user=> (def a "Ninja") 

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

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

Và đây là tất cả tốt ... trừ .. Tôi đang sử dụng cho vòng lặp trong đó .. và nó không trông rất clojure-y .. là có một cách tốt hơn/thích hợp để làm điều này mà không có vòng lặp for hoặc là vòng lặp hoàn toàn okay trong trường hợp này?

cảm ơn bạn

Answer 1

Mapping subs so với chiều dài như trong for hiểu hoặc with map explicitly là những gì tôi muốn làm là tốt.

Tuy nhiên, nếu bạn thực sự muốn có một chức năng cấp cao hơn, bạn có thể sử dụng reductions

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

Nếu bạn đã muốn hậu tố thay vào đó, bạn có thể làm như vậy độc đáo với iterate và subs vì bạn sẽ không có để chỉ định kết thúc.

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

Answer 2

for hiểu là hoàn toàn ổn, IMO. Nếu bạn muốn xem cách tiếp cận khác, đây là những gì tôi sẽ làm gì:

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

Answer 3

Bạn có thể sử dụng reduce

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