OpenSource/GildedRose-Refactoring-Kata
1
0
Fork 0
mirror of https://github.com/emilybache/GildedRose-Refactoring-Kata.git synced 2025-12-12 04:12:13 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Removed car

Browse Source 
Removed unnecessary car from update-quality
This commit is contained in:
mgd 2024-10-16 23:12:23 +01:00 committed by Peter Kofler
parent ee775910b2
commit 142a489da0
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
elisp/gilded-rose.el
View File

@ -4,34 +4,34 @@
(defun update-quality (items) (defun update-quality (items)
(dolist (item items) (dolist (item items)
(if (and (not (string= (plist-get (car item) :name) "Aged Brie")) (if (and (not (string= (plist-get item :name) "Aged Brie"))
(not (string= (plist-get (car item) :name) "Backstage passes to a TAFKAL80ETC concert"))) (not (string= (plist-get item :name) "Backstage passes to a TAFKAL80ETC concert")))
(when (> (plist-get (car item) :quality) 0) (when (> (plist-get item :quality) 0)
(when (not (string= (plist-get (car item) :name) "Sulfuras, Hand of Ragnaros")) (when (not (string= (plist-get item :name) "Sulfuras, Hand of Ragnaros"))
(setf (plist-get (car item) :quality) (1- (plist-get (car item) :quality))))) (setf (plist-get item :quality) (1- (plist-get item :quality)))))
(when (< (plist-get (car item) :quality) 50) (when (< (plist-get item :quality) 50)
(setf (plist-get (car item) :quality) (1+ (plist-get (car item) :quality))) (setf (plist-get item :quality) (1+ (plist-get item :quality)))
(when (string= (plist-get (car item) :name) "Backstage passes to a TAFKAL80ETC concert") (when (string= (plist-get item :name) "Backstage passes to a TAFKAL80ETC concert")
(when (< (plist-get (car item) :sell-in) 11) (when (< (plist-get item :sell-in) 11)
(when (< (plist-get (car item) :quality) 50) (when (< (plist-get item :quality) 50)
(setf (plist-get (car item) :quality) (1+ (plist-get (car item) :quality))))) (setf (plist-get item :quality) (1+ (plist-get item :quality)))))
(when (< (plist-get (car item) :sell-in) 6) (when (< (plist-get item :sell-in) 6)
(when (< (plist-get (car item) :quality) 50) (when (< (plist-get item :quality) 50)
(setf (plist-get (car item) :quality) (1+ (plist-get (car item) :quality))))))) (setf (plist-get item :quality) (1+ (plist-get item :quality)))))))
(when (not (string= (plist-get (car item) :name) "Sulfuras, Hand of Ragnaros")) (when (not (string= (plist-get item :name) "Sulfuras, Hand of Ragnaros"))
(setf (plist-get (car item) :sell-in) (1- (plist-get (car item) :sell-in)))) (setf (plist-get item :sell-in) (1- (plist-get item :sell-in))))
(when (< (plist-get (car item) :sell-in) 0) (when (< (plist-get item :sell-in) 0)
(if (not (string= (plist-get (car item) :name) "Aged Brie")) (if (not (string= (plist-get item :name) "Aged Brie"))
(if (not (string= (plist-get (car item) :name) "Backstage passes to a TAFKAL80ETC concert")) (if (not (string= (plist-get item :name) "Backstage passes to a TAFKAL80ETC concert"))
(when (> (plist-get (car item) :quality) 0) (when (> (plist-get item :quality) 0)
(when (not (string= (plist-get (car item) :name) "Sulfuras, Hand of Ragnaros")) (when (not (string= (plist-get item :name) "Sulfuras, Hand of Ragnaros"))
(setf (plist-get (car item) :quality) (1- (plist-get (car item) :quality))))) (setf (plist-get item :quality) (1- (plist-get item :quality)))))
(setf (plist-get (car item) :quality) 0)) (setf (plist-get item :quality) 0))
(when (< (plist-get (car item) :quality) 50) (when (< (plist-get item :quality) 50)
(setf (plist-get (car item) :quality) (1+ (plist-get (car item) :quality))))))))) (setf (plist-get item :quality) (1+ (plist-get item :quality)))))))))
(provide 'gilded-rose) (provide 'gilded-rose)