Clojure의에서

Question

, 나는 목록

[a, b, c, d] 

을하고 난 그것의 튜플의 새로운 무한 목록을 끌어 할

[ [a,b,c], [b,c,d], [c,d,a], [d,a,b], [a,b,c] ... ] 

나는 내장 된 seq 함수를 사용하여 순전히 기능적인 방법으로이를 수행하는 방법을 알아 내려고하고있다.

이것은 간단하며 아직 금식하지 않았습니까? 아니면 실제로 어떤 종류의 어려운 문제입니까? (다른 언어에서는 필자 자신의 원형 반복자를 작성하고 많은 상태를 추적 할 것입니다.)

업데이트 : 또한 왜 누군가가 이것을 투표합니까?

Answer 1

이 파티션을 사용하지 않고 cycle의 조합 partition

(take 5 (partition 3 1 (cycle '(a b c d)))) 
;; => ((a b c) (b c d) (c d a) (d a b) (a b c)) 

Answer 2

를 사용하여 수행 할 수 있습니다

(defn next-rotation [coll] 
    (take (count coll) (drop 1 (cycle coll)))) 

(defn tuples [n coll] 
    (lazy-seq (cons (take n coll) (tuples n (next-rotation coll))))) 

;; (take 5 (tuples 3 '(a b c d))) ;; => 
;; ((a b c) (b c d) (c d a) (d a b) (a b c))