昔々作ったgithubアカウントを長らく放置していたのだが、せっかくなのでそのアカウントを使ってgistにMerge SortとQuick Sortを載せてみた。 https://gist.github.com/zehnpaard 他の基本的なアルゴリズムなどをclojureで書いたら載せていきたい。

書いてみる。 まずはletの中にベタ書き。 (defn quick-sort [col] (if (>= 1 (count col)) col (let [i (rand-int (count col)) pivot (nth col i) heads (take i col) tails (drop (inc i) col) col2 (concat heads tails) lesser (filter #(< % pivot) col…

前回 まあこれもありかも。 (def coins [500 100 50 10 5 1]) (defn f [[remainder & count-list] coin] (concat ((juxt rem quot) remainder coin) count-list)) (defn coin-count2 [n] (->> coins (reduce f (list n)) next reverse)) reduceの戻り値を、…