mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 12:22:12 +00:00
47 lines
1.5 KiB
Clojure
47 lines
1.5 KiB
Clojure
(ns gilded.core)
|
|
|
|
(defn make-store [items]
|
|
(assert (vector? items))
|
|
(->> items
|
|
(map (fn [item] (atom item)))
|
|
vec))
|
|
|
|
(defn item-seq [store]
|
|
(->> store
|
|
(map deref)))
|
|
;; ---
|
|
|
|
(defn update-quality! [store]
|
|
(doseq [item store]
|
|
(if (and (not (= (:name @item)
|
|
"Aged Brie"))
|
|
(not (= (:name @item)
|
|
"Backstage passes to a TAFKAL80ETC concert")))
|
|
|
|
(when (> (:quality @item) 0)
|
|
(when (not (= (:name @item) "Sulfuras, Hand of Ragnaros"))
|
|
(swap! item update :quality #(- % 1))))
|
|
|
|
(when (< (:quality @item) 50)
|
|
(swap! item update :quality #(+ % 1))
|
|
(when (= (:name @item) "Backstage passes to a TAFKAL80ETC concert")
|
|
(when (< (:sell-in @item) 11)
|
|
(when (< (:quality @item) 50)
|
|
(swap! item update :quality #(+ % 1))))
|
|
(when (< (:sell-in @item) 6)
|
|
(when (< (:quality @item) 50)
|
|
(swap! item update :quality #(+ % 1)))))))
|
|
|
|
(when (not (= (:name @item) "Sulfuras, Hand of Ragnaros"))
|
|
(swap! item update :sell-in #(- % 1)))
|
|
|
|
(when (< (:sell-in @item) 0)
|
|
(if (not (= (:name @item) "Aged Brie"))
|
|
(if (not (= (:name @item) "Backstage passes to a TAFKAL80ETC concert"))
|
|
(when (> (:quality @item) 0)
|
|
(when (not (= (:name @item) "Sulfuras, Hand of Ragnaros"))
|
|
(swap! item update :quality #(- % 1))))
|
|
(swap! item update :quality #(- % %)))
|
|
(when (< (:quality @item) 50)
|
|
(swap! item update :quality #(+ % 1)))))))
|