HaskellでGitHub APIを叩いてみた

LT駆動17の発表資料です。
https://github.com/LTDD/Sessions/wiki/LT%E9%A7%86%E5%8B%95%E9%96%8B%E7%99%BA17

解説
http://blog.eiel.info/blog/2015/08/02/ltdd-17/

1. Haskellで GitHub API叩いてみた 2015-08-02 LTۦಈ։ൃ17
2. ͻΉΒ ͱ΋ͻ͜ ࠷ۙArrow͕楽しい Stackつかいはじめた
3. 7݄ͷπΠʔτ https://twitter.com/eielh/status/625354978194907136
4. 7݄ͷπΠʔτ https://twitter.com/eielh/status/625354978194907136 良い方向に傾いて欲しい
5. 夏と花火と私の死体
6. Scalaؔ੢ Summit 2015
7. 遊びにいってきました
8. GitHubのリポジトリ傾向 • Ruby 67 • Objective-C 14 • Shell 14 • JavaScript 9 • Haskell 6 • Emacs Lisp 5 • C# 2 • HTML 2 • TypeScript 2 • C 1 • C++ 1 • CSS 1 • CoffeeScript 1 • Java 1 • PHP 1 • Python 1 • Scala 1 • Swift 1
9. GitHubのリポジトリ傾向 • Ruby 67 • Objective-C 14 • Shell 14 • JavaScript 9 • Haskell 6 • Emacs Lisp 5 • C# 2 • HTML 2 • TypeScript 2 • C 1 • C++ 1 • CSS 1 • CoffeeScript 1 • Java 1 • PHP 1 • Python 1 • Scala 1 • Swift 1 Haskellで求めてみました
11. Haskellをはじめる • プロジェクトをつくる • プロジェクトの設定 • コードをかく
12. ϓϩδΣΫτΛͭ͘Δ
13. Stackを使う • 依存性地獄にハマらないらしい • GitHub Releaseからダウンロードして • PATHのとおったところにおく IUUQTHJUIVCDPNDPNNFSDJBMIBTLFMMTUBDLSFMFBTFT
14. ghcをインストール • stack setup
15. プロジェクトの雛形を作成 • stack new • mv new-template.cabal hoge.cabal • vi hoge.cabal • nameなどを修正
16. hogeコマンドを作りたい場合 executable hoge hs-source-dirs: app main-is: Main.hs ghc-options: -threaded -rtsopts -with-rtsopts=-N build-depends: base , hoge default-language: Haskell2010
17. hogeコマンドを作りたい場合 executable hoge hs-source-dirs: app main-is: Main.hs ghc-options: -threaded -rtsopts -with-rtsopts=-N build-depends: base , hoge default-language: Haskell2010 修正 修正
18. コマンドのビルドとインストール • stack install • $HOME/.local/bin/hoge にインストール
19. ϓϩδΣΫτͷઃఆ
20. ライブラリを使う • hoge.cabalの編集 • build-depends に使いたいライブラリを追加 • ライブラリがみつからない場合 • stackが支持してくれる
21. 外部ライブラリの設定 github ライブラリの場合 • stack.yaml の extra-deps に追加しろ - github-0.13.2 って教えてくれる(stack buildなどをすると
22. ίʔυΛ͔͘
23. 使うAPIの確認 • あるユーザのリポジトリの一覧 • Github.Repos.userRepos • String -> RepoPublicity -> IO (Either Error [Repo])
24. $ stack ghci > Github.Repos.userRepos "eiel" Github.Repos.All Right [Repo { repoSshUrl = Just “git@github.com:cldwalker/debugger- ruby_core_source.git", repoDescription = Just "Retrieve ruby core source files”, repoHtmlUrl = “https://github.com/cldwalker/debugger- ruby_core_source", repoSvnUrl = Just “https://github.com/cldwalker/ debugger-ruby_core_source", … repoLanguage = Just “C" … }. Repo { … ]
25. 実装方針 • Either Error [Repo] ͕ͱΕΔ • Right [ Repo { repoLanguage = Just “C”… }, Repo { repoLanguage = Just “Ruby”…} … ] • 言語の一覧にする • [“C”, “Ruby”,… ] • 言語とその言語の数を数える • [(“Ruby”, 4), (“C”, 2)]
26. Either Error [Repo] -> [(String, Int)] • ふたつに分解 • Either Error [Repo] -> [String] • [String] -> [(String, Int)]
27. Either Error [Repo] -> [String] either (const []) id >>> map repoLanguage >>> filter isJust >>> map fromJust
28. either (const []) id • 失敗した時 空のリスト • 成功したらそのまま Right [Repo, Repo, Repo] が [Repo, Repo, Repo, Repo] になる
29. map repoLanguage • RepoのリストをrepoLanageのリストに [Repo { repoLanuage = Just “C”}, …] が [Just “C”, …] になる
30. filter isJust • Justのものだけに [Just “C”, Nothing, Just “Ruby”…]が [Just “C”, Just “Ruby”…] になる
31. map fromJust • Just をはずす [Just “C”, Just “Ruby”, Just “Ruby”…] が [“C”, “Ruby” , “Ruby”…] になる
32. 言語の一覧になった
33. 言語の数を数えて、並び換え sort >>> group >>> map keyAndSize >>> rankSort where keyAndSize = head &&& length rankSort = sortBy (flip $ comparing snd)
34. sort • ならびかえ [“C”,“Ruby”,”Ruby”,…] が [“C”,”C”… “Ruby”,…] になる
35. group • 同じものをまとめる [“C”,”C”,“Ruby”,…] が [[“C”,”C”],[“Ruby”,…]] になる
36. map keyAndSize keyAndSize = head &&& length • 言語とその言語の数に [[“C”,”C”],[“Ruby”,…]] が [(“C”, 2),(“Ruby”, 4)] になる
37. map keyAndSize keyAndSize = head &&& length • 言語とその言語の数に [[“C”,”C”],[“Ruby”,…]] が [(“C”, 2),(“Ruby”, 4)] になる
38. head &&& length • 左に headの結果を 右にlengthの結果を [“C”,”C”] が (head [“C”,”C”], length [“C”,”C”]) ʹͳΓ (“C”,2) ʹͳΔ
39. rankSort rankSort = sortBy (flip $ comparing snd) • 右の結果で並びかえ [(“C”, 2),(“Ruby”, 4)] が [(“Ruby”, 4),(“C”, 2)] になる
40. あとは結果を出力 • IO モナド怖い
41. sort >>> group >>> map keyAndSize >>> rankSort • >>> は シェルのパイプみたいなもの • 関数と関数をつなげて大きな関数に • あとは関数に値を [“C”,“Ruby”,”Ruby”,”C”ɼ ”Ruby”,”Ruby”] [[“C”,”C”], [“Ruby”,”Ruby”,”Ruby”,”Ruby”]] [“C,”C”ɼ”Ruby”,”Ruby”, ”Ruby”,”Ruby”] [(“C”,2),(“Ruby”,4)] [(“Ruby”,4),(“C”,2)]
42. ·ͱΊ
43. まとめ • Haskell書くときの流れを説明した • stackまじ便利 • 1つ1つを単純に考える • 関数と関数をくっつけられる