mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-11 20:02:09 +00:00
ee775910b2
- logic of if statments changed to if not - removed min/max - Strings for Sulfuras and Backstage pass made to exactly match specification - Code structure is based more on the clojure version
38 lines
2.1 KiB
EmacsLisp
38 lines
2.1 KiB
EmacsLisp
(defun make-item (name sell-in quality)
|
|
"Create an item with NAME, SELL-IN, and QUALITY."
|
|
(list :name name :sell-in sell-in :quality quality))
|
|
|
|
(defun update-quality (items)
|
|
(dolist (item items)
|
|
(if (and (not (string= (plist-get (car item) :name) "Aged Brie"))
|
|
(not (string= (plist-get (car item) :name) "Backstage passes to a TAFKAL80ETC concert")))
|
|
|
|
(when (> (plist-get (car item) :quality) 0)
|
|
(when (not (string= (plist-get (car item) :name) "Sulfuras, Hand of Ragnaros"))
|
|
(setf (plist-get (car item) :quality) (1- (plist-get (car item) :quality)))))
|
|
|
|
(when (< (plist-get (car item) :quality) 50)
|
|
(setf (plist-get (car item) :quality) (1+ (plist-get (car item) :quality)))
|
|
(when (string= (plist-get (car item) :name) "Backstage passes to a TAFKAL80ETC concert")
|
|
(when (< (plist-get (car item) :sell-in) 11)
|
|
(when (< (plist-get (car item) :quality) 50)
|
|
(setf (plist-get (car item) :quality) (1+ (plist-get (car item) :quality)))))
|
|
(when (< (plist-get (car item) :sell-in) 6)
|
|
(when (< (plist-get (car item) :quality) 50)
|
|
(setf (plist-get (car item) :quality) (1+ (plist-get (car item) :quality)))))))
|
|
|
|
(when (not (string= (plist-get (car item) :name) "Sulfuras, Hand of Ragnaros"))
|
|
(setf (plist-get (car item) :sell-in) (1- (plist-get (car item) :sell-in))))
|
|
|
|
(when (< (plist-get (car item) :sell-in) 0)
|
|
(if (not (string= (plist-get (car item) :name) "Aged Brie"))
|
|
(if (not (string= (plist-get (car item) :name) "Backstage passes to a TAFKAL80ETC concert"))
|
|
(when (> (plist-get (car item) :quality) 0)
|
|
(when (not (string= (plist-get (car item) :name) "Sulfuras, Hand of Ragnaros"))
|
|
(setf (plist-get (car item) :quality) (1- (plist-get (car item) :quality)))))
|
|
(setf (plist-get (car item) :quality) 0))
|
|
(when (< (plist-get (car item) :quality) 50)
|
|
(setf (plist-get (car item) :quality) (1+ (plist-get (car item) :quality)))))))))
|
|
|
|
(provide 'gilded-rose)
|