Advertisement
Guest User

Untitled

a guest
Nov 17th, 2019
151
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (def john {:name "John"
  2.            :age 17
  3.            :isZoomer? true
  4.            "random-key" 'ok})
  5.  
  6. (:name john) ;; "John"
  7.  
  8. (john :age) ;; 17
  9.  
  10. (john "random-key") ;; ok
  11.  
  12. (def cases
  13.   {10 (partial * 30)
  14.    20 (partial / 10)
  15.    0 (partial + 1)})
  16.  
  17. (defn check [num]
  18.   (let [func (cases num)]
  19.     (func num)))
  20.  
  21. (assoc john :number "912302309")
  22. ;; {:name "John",
  23. ;;  :age 17,
  24. ;;  :isZoomer? true,
  25. ;;  "random" ok,
  26. ;;  :number "912302309")
  27.  
  28. (dissoc john :isZoomer?)
  29. ;; {:name "John"
  30. ;;  :age 17
  31. ;;  "random-key" ok}
  32.  
  33. (select-keys john [:name :age])
  34. ;; {:name "John", :age 17}
  35.  
  36. (merge john {:country "Murica" :state "Florida"})
  37. ;; {:name "John",
  38. ;;  :age 17,
  39. ;;  :isZoomer? true,
  40. ;;  "random-key" ok,
  41. ;;  :country "Murica",
  42. ;;  :state "Florida"}
  43.  
  44. (update john :age inc)
  45. ;; {:name "John"
  46. ;;  :age 18
  47. ;;  :isZoomer? true
  48. ;;  "random-key" ok}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement