Code: Select all
(def conan (atom {:power 89 :health 100 :magic 12}))
(:power @conan)
(:health @conan)
(:magic @conan)
(defn flask-of-badassity [a]
(let [p (:power @a)]
(swap! a assoc :power (inc p))))Code: Select all
user> (flask-of-badassity conan)
{:magic 12, :power 90, :health 100}Code: Select all
#!/bin/bash
declare -A conan=( [strength]=11 [sexyness]=8 [unicorn]=0 )
function flask {
echo "Conan has acquired the Flask of Badassity!"
conan[unicorn]=1
echo "Conan now has a unicorn!"
echo
echo "This is Conan now:"
echo
for c in "${!conan[@]}"; do
echo "$c : ${conan[$c]}"
done
}
if [ "$1" == "flask" ]; then
flask
fi
Code: Select all
[19:32:07]$ conan flask
Conan has acquired the Flask of Badassity!
Conan now has a unicorn!
This is Conan now:
unicorn : 1
sexyness : 8
strength : 11
Code: Select all
(defn new-char [id & {:as specific-stats}]
;; create new character
(ref (merge {:id id :hp (rand-int 1000) :dmg (rand-int 100)} specific-stats)))
(def conan-the-barbie (new-char "Conan The Barbarian"
:manliness 20
:testosterone 16
:beard-length-in-meters 11))
@conan-the-barbie ;; recall stats
(fn flask-of-badassity []
(dosync
(alter conan-the-barbie update-in [:manliness] inc)
(alter conan-the-barbie update-in [:beard-length-in-meters] inc))
Code: Select all
(defn juggle-string-from-y [x y]
;; juggle the string x from point y
(vector
(get x y)
(into [] (concat
(take y x)
(take-last (dec (- (count x) y)) x)))))
(defn combinate-string [a b]
;; put each letter as the first letter in the specified string
;; recur it for each letter
(cond
(empty? b) a
:else (for [[x y] (map (partial juggle-string-from-y b)
(range (count b)))]
(combinate-string (conj a x) y))))
(defn word-combinations [word]
;; pass the result of combinate-string function
;; to create plausible versions of the entered string
(map (fn [w] (apply str w))
(partition (count word)
(flatten (combinate-string [] (vec word))))))
