You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
822 B
Clojure
34 lines
822 B
Clojure
(ns koans.17-atoms
|
|
(:require [koan-engine.core :refer :all]))
|
|
|
|
(def atomic-clock (atom 0))
|
|
|
|
(meditations
|
|
"Atoms are like refs"
|
|
(= 0 @atomic-clock)
|
|
|
|
"You can change at the swap meet"
|
|
(= 1 (do
|
|
(swap! atomic-clock inc)
|
|
@atomic-clock))
|
|
|
|
"Keep taxes out of this: swapping requires no transaction"
|
|
(= 5 (do
|
|
(swap! atomic-clock + 4)
|
|
@atomic-clock))
|
|
|
|
"Any number of arguments might happen during a swap"
|
|
(= 20 (do
|
|
(swap! atomic-clock + 1 2 3 4 5)
|
|
@atomic-clock))
|
|
|
|
"Atomic atoms are atomic"
|
|
(= 20 (do
|
|
(compare-and-set! atomic-clock 100 :fin)
|
|
@atomic-clock))
|
|
|
|
"When your expectations are aligned with reality, things proceed that way"
|
|
(= :fin (do
|
|
(compare-and-set! atomic-clock 20 :fin)
|
|
@atomic-clock)))
|