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

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

kunou
July 06, 2018
Technology
0
35

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

kunou

July 06, 2018
Tweet

More Decks by kunou

See All by kunou
GANについて
kunou
0
420
AIか何かについて.pdf
kunou
0
25
Pythonを書いていておーマジかーと感じたあれこれ
kunou
1
710
Rubyで機械学習してみた
kunou
1
1.1k
ZIP!!
kunou
0
170
zip
kunou
0
500
Make Mouse
kunou
0
610
RubyのProcのあれをこうしました
kunou
0
68
esm lt Clojure like threading macro
kunou
0
400

Other Decks in Technology

See All in Technology
MixIT 2024 - Pulumi : Gérer son infra avec son langage de programmation préféré
ju_hnny5
1
110
サーバー間 GraphQL と webmock-graphql の話 / server-to-server graphql and webmock-graphql
qsona
3
200
Building Dashboards as a Hobby
egmc
0
330
.NET Profiler in 2024.
kkamegawa
2
620
LangSmith入門―トレース／評価／プロンプト管理などを担うLLMアプリ開発プラットフォーム
os1ma
5
650
自己改善からチームを動かす！ 「セルフエンジニアリングマネージャー」のすゝめ
shoota
6
920
MapLibreとAmazon Location Service
dayjournal
1
170
EM完全に理解した と思ったけど、 やっぱり何も分からなかった話 / EM Night Fukuoka #1
hirutas
0
130
One engineer company with Ruby on Rails
rstankov
2
390
20分で完全に理解するGrafanaダッシュボード
hamadakoji
4
830
Babylon.jsと色々なものを組み合わせる：ブラウザのAPIやガジェットや2D描画ライブラリなど / Babylon.js 勉強会 vol.3
you
PRO
0
140
【NW X Security JAWS#3】L3-4:AWS環境のIPv6移行に向けて知っておきたいこと
shotashiratori
1
590

Featured

See All Featured
GitHub's CSS Performance
jonrohan
1025
450k
Raft: Consensus for Rubyists
vanstee
133
6.3k
A designer walks into a library…
pauljervisheath
201
23k
jQuery: Nuts, Bolts and Bling
dougneiner
59
7.1k
Build The Right Thing And Hit Your Dates
maggiecrowley
25
2k
How to Ace a Technical Interview
jacobian
273
22k
RailsConf 2023
tenderlove
7
550
A Philosophy of Restraint
colly
197
16k
A better future with KSS
kneath
231
16k
Building a Scalable Design System with Sketch
lauravandoore
457
32k
Design by the Numbers
sachag
274
18k
The Success of Rails: Ensuring Growth for the Next 100 Years
eileencodes
32
6k

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Ͱ)