ClojureScript のある生活

Transcript

1. $MPKVSF4DSJQU
   
   ͕
   ͋Δੜ׆ !@BZBUP@Q
2. ࣗݾ঺հ +4
   Φδαϯ
   $MPKVSF
   Φδαϯ
   +BWB4DSJQU
   ॳ৺ऀͰ͢
   ࠓ೥
   $MPKVSF
   ͔͠ॻ͍ͯͳ͍ਓ
   $ZCP[V
   4UBSUVQT
   *OD
3. ͜Μͳܦݧ͋Γ·ͤΜ͔ʁ ྫ͑͹ΦϯϥΠϯγϣοϓΈ͍ͨͳγεςϜɻ
4. ͜Μͳܦݧ͋Γ·ͤΜ͔ʁ Χʔτͷ߹ܭֹۚΛϑϩϯτΤϯυͱ
 αʔόʔαΠυ྆ํͰಉ͡ܭࢉΛ͢Δඞཁ͕͋Δɻ
5. ͜Μͳܦݧ͋Γ·ͤΜ͔ʁ ͔͠͠ɺֹۚܭࢉͳͷͰͲͪΒʹ΋
 ಉ࣮͡૷͢Δͱ͍͏͜ͱ͸ͨ͘͠ͳ͍ɻ
6. ͜Μͳܦݧ͋Γ·ͤΜ͔ʁ ߹ܭֹۚܭࢉ
   "1*
   Λୟ͖·ͬͯ͘
 αʔόʔαΠυͰܭࢉͨ݁͠ՌΛϑϩϯτʹฦ͢
7. ͜Μͳܦݧ͋Γ·ͤΜ͔ʁ ී௨ʹߟ͑ͯͭΒ͍
 ඇಉظॲཧΛ௚ྻԽͨ͠ΓɺϝϞԽͨ͠Γେม
8. ͦ͜Ͱ
   $MPKVSF4DSJQU
   Ͱ͢Α 3FBEFS$POEJUJPOBMT
   ͷ͓ӄͰ
   
 8SJUF
   PODF
   SVO
   BOZXIFSF
   5SBOTJU
   ϑΥʔϚοτͰ
 γʔϜϨεͳσʔλ௨৴
   ϑϩϯτΤϯυ΋αʔόʔαΠυ΋
 $MPKVSF
   ͷ஌͚ࣝͩͰॻ͚Δ
9. $MPKVSF4DSJQU "MU+4
   ͱ͍͏ΑΓ͸
   $MPKVSF
   ͷλʔήοτ͕
   
 +7.
   Ͱ͸ͳ͘
   +BWB4DSJQU
   ʹͳͬͨ΋ͷ
   ΄ͱΜͲ
   $MPKVSF
   ͱಉ͚ͩ͡ͲɺҰ෦ҧ͏
 JOUFSPQ
   ͱ͔ϚΫϩ࢖͑Δ͚Ͳॻ͚ͳ͍ͱ͔
   ΤίγεςϜ͕ڧ͍ ͱͯ΋
   'JHXIFFM
   Ͱ
   8FC1BDL
   ).3
   ͱಉ౳
   #SPXTFS
   3&1-
   Ͱϒϥ΢β؀ڥऔΕΔ
10. 3FBEFS$POEJUJPOBMT $MPKVSF
    
    ͔Β࢖͑ΔΑ͏ʹͳͬͨݴޠػೳ
    DMKD
    ֦ுࢠͰఆ͓ٛͯ͘͠ͱ
    
 $MPKVSF$MPKVSF4DSJQU
    ͲͪΒ͔Β΋ಡࠐՄೳ
    ݴޠಛ༗ͷ໰୊͚ͩΛࠩ෼ఆٛग़དྷΔ
11. ;; dates (.getTime #?(:clj (java.util.Date.) :cljs (js/Date.))) ;; uris #?( :clj (defn url-encode [string] (some-> string str (URLEncoder/encode "UTF-8") (.replace "+" "%20"))) :cljs (defn url-encode [string] (some-> string str (js/encodeURIComponent) (.replace "+" "%20")))) ;; reflection warnings #?(:clj (set! *warn-on-reflection* true)) 3FBEFS$POEJUJPOBMT
12. 5SBOTJU $MPKVSF
    Ͱ༗໊ͳ
    $PHOJUFDU
    ͷ࡞ͬͨ
 ৽͍͠σʔλϑΥʔϚοτ
    ϓϩάϥϜಉ࢜ͷίϛϡχέʔγϣϯʹ࢖͑Δ
    Ϣʔβʔఆٛܕ৘ใΛૹड৴͢Δ͜ͱ͕ग़དྷΔ
    ωετͨͨͩ͠ͷϚοϓ΍഑ྻͱάοόΠ
13. (ns transit-demo.core (:require [cognitect.transit :as transit]) (:import [java.io ByteArrayInputStream ByteArrayOutputStream])) (def custom-writer (transit/write-handler-map {Cart (transit/write-handler (constantly "cart") #(:items %)) Item (transit/write-handler (constantly "item") #(apply vector (vals %)))})) (def out (ByteArrayOutputStream. 4096)) (def writer (transit/writer out :json {:handlers custom-writer})) 5SBOTJU
14. (defprotocol Calculatable (calculate [x])) (defrecord Cart [items] Calculatable (calculate [self] (apply + (map calculate items)))) (defn new-cart [items] (map->Cart {:items items})) (defrecord Item [name price] Calculatable (calculate [self] (* price 1.08))) (defn new-item [name price] (map->Item {:name name, :price price})) 5SBOTJU
15. (def my-cart-data (new-cart [(new-item "Clojure Programming" 1000) (new-item "Clojure Applied" 2500)])) (transit/write writer my-cart-data) (.toString out) ;; => "[\"~#cart\",[[\"~#item\",[\"Clojure Programming\",1000]], ;; [\"^1\",[\"Clojure Applied\",2500]]]]" 5SBOTJU
16. (def custom-reader (transit/read-handler-map {"cart" (transit/read-handler new-cart) "item" (transit/read-handler #(apply new-item %))})) (def in (ByteArrayInputStream. (.toByteArray out))) (def reader (transit/reader in :json {:handlers custom-reader})) (def my-cart-data' (transit/read reader)) (calculate my-cart-data') ;; => 3780.0 5SBOTJU
17. ͭ·Γ 5SBOTJU
    8SJUFS3FBEFS 5ZQF
    
    3FDPSE DMK DMKD DMKT 1SPUPDPM 4FSWFS
    TJEF $MJFOU
    TJEF
18. །Ұͷܽ఺ 3BUJP
    ܕ͕
    $MPKVSF4DSJQU
    Ͱαϙʔτ͞Εͳ͍
    
    ϥΠϒϥϦͰղܾͰ͖ΔͷͰ໰୊ͳ͍
19. ·ͱΊ 5SBOTJU
    ϑΥʔϚοτͰγʔϜϨεʹ
 σʔλΛड͚౉ͤΔ
    3FBEFS$POEJUJPOBMT
    Ͱϑϩϯτͱαʔόʔα ΠυͰඞཁͳॲཧΛڞ௨Խग़དྷΔ
    $MPKVSF
    ࠷ߴʂ
20. Enjoy Clojure