ZIP!!

Transcript

1. I❤zip (car (cdr ϑΝϯΫγϣϯ۞ָ෦)) 12.07.2017
2. I❤zip kunou@esm •ࣾ಺ͷษڧձͰ ClojureΛॻ͍ͯ·͢ •ࠓ೥ͷ໺๬͸Haskell Λ֮͑Δ͜ͱͩͬͨ ʢաڈܗʣ
3. I❤zip ޷͖ͳؔ਺ zip
4. I❤zip ޷͖ͳؔ਺ zip 当然ながらこれの話ではありません ☓
5. I❤zip ޷͖ͳؔ਺ zip (zip [1 2 3] [4 5 6]) => ((1 4) (2 5) (3 6))
6. I❤zip ޷͖ͳؔ਺ zip でもClojureにはzipがない…… (zipmapはあるけど)
7. I❤zip ޷͖ͳؔ਺ zip でもClojureにはzipがない…… (zipmapはあるけど) (defn zip [a b] (map list a b))
8. I❤zip zipのよくある使い方 普通に使う (zip [1 2 3] [4 5 6]) => ((1 4) (2 5) (3 6))
9. 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))
10. I❤zip zipのちょっと変わった使い方
11. 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 Λ࢖༻
12. 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があるとき……空いて いる日付が欲しい
13. 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があるとき……空いて いる日付が欲しい
14. I❤zip zipのちょっと変わった使い方 (zip days (rest days))
15. 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))
16. 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))))
17. 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))
18. 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))
19. 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))
20. 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))
21. 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))
22. I❤zip まとめ
23. I❤zip まとめ •zip便利
24. I❤zip まとめ •zip便利 (map, reduceの方が百倍よく使うけど……)
25. I❤zip まとめ •zip便利 (map, reduceの方が百倍よく使うけど……) •他にも面白い使い方があったら 教えてください