I❤zip (car (cdr ϑΝϯΫγϣϯ۞ָ෦)) 12.07.2017

I❤zip kunou@esm •ࣾ಺ͷษڧձͰ ClojureΛॻ͍ͯ·͢ •ࠓ೥ͷ໺๬͸Haskell Λ֮͑Δ͜ͱͩͬͨ ʢաڈܗʣ

I❤zip ޷͖ͳؔ਺ zip

I❤zip ޷͖ͳؔ਺ zip 当然ながらこれの話ではありません ☓

I❤zip ޷͖ͳؔ਺ zip (zip [1 2 3] [4 5 6]) => ((1 4) (2 5) (3 6))

I❤zip ޷͖ͳؔ਺ zip でもClojureにはzipがない…… (zipmapはあるけど)

I❤zip ޷͖ͳؔ਺ zip でもClojureにはzipがない…… (zipmapはあるけど) (defn zip [a b] (map list a b))

I❤zip zipのよくある使い方 普通に使う (zip [1 2 3] [4 5 6]) => ((1 4) (2 5) (3 6))

I❤zip zipのよくある使い方 indexを付ける
 Clojureならmap-indexedを使えと言う話は置いておいて (zip (iterate inc 0) [:a :b :c :d :e]) => ((0 :a) (1 :b) (2 :c) (3 :d) (4 :e))

I❤zip zipのちょっと変わった使い方

I❤zip zipのちょっと変わった使い方 (def days [ (t/date-time 2017 7 7) (t/date-time 2017 7 8) (t/date-time 2017 7 9) (t/date-time 2017 7 11) (t/date-time 2017 7 13)]) こんな感じのvectorがあるとき…… ※clj-time Λ࢖༻

I❤zip zipのちょっと変わった使い方 (def days [ (t/date-time 2017 7 7) (t/date-time 2017 7 8) (t/date-time 2017 7 9) (t/date-time 2017 7 11) (t/date-time 2017 7 13)]) こんな感じのvectorがあるとき……空いて いる日付が欲しい

I❤zip zipのちょっと変わった使い方 (def days [ (t/date-time 2017 7 7) (t/date-time 2017 7 8) (t/date-time 2017 7 9) (t/date-time 2017 7 11) (t/date-time 2017 7 13)]) こんな感じのvectorがあるとき……空いて いる日付が欲しい

I❤zip zipのちょっと変わった使い方 (zip days (rest days))

I❤zip zipのちょっと変わった使い方 (zip days (rest days)) => ((2017-07-07 2017-07-08) (2017-07-08 2017-07-09) (2017-07-09 2017-07-11) (2017-07-11 2017-07-13))

I❤zip zipのちょっと変わった使い方 (->> (zip days (rest days)) (remove #(let [[x y] %] (= (+ (t/day x) 1) (t/day y)))) (map first) (map #(t/plus % (t/days 1))))

I❤zip zipのちょっと変わった使い方 (->> (zip days (rest days)) (remove #(let [[x y] %] (= (+ (t/day x) 1) (t/day y)))) (map first) (map #(t/plus % (t/days 1)))) => ((2017-07-07 2017-07-08) (2017-07-08 2017-07-09) (2017-07-09 2017-07-11) (2017-07-11 2017-07-13))

I❤zip zipのちょっと変わった使い方 (->> (zip days (rest days)) (remove #(let [[x y] %] (= (+ (t/day x) 1) (t/day y)))) (map first) (map #(t/plus % (t/days 1)))) => ((2017-07-09 2017-07-11) (2017-07-11 2017-07-13))

I❤zip zipのちょっと変わった使い方 (->> (zip days (rest days)) (remove #(let [[x y] %] (= (+ (t/day x) 1) (t/day y)))) (map first) (map #(t/plus % (t/days 1)))) => ((2017-07-09) (2017-07-11))

I❤zip zipのちょっと変わった使い方 (->> (zip days (rest days)) (remove #(let [[x y] %] (= (+ (t/day x) 1) (t/day y)))) (map first) (map #(t/plus % (t/days 1)))) => ((2017-07-10) (2017-07-12))

I❤zip zipのちょっと変わった使い方 (->> (zip days (rest days)) (remove #(let [[x y] %] (= (+ (t/day x) 1) (t/day y)))) (map first) (map #(t/plus % (t/days 1)))) => ((2017-07-10) (2017-07-12))

I❤zip まとめ

I❤zip まとめ •zip便利

I❤zip まとめ •zip便利 (map, reduceの方が百倍よく使うけど……)

I❤zip まとめ •zip便利 (map, reduceの方が百倍よく使うけど……) •他にも面白い使い方があったら 教えてください