[Clojure] 4Clojure 4

#43 Reverse Interleave

(fn f [arglist argnumber]
  (->> arglist
      (map-indexed vector)
      (group-by #(mod (first %) argnumber))
      (vals)
      (map #(map last %))
  )
  
)

;;-> Best answer : (apply map vector (partition n v))

 

#44 Rotate Sequence

(fn f [n v]
  (let [newn (cond
              (< n 0) (- (count v) (mod (- n) (count v)) )
              (> n (count v) ) (mod n (count v)) 
              :else n)]
  (take (count v) (drop newn (flatten (repeat 2 v)) ) )
  )
)

 

;;-> repeat 가 아니라 cycle이 있음.

 

#45 Intro to Iterate

'(1 4 7 10 13)

 

 

#46 Flipping out

(fn [fun]
  (fn [x y] (fun y x) )
)

;;함수 자체를 리턴

 

#47 Contain Yourself

4

;; contain 의 경우 Key를 확인함.

 

#53 Longest Increasing Sub-Seq

(fn f [ve]
  (let [pi (partition-by identity (map (fn [x y] (- x y)) ve (cons (first ve) ve)) )
        count-ve (map #(if (= (first %) 1) (count %) -1) pi) 
        max-val (apply max count-ve) 
        start-pos (dec (first (keep-indexed (fn [idx v]
                       (if (= v max-val) idx)) count-ve)) ) ]
    
    (take (inc max-val) (drop start-pos ve))
  )
)

;;하드따리 풀어버리기