2015-04-01から1ヶ月間の記事一覧
これがもっとエレガントに簡単にならんもんだろうか??? (let [data '((1 2 3) (0 0 0) (1 2 3 4) (3 3 3) (3 2 3) (1 2 1)) keyring '(:a :b :c :d :e) _make-pair (fn [arg] (map #(list %1 %2) keyring arg)) _conv-map (fn [m [k v]] (assoc m k v))] (ma…
これがもっとエレガントに簡単にならんもんだろうか??? (let [data '((1 2 3) (0 0 0) (1 2 3 4) (3 3 3) (3 2 3) (1 2 1)) keyring '(:a :b :c :d :e) _make-pair (fn [arg] (map #(list %1 %2) keyring arg)) _conv-map (fn [m [k v]] (assoc m k v))] (ma…