流れるようにプログラミングしたい。

合同勉強会 in 大都会岡山 -2013 Winter- http://gbdaitokai.doorkeeper.jp/events/5725 で行ったライトニングトールのスライドです。

捕捉はこちらに http://blog.eiel.info/blog/2013/12/15/gbdaitokai-2013/

登場するコードはこちら。 https://gist.github.com/eiel/7956834

Transcript

1. ྲྀΕΔΑ͏ʹ
   ϓϩάϥϛϯά͍ͨ͠ 
   ߹ಉษڧձ
   JO
   େ౎ձԬࢁ
   
   
   
   XJOUFS
2. ࣗݾ঺հ wͻΉΒ
   ͱ΋ͻ͜
   ! w5XJUUFS
   FJFMI
   w(JU)VC
   FJFM
   wIUUQFJFMJOGP )JSPTIJNBSC
   ձ৔४උ܎
 ͍͢͝޿ౡ
   8&#
   506$)
   .&&5*/(
 Φʔϓϯηϛφʔ!޿ౡ
   ࣮ߦҕһ௕
3. ࠓ೥ͷϕετϑΝϘΒΕ
5. 3VCZ͸޷͖Ͱ͔͢ʁ
6. ྲྀΕΔΑ͏ʹ
   ϓϩάϥϛϯάͰ͖Δ
7. ྫ
8. ೖྗͨ͠಺༰Λ

   
   
   
   ഒͯ͠

   
   
   
   ΑΓେ͖͍΋ͷΛ

   
   
   
   ࠷ॳͷ͚ͭͩ
 ཉ͍͠
9. ͍·͔Β࡞੒͢ΔϓϩάϥϜ $ seq 10 | ./program 15 20 25 30 35
10. TFR
    ίϚϯυ $ seq 10 1 2 3 4 5 6 7 8 9 10
11. qPXSC puts ARGF.each_line .map(&:to_i) .map { |n| n * 5 } .select { |n| n > 10 } .first(5)
12. qPXSC puts ARGF.each_line .map(&:to_i) .map { |n| n * 5 } .select { |n| n > 10 } .first(5) 
    ഒ͢Δ
    
    ΑΓେ͖͍΋ͷ͚ͩʹ
    
    ࠷ॳͷͭ
13. ্͔ΒԼʹྲྀΕΔ
14. ؔ਺ܕͷྗ
    ͱ
 3VCZͷදݱྗ
15. ͔͠͠
16. ࣮͸σʔλ͕ྲྀΕͯͳ͍
17. σʔλ͕ྲྀΕͳ͍ʜ $ ruby flow.rb 1 2 3 4 5 6 7 8 <ctrl+d> 15 20
 …
18. σʔλΛಡΈऴ͑ͳ͍ͱ ॲཧ͕ελʔτ͠ͳ͍
19. ظ଴ͯͨ݁͠Ռ $ ./program 1 2 3 15 4 20 5 25 6 30 7 35
20. ॲཧͰ͖Δ࣌఺Ͱॲ ཧͯ͠ཉ͍͠
21. ඞཁͷͳ͍σʔλ͸ ಡ·ͳ͍͍ͯ͘
22. ͦ͜Ͱ
    )BTLFMM
    Ͱ͢Α
23. qPXIT main = do getContents >>= ( return . take 5 . filter (>10) . map (*5) . map read . lines ) >>= mapM_ print
24. qPXIT main = do getContents >>= ( return . take 5 . filter (>10) . map (*5) . map read . lines ) >>= mapM_ print 
    ࠷ॳͷͭ
    
    ΑΓେ͖͍΋ͷ͚ͩʹ
    
    
    ഒ͢Δ
25. ظ଴Ͳ͓Γʹಈ͘
26. )BTLFMM
    ͍͢͝
27. ͔͠͠
28. ίʔυ͕Լ͔Β্ʹ
29. 3VCZ
    
    ʹ͸ &OVNFSBUPS-B[Z
    ͕͋ΔΑ
30. &OVNFSBUPS-B[Z ARGF.each_line .lazy .map(&:to_i) .map { |n| n * 5} .select { |n| n > 10 } .map { |n| puts n } .first(5)
31. &OVNFSBUPS-B[Z ARGF.each_line .lazy .map(&:to_i) .map { |n| n * 5} .select { |n| n > 10 } .map { |n| puts n } .first(5)
32. &OVNFSBUPS-B[Z ARGF.each_line .lazy .map(&:to_i) .map { |n| n * 5} .select { |n| n > 10 } .map { |n| puts n } .first(5) 
    
    
    ഒ͢Δ
    
    
    
    ΑΓେ͖͍΋ͷ͚ͩʹ
    
    
    
    
    ࠷ॳͷͭ
33. σʔλ΋ྲྀΕΔ
34. -B[Z
    Ή͍ͣ
35. ͍΍
    )BTLFMM
    ʹ͸
    $POUSPM"SSPX
    ͕͋Δ
36. 
    $POUSPM"SSPX import Control.Arrow ! main = getContents >>= ( lines >>> map read >>> map (*5) >>> filter (>10) >>> take 5 >>> return ) >>= mapM_ print
37. 
    $POUSPM"SSPX import Control.Arrow ! main = getContents >>= ( lines >>> map read >>> map (*5) >>> filter (>10) >>> take 5 >>> return ) >>= mapM_ print 
    ഒ͢Δ
    
    ΑΓେ͖͍΋ͷ͚ͩʹ
    
    ࠷ॳͷͭ
38. σʔλ΋ίʔυ΋ྲྀΕΔ
39. Е͔Θ͍͍ΑЕ
40. ·ͱΊ
41. ಡΈ΍ͯ͘͢
    ޮ཰΋Α͍ίʔυ͕ॻ͖͍ͨ
42. )BTLFMM
    
    3VCZ
    Λ͠Α͏
43. ͜Ε͙Β͍ͳΒ
 γΣϧͰϫϯϥΠφʔ͔ͳʜ
44. seq 10 | \ awk -e '{ print $1 * 5 }' | \ awk -e '{ if($1 > 10) { print $1 } }' | \ head -n 5
45. ͦ͏͍͑͹
46. Φʔϓϯηϛφʔ! ޿ౡ
    ݄೔ ౔
47. ৄࡉ͸๨೥ձٞͰʁ
    IUUQPTIHJUIVCJP
48. ͝ਗ਼ௌ͋Γ͕ͱ͏͍͟͝·͢