Upgrade to Pro — share decks privately, control downloads, hide ads and more …

ネットワークグラフを作成する

Avatar for kunou kunou
July 06, 2018
Technology
73
0

 ネットワークグラフを作成する

Avatar for kunou

kunou

July 06, 2018

More Decks by kunou

See All by kunou
GANについて
Avatar for kunou kunou
0
460
AIか何かについて.pdf
Avatar for kunou kunou
0
47
Pythonを書いていておーマジかーと感じたあれこれ
Avatar for kunou kunou
1
740
Rubyで機械学習してみた
Avatar for kunou kunou
1
1.2k
ZIP!!
Avatar for kunou kunou
0
200
zip
Avatar for kunou kunou
0
530
Make Mouse
Avatar for kunou kunou
0
670
RubyのProcのあれをこうしました
Avatar for kunou kunou
0
110
esm lt Clojure like threading macro
Avatar for kunou kunou
0
470

Other Decks in Technology

See All in Technology
AIで変わるエンジニアの働き方（仮）
Avatar for naoinaoi naoinaoi
0
390
アクセスキーが漏れた日にやるべきこと- 無効化の先にある本当の対応
Avatar for kazzpapa3 kazzpapa3
0
210
AIのためのEthernet技術動向 (SerDes)
Avatar for Masayuki Kobayashi markunet
1
300
[potatotips #96] Give Your AI Agent the Flutter Playbook
Avatar for Kenichi Kambara korodroid
0
140
生成 AI の基礎 〜 サンプル実装で学ぶ基本原理
Avatar for Etsuji Nakai enakai00
7
4.6k
Android skills に学ぶ
Avatar for kokiko kokiko
0
150
コネクションをピン留めさせずに SELECTクエリのタイムアウトを設定した話
Avatar for コドモン開発チーム codmoninc
0
200
型落ちシンクライアント端末のPoEモジュールを自作したかった話
Avatar for Takuto Nagami logica0419
0
310
三人寄ればチューリング完全
Avatar for Takumi Sueda puhitaku
6
2.9k
Sets in Go
Avatar for Luciano Ramalho ramalho
1
1.2k
Adding Right-to-Left support to your web
application with CSS logical properties — Lessons from Redmine
Avatar for MAEDA Go vividtone
0
170
What's new in Go 1.27?
Avatar for Koya IWAMURA ciarana
0
300

Featured

See All Featured
Test your architecture with Archunit
Avatar for Yoan thirion
2
2.4k
世界の人気アプリ100個を分析して見えたペイウォール設計の心得
Avatar for Akihiro Kokubo akihiro_kokubo
PRO
73
41k
Optimizing for Happiness
Avatar for Tom Preston-Werner mojombo
378
71k
Digital Ethics as a Driver of Design Innovation
Avatar for Per Axbom axbom
PRO
1
380
Docker and Python
Avatar for Tania Allard trallard
47
4.1k
Accessibility Awareness
Avatar for Sarah Abderemane sabderemane
1
180
Claude Code どこまでも/ Claude Code Everywhere
Avatar for nwiizo nwiizo
66
57k
A designer walks into a library…
Avatar for Paul Jervis Heath pauljervisheath
211
24k
Building the Perfect Custom Keyboard
Avatar for Naoto Takai takai
2
850
How to Create Impact in a Changing Tech Landscape [PerfNow 2023]
Avatar for Tammy Everts tammyeverts
56
3.4k
10 Git Anti Patterns You Should be Aware of
Avatar for Lemi Orhan Ergin lemiorhan
PRO
659
62k
CSS Pre-Processors: Stylus, Less & Sass
Avatar for Bermon Painter bermonpainter
360
30k

Transcript

  1. ωοτϫʔΫάϥϑΛੜ ੒͢Δ(ClojureͰ) 2018/6/15 ITS-training-camp

  2. ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ) ͜͏͍͏ਤΛੜ੒͠·͢

  3. ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ) ͜͏͍͏ਤΛੜ੒͠·͢

  4. DEMO ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  5. ίʔυશମ (ns gen-network.core) (import '(java.io BufferedReader FileReader)) (require '[clojure.string :as

    str]) (require '[loom.graph :as lg]) (require '[loom.io :as lio]) (def data-text “data.txt") (def keywords ["a" "b" "c" "d"]) (def data-list (->> (FileReader. data-text) (BufferedReader.) (line-seq) (map #(str/split % #", ")))) (defn word-relation [key list] (->> list (filter (fn [words] (some #(= % key) words))) (map (fn [words] (remove #(= key %) words))) (flatten) (group-by #(identity %)) ((fn [group] (map #(vector key (first %) (count (second %))) group))))) (defn main [] (->> keywords (reduce (fn [accum keyword] (concat accum (word-relation keyword data-list))) []) )) ; (remove (fn [x] (<= (nth x 2) 4))) (apply lg/weighted-graph) ((fn [graph] (lio/view graph :alg :fdp))))) (main) ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  6. ϑΝΠϧΛಡΈࠐΉ $ cat data.txt a, b c, d a, b

    a, b a, b a, e c, d a, e a, d c, b e, d ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  7. ϑΝΠϧΛಡΈࠐΉ (import '(java.io BufferedReader FileReader)) (require '[clojure.string :as str]) (def

    data-text "data.txt") (def data-list (->> (FileReader. data-text) (BufferedReader.) (line-seq) (map #(str/split % #", "))))
 
 ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  8. ϑΝΠϧΛಡΈࠐΉ (import '(java.io BufferedReader FileReader)) (require '[clojure.string :as str]) (def

    data-text "data.txt") (def data-list (->> (FileReader. data-text) (BufferedReader.) (line-seq) (map #(str/split % #", "))))
 => ([“a” “b”] [“c” “d”] [“a” “b”] [“a” “b”] [“a” “b”] [“a” “e”] [“c” “d”] [“a” “e”] [“a” “d”] [“c” “b”] [“e" “d"]) ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  9. ϑΝΠϧΛಡΈࠐΉ (import '(java.io BufferedReader FileReader)) (require '[clojure.string :as str]) (def

    data-text "data.txt") (def data-list (->> (FileReader. data-text) (BufferedReader.) (line-seq) (map #(str/split % #", "))))
 => ([“a” “b”] [“c” “d”] [“a” “b”] [“a” “b”] [“a” “b”] [“a” “e”] [“c” “d”] [“a” “e”] [“a” “d”] [“c” “b”] [“e" “d"]) ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ) JavaͷΫϥεΛΠϯϙʔτ

  10. ϑΝΠϧΛಡΈࠐΉ (import '(java.io BufferedReader FileReader)) (require '[clojure.string :as str]) (def

    data-text "data.txt") (def data-list (->> (FileReader. data-text) (BufferedReader.) (line-seq) (map #(str/split % #", "))))
 => ([“a” “b”] [“c” “d”] [“a” “b”] [“a” “b”] [“a” “b”] [“a” “e”] [“c” “d”] [“a” “e”] [“a” “d”] [“c” “b”] [“e" “d"]) clojure.stringΛ࢖͑ΔΑ͏ʹ͢Δ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  11. ϑΝΠϧΛಡΈࠐΉ (import '(java.io BufferedReader FileReader)) (require '[clojure.string :as str]) (def

    data-text "data.txt") (def data-list (->> (FileReader. data-text) (BufferedReader.) (line-seq) (map #(str/split % #", "))))
 => ([“a” “b”] [“c” “d”] [“a” “b”] [“a” “b”] [“a” “b”] [“a” “e”] [“c” “d”] [“a” “e”] [“a” “d”] [“c” “b”] [“e" “d"]) FileReaderΛॳظԽ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  12. ϑΝΠϧΛಡΈࠐΉ (import '(java.io BufferedReader FileReader)) (require '[clojure.string :as str]) (def

    data-text "data.txt") (def data-list (->> (FileReader. data-text) (BufferedReader.) (line-seq) (map #(str/split % #", "))))
 => ([“a” “b”] [“c” “d”] [“a” “b”] [“a” “b”] [“a” “b”] [“a” “e”] [“c” “d”] [“a” “e”] [“a” “d”] [“c” “b”] [“e" “d"]) BuffReaderΛॳظԽ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  13. ϑΝΠϧΛಡΈࠐΉ (import '(java.io BufferedReader FileReader)) (require '[clojure.string :as str]) (def

    data-text "data.txt") (def data-list (->> (FileReader. data-text) (BufferedReader.) (line-seq) (map #(str/split % #", "))))
 => ([“a” “b”] [“c” “d”] [“a” “b”] [“a” “b”] [“a” “b”] [“a” “e”] [“c” “d”] [“a” “e”] [“a” “d”] [“c” “b”] [“e" “d"]) ߦ͝ͱʹ෼͚Δ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  14. ϑΝΠϧΛಡΈࠐΉ (import '(java.io BufferedReader FileReader)) (require '[clojure.string :as str]) (def

    data-text "data.txt") (def data-list (->> (FileReader. data-text) (BufferedReader.) (line-seq) (map #(str/split % #", "))))
 => ([“a” “b”] [“c” “d”] [“a” “b”] [“a” “b”] [“a” “b”] [“a” “e”] [“c” “d”] [“a” “e”] [“a” “d”] [“c” “b”] [“e" “d"]) ߦΛ``,``Ͱ෼͚ͯVectorʹ͢Δ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  15. ಡΈࠐΜͩ݁Ռ͔Β૊Έ߹Θͤճ਺Λ਺͑Δ (defn word-relation [key list] (->> list (filter (fn [words]

    (some #(= % key) words))) (map (fn [words] (remove #(= key %) words))) (flatten) (group-by #(identity %)) ((fn [group] (map #(vector key (first %) (count (second %))) group))))) ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  16. ಡΈࠐΜͩ݁Ռ͔Β૊Έ߹Θͤճ਺Λ਺͑Δ (defn word-relation [key list] (->> list (filter (fn [words]

    (some #(= % key) words))) (map (fn [words] (remove #(= key %) words))) (flatten) (group-by #(identity %)) ((fn [group] (map #(vector key (first %) (count (second %))) group))))) (word-relation "a" data-list) => (["a" "b" 4] ["a" "e" 2] ["a" "d" 1]) ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  17. ಡΈࠐΜͩ݁Ռ͔Β૊Έ߹Θͤճ਺Λ਺͑Δ (defn word-relation [key list] (->> list (filter (fn [words]

    (some #(= % key) words))) (map (fn [words] (remove #(= key %) words))) (flatten) (group-by #(identity %)) ((fn [group] (map #(vector key (first %) (count (second %))) group))))) => ([“a” “b”] [“c” “d”] [“a” “b”] [“a” “b”] [“a” “b”] [“a” “e”] [“c” “d”] [“a” “e”] [“a” “d”] [“c” “b”] [“e" “d"]) ͜͜·Ͱ࣮ߦ͢Δ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  18. ಡΈࠐΜͩ݁Ռ͔Β૊Έ߹Θͤճ਺Λ਺͑Δ (defn word-relation [key list] (->> list (filter (fn [words]

    (some #(= % key) words))) (map (fn [words] (remove #(= key %) words))) (flatten) (group-by #(identity %)) ((fn [group] (map #(vector key (first %) (count (second %))) group))))) => (["a" "b"] ["a" "b"] ["a" "b"] ["a" "b"] ["a" "e"] ["a" "e"] ["a" "d"]) ͜͜·Ͱ࣮ߦ͢Δ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  19. ಡΈࠐΜͩ݁Ռ͔Β૊Έ߹Θͤճ਺Λ਺͑Δ (defn word-relation [key list] (->> list (filter (fn [words]

    (some #(= % key) words))) (map (fn [words] (remove #(= key %) words))) (flatten) (group-by #(identity %)) ((fn [group] (map #(vector key (first %) (count (second %))) group))))) => (("b") ("b") ("b") ("b") ("e") ("e") ("d")) ͜͜·Ͱ࣮ߦ͢Δ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  20. ಡΈࠐΜͩ݁Ռ͔Β૊Έ߹Θͤճ਺Λ਺͑Δ (defn word-relation [key list] (->> list (filter (fn [words]

    (some #(= % key) words))) (map (fn [words] (remove #(= key %) words))) (flatten) (group-by #(identity %)) ((fn [group] (map #(vector key (first %) (count (second %))) group))))) => ("b" "b" "b" "b" "e" "e" "d") ͜͜·Ͱ࣮ߦ͢Δ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  21. ಡΈࠐΜͩ݁Ռ͔Β૊Έ߹Θͤճ਺Λ਺͑Δ (defn word-relation [key list] (->> list (filter (fn [words]

    (some #(= % key) words))) (map (fn [words] (remove #(= key %) words))) (flatten) (group-by #(identity %)) ((fn [group] (map #(vector key (first %) (count (second %))) group))))) => {"b" ["b" "b" "b" "b"], "e" ["e" "e"], "d" ["d"]} ͜͜·Ͱ࣮ߦ͢Δ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  22. ಡΈࠐΜͩ݁Ռ͔Β૊Έ߹Θͤճ਺Λ਺͑Δ (defn word-relation [key list] (->> list (filter (fn [words]

    (some #(= % key) words))) (map (fn [words] (remove #(= key %) words))) (flatten) (group-by #(identity %)) ((fn [group] (map #(vector key (first %) (count (second %))) group))))) => (["a" "b" 4] ["a" "e" 2] ["a" "d" 1]) ͜͜·Ͱ࣮ߦ͢Δ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  23. ޙ͸ϥΠϒϥϦͷྗͰ (defn main [] (->> keywords (reduce (fn [accum keyword]

    (concat accum (word-relation keyword data-list))) []) ; (remove (fn [x] (<= (nth x 2) 4))) (apply lg/weighted-graph) ((fn [graph] (lio/view graph :alg :fdp))))) ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  24. ޙ͸ϥΠϒϥϦͷྗͰ (defn main [] (->> keywords (reduce (fn [accum keyword]

    (concat accum (word-relation keyword data-list))) []) ; (remove (fn [x] (<= (nth x 2) 4))) (apply lg/weighted-graph) ((fn [graph] (lio/view graph :alg :fdp))))) => (["a" "b" 4] ["a" "e" 2] ["a" "d" 1] [“b" "a" 4] ["b" "c" 1] ["c" "d" 2] ["c" "b" 1] [“d" "c" 2] ["d" "a" 1] ["d" "e" 1]) ͜͜·Ͱ࣮ߦ͢Δ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  25. ޙ͸ϥΠϒϥϦͷྗͰ (defn main [] (->> keywords (reduce (fn [accum keyword]

    (concat accum (word-relation keyword data-list))) []) ; (remove (fn [x] (<= (nth x 2) 4))) (apply lg/weighted-graph) ((fn [graph] (lio/view graph :alg :fdp))))) άϥϑσʔλΛ࡞੒ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  26. ޙ͸ϥΠϒϥϦͷྗͰ (defn main [] (->> keywords (reduce (fn [accum keyword]

    (concat accum (word-relation keyword data-list))) []) ; (remove (fn [x] (<= (nth x 2) 4))) (apply lg/weighted-graph) ((fn [graph] (lio/view graph :alg :fdp))))) ഑ஔΛࢦఆͯ͠ඳը ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  27. ίʔυશମ (ns gen-network.core) (import '(java.io BufferedReader FileReader)) (require '[clojure.string :as

    str]) (require '[loom.graph :as lg]) (require '[loom.io :as lio]) (def data-text “data.txt") (def keywords ["a" "b" "c" "d"]) (def data-list (->> (FileReader. data-text) (BufferedReader.) (line-seq) (map #(str/split % #", ")))) (defn word-relation [key list] (->> list (filter (fn [words] (some #(= % key) words))) (map (fn [words] (remove #(= key %) words))) (flatten) (group-by #(identity %)) ((fn [group] (map #(vector key (first %) (count (second %))) group))))) (defn main [] (->> keywords (reduce (fn [accum keyword] (concat accum (word-relation keyword data-list))) []) )) ; (remove (fn [x] (<= (nth x 2) 4))) (apply lg/weighted-graph) ((fn [graph] (lio/view graph :alg :fdp))))) (main) ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  28. ·ͱΊ ͪΐͬͱͨ͠πʔϧΛ࡞Δͱ͖ͳͲɺؔ਺ܕݴޠΛ࢖͏ͱ୹͘εο ΩϦ͔͚·͢ɻ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)

  29. ·ͱΊ ͪΐͬͱͨ͠πʔϧΛ࡞Δͱ͖ͳͲɺؔ਺ܕݴޠΛ࢖͏ͱ୹͘εο ΩϦ͔͚·͢ɻ Ruby΍PythonΛ࢖ͬͯ΋୹͘ॻ͚·͚͢ͲͶɻ ωοτϫʔΫάϥϑΛੜ੒͢Δ(ClojureͰ)