अनुक्रम clojure

Question

की पूंछ कैसे प्राप्त करने के लिए मैं यहाँ एक ही रास्ता है कि कैसे मैं की तरह

((1 2 3 4) (2 3 4) (3 4) (4)()) 

Answer 1

एक और तरीका है सब पूंछ पाने के लिए reductions समारोह का उपयोग करके।

user=> (def x '(1 2 3 4)) 
#'user/x 
user=> (reductions (fn [s _] (rest s)) x x) 
((1 2 3 4) (2 3 4) (3 4) (4)()) 
user=> 

Answer 2

अनुक्रम के सभी पूंछ प्राप्त कर सकते हैं theem

(1 2 3 4) 

की clojure में अनुक्रम है।

user=> (def x [1 2 3 4]) 
#'user/x 
user=> (map #(drop % x) (range (inc (count x)))) 
((1 2 3 4) (2 3 4) (3 4) (4)()) 

Answer 3

आप उच्च स्तर के कार्यों के साथ ऐसा करना चाहते हैं, तो मुझे लगता है कि iterate अच्छी तरह से यहाँ काम करेगा:

(defn tails [xs] 
    (concat (take-while seq (iterate rest xs)) '(())) 

हालांकि, मैं इस मामले में लगता है कि यह क्लीनर हो बस इसे लिखने के साथ होगा lazy-seq:

(defn tails [xs] 
    (if-not (seq xs) '(()) 
    (cons xs (lazy-seq (tails (rest xs)))))) 

Answer 4

एक तरह से आप ऐसा कर सकते

(defn tails [coll] 
    (take (inc (count coll)) (iterate rest coll))) 

Answer 5

(defn tails 
    [s] 
    (cons s (if-some [r (next s)] 
      (lazy-seq (tails r)) 
      '(())))) 

Answer 6

याहू के द्वारा होता है! एक और एक:

(defn tails [coll] 
    (if-let [s (seq coll)] 
     (cons coll (lazy-seq (tails (rest coll)))) 
     '(()))) 

यह वास्तव में सिर्फ क्या reductions हुड के नीचे करता है। सबसे अच्छा जवाब, वैसे, ez121sl's है।