mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 04:12:13 +00:00
56 lines
3.1 KiB
Plaintext
56 lines
3.1 KiB
Plaintext
(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 main [& args]
|
|
(def num-days (scan-number (or (get args 1) "2")))
|
|
(print "OMGHAI!")
|
|
(def items
|
|
[@{ :name "+5 Dexterity Vest" :quality 20 :sell-in 10}
|
|
@{ :name "Aged Brie" :quality 0 :sell-in 2}
|
|
@{ :name "Elixir of the Mongoose" :quality 7 :sell-in 5}
|
|
@{ :name "Sulfuras, Hand of Ragnaros" :quality 80 :sell-in 0}
|
|
@{ :name "Sulfuras, Hand of Ragnaros" :quality 80 :sell-in -1}
|
|
@{ :name "Backstage passes to a TAFKAL80ETC concert" :quality 20 :sell-in 15}
|
|
@{ :name "Backstage passes to a TAFKAL80ETC concert" :quality 49 :sell-in 10}
|
|
@{ :name "Backstage passes to a TAFKAL80ETC concert" :quality 49 :sell-in 5}
|
|
@{ :name "Conjured Mana Cake" :quality 6 :sell-in 3}])
|
|
(for i 0 num-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))))
|