mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 04:12:13 +00:00
47 lines
2.5 KiB
Plaintext
47 lines
2.5 KiB
Plaintext
(defn item [name quality sell-in] @{:name name :quality quality :sell-in sell-in})
|
|
|
|
(defn update-quality [items]
|
|
(for i 0 (length items)
|
|
(if (and
|
|
(not (= "Aged Brie" ((get items i) :name)))
|
|
(not (= "Backstage passes to a TAFKAL80ETC concert" ((get items i) :name))))
|
|
(if (< 0 ((get items i) :quality))
|
|
(if (not (= "Sulfuras, Hand of Ragnaros" ((get items i) :name)))
|
|
(put (get items i) :quality (- ((get items i) :quality) 1))))
|
|
(if (> 50 ((get items i) :quality))
|
|
(do
|
|
(put (get items i) :quality (+ ((get items i) :quality) 1))
|
|
(if (= "Backstage passes to a TAFKAL80ETC concert" ((get items i) :name))
|
|
(do
|
|
(if (> 11 ((get items i) :sell-in))
|
|
(if (> 50 ((get items i) :quality))
|
|
(put (get items i) :quality (+ ((get items i) :quality) 1))))
|
|
(if (> 6 ((get items i) :sell-in))
|
|
(if (> 50 ((get items i) :quality))
|
|
(put (get items i) :quality (+ ((get items i) :quality) 1)))))))))
|
|
(if (not (= "Sulfuras, Hand of Ragnaros" ((get items i) :name)))
|
|
(put (get items i) :sell-in (- ((get items i) :sell-in) 1)))
|
|
(if (> 0 ((get items i) :sell-in))
|
|
(if (not (= "Aged Brie" ((get items i) :name)))
|
|
(if (not (= "Backstage passes to a TAFKAL80ETC concert" ((get items i) :name)))
|
|
(if (< 0 ((get items i) :quality))
|
|
(if (not (= "Sulfuras, Hand of Ragnaros" ((get items i) :name)))
|
|
(put (get items i) :quality (- ((get items i) :quality) 1))))
|
|
(put (get items i) :quality (- ((get items i) :quality) ((get items i) :quality))))
|
|
(if (> 50 ((get items i) :quality))
|
|
(put (get items i) :quality (+ ((get items i) :quality) 1)))))))
|
|
|
|
(defn- item-to-str [x]
|
|
(string (get x :name) ", " (get x :sell-in) ", " (get x :quality)))
|
|
|
|
(defn run [days items]
|
|
(print "OMGHAI!")
|
|
(for i 0 (+ 1 days)
|
|
(do
|
|
(print (string "-------- day " i " --------"))
|
|
(print "name, sellIn, quality")
|
|
(for j 0 (length items)
|
|
(print (item-to-str (get items j))))
|
|
(print "")
|
|
(update-quality items))))
|