Các vectơ lặp lại trong Clojure

Question

Tôi là người mới sử dụng Clojure. Tôi đang cố gắng để có được hai bản sao của một vector của phù hợp với thẻ. Các phi DRY cách mà tôi có thể đưa ra là

(def suits [:clubs :diamonds :hearts :spades]) 
(def two-times (concat suits suits)) 

Có phải là một cách thêm chức năng (ngay cả khi phải mất thêm các ký tự :-)). Nếu tôi muốn N lần thì sao? Bất kỳ đề xuất?

Tất cả những điều tôi cố gắng, như

(replicate 2 suits) 

kết quả trong hai vectơ riêng biệt:

([:clubs :diamonds :hearts :spades] [:clubs :diamonds :hearts :spades]) 

Làm thế nào để "san bằng" cấu trúc?

Answer 1

concat mang đến cho bạn một seq lười biếng. Nếu bạn muốn kết thúc với một (không lười biếng) vector thay vì:

user> (into suits suits) 
[:clubs :diamonds :hearts :spades :clubs :diamonds :hearts :spades] 
user> (reduce into (replicate 2 suits)) 
[:clubs :diamonds :hearts :spades :clubs :diamonds :hearts :spades] 

Tùy thuộc việc bạn đang truy cập này bằng cách chỉ số nhiều hoặc lặp lại trên nó, hoặc là một vector hoặc một seq có thể thích hợp hơn.

Luôn luôn cycle quá, nếu bạn muốn có một bất tận (lười biếng) dòng của các yếu tố lặp đi lặp lại:

user> (take 9 (cycle suits)) 
(:clubs :diamonds :hearts :spades :clubs :diamonds :hearts :spades :clubs) 

Answer 2

(chưa được kiểm tra!)

(apply concat (repeat 2 suits)) 

sẽ hy vọng làm các trick.

concat dĩ nhiên sẽ nối 2 danh sách; apply có thể được sử dụng để buôn lậu một chức năng cụ thể vào vị trí đầu của danh sách hiện có để đánh giá.

Answer 3

Một chút thử nghiệm với REPL đưa tôi đến với giải pháp này:

user=> (def suits [:clubs :diamonds :hearts :spades]) 
#'user/suits 
user=> suits 
[:clubs :diamonds :hearts :spades]  
user=> (reduce concat (replicate 2 suits)) 
(:clubs :diamonds :hearts :spades :clubs :diamonds :hearts :spades) 

Answer 4

(take (* 2 (count suits)) (cycle suits))