2011-04-29 20:34:17 +00:00
|
|
|
(defn explain-defcon-level [exercise-term]
|
|
|
|
|
(case exercise-term
|
|
|
|
|
:fade-out :you-and-what-army
|
|
|
|
|
:double-take :call-me-when-its-important
|
|
|
|
|
:round-house :o-rly
|
|
|
|
|
:fast-pace :thats-pretty-bad
|
|
|
|
|
:cocked-pistol :sirens
|
|
|
|
|
:say-what?))
|
|
|
|
|
|
2010-02-09 23:37:22 +00:00
|
|
|
(meditations
|
2010-05-07 02:56:43 +00:00
|
|
|
"You will face many decisions"
|
2010-11-03 03:29:45 +00:00
|
|
|
(= __ (if (false? (= 4 5))
|
|
|
|
|
:a
|
|
|
|
|
:b))
|
2010-02-09 23:37:22 +00:00
|
|
|
|
|
|
|
|
"Some of them leave you no alternative"
|
2010-11-03 03:29:45 +00:00
|
|
|
(= __ (if (> 4 3)
|
|
|
|
|
[]))
|
2010-02-09 23:37:22 +00:00
|
|
|
|
2011-04-29 20:34:17 +00:00
|
|
|
"And in such a situation you may have nothing"
|
2011-06-09 21:27:59 +00:00
|
|
|
(= __ (if (nil? 0)
|
2010-11-03 03:29:45 +00:00
|
|
|
[:a :b :c]))
|
2010-05-07 02:56:43 +00:00
|
|
|
|
|
|
|
|
"In others your alternative may be interesting"
|
2010-11-03 03:29:45 +00:00
|
|
|
(= :glory (if (not (empty? ()))
|
|
|
|
|
:doom
|
|
|
|
|
__))
|
2010-05-07 02:56:43 +00:00
|
|
|
|
2010-11-04 01:38:20 +00:00
|
|
|
"You may have a multitude of possible paths"
|
|
|
|
|
(let [x 5]
|
2011-09-23 16:59:29 +00:00
|
|
|
(= :your-road (cond (= x __) :road-not-taken
|
|
|
|
|
(= x __) :another-road-not-taken
|
2010-11-04 01:38:20 +00:00
|
|
|
:else __)))
|
|
|
|
|
|
2010-05-07 02:56:43 +00:00
|
|
|
"Or your fate may be sealed"
|
2010-11-03 03:29:45 +00:00
|
|
|
(= __ (if-not (zero? __)
|
|
|
|
|
'doom
|
2011-04-29 20:34:17 +00:00
|
|
|
'doom))
|
|
|
|
|
|
|
|
|
|
"In case of emergency, sound the alarms"
|
|
|
|
|
(= :sirens
|
|
|
|
|
(explain-defcon-level __))
|
|
|
|
|
|
|
|
|
|
"But admit it when you don't know what to do"
|
|
|
|
|
(= __
|
|
|
|
|
(explain-defcon-level :yo-mama)))
|
2010-02-09 23:37:22 +00:00
|
|
|
|
