83aca99ae4
Fixed a spelling mistake:
koans.23-meta 12:18
*succintly* -> succinctly
Have questions about line 13
(meta '^{:division "West"} Giants) ;;incorrect arity 2 for meta
43 lines
No EOL
1.3 KiB
Clojure
43 lines
No EOL
1.3 KiB
Clojure
(ns koans.16-refs
|
|
(:require [koan-engine.core :refer :all]))
|
|
|
|
(def the-world (ref "hello"))
|
|
(def bizarro-world (ref {}))
|
|
|
|
(meditations
|
|
"In the beginning, there was a word"
|
|
(= "hello" (deref the-world))
|
|
|
|
"You can get the word more succinctly, but it's the same"
|
|
(= "hello" @the-world)
|
|
|
|
"You can be the change you wish to see in the world." ;like it
|
|
(= "better" (do
|
|
(dosync (ref-set the-world "better"))
|
|
@the-world))
|
|
|
|
"Alter where you need not replace"
|
|
(= "better!!!" (let [exclamator (fn [x] (str x "!"))]
|
|
(dosync
|
|
(alter the-world exclamator)
|
|
(alter the-world exclamator)
|
|
(alter the-world exclamator))
|
|
@the-world))
|
|
|
|
"Don't forget to do your work in a transaction!"
|
|
(= 0 (do (dosync
|
|
(ref-set the-world 0))
|
|
@the-world))
|
|
|
|
"Functions passed to alter may depend on the data in the ref"
|
|
(= 20 (do
|
|
(dosync (alter the-world + 20))))
|
|
|
|
"Two worlds are better than one"
|
|
(= ["Real Jerry" "Bizarro Jerry"]
|
|
(do
|
|
(dosync
|
|
(ref-set the-world {})
|
|
(alter the-world assoc :jerry "Real Jerry")
|
|
(alter bizarro-world assoc :jerry "Bizarro Jerry")
|
|
(vec [(:jerry @the-world) (:jerry @bizarro-world)]))))) |