[Clojure] 4Clojure Easy 1

안그래도 어려운데 오랜만에 보니 드롭게 어렵네 진짜..

 

#156 map Default

(fn [x y] (zipmap y (repeat (count y) x) ))

 

 

# 38 maximum value

(fn [& args] (last (sort args)))

 

 

#26 Fibonacci Sequence

재귀

(fn [n]
    ( 
        (fn rec-fn [n c v]
            (if (> n c)
                (recur n (inc c) (conj v (reduce + (take-last 2 v))))
                (conj v (reduce + (take-last 2 v) ) )
            ) 
        ) n 3 [1 1]
    )
 )

이터레이트

(fn [x] (nth (iterate (fn [y] (conj y (reduce + (take-last 2 y)))) [1 1] ) (- x 2) ))