OpenSource/GildedRose-Refactoring-Kata
1
0 Fork 0
mirror of https://github.com/emilybache/GildedRose-Refactoring-Kata.git synced 2026-10-13 17:49:25 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixes bug in Scheme version, not deeply nested enough.

Browse Source
This commit is contained in:
Peter Kofler committed 2018-12-03 22:45:26 +01:00
1 parent 2a64f7c460
commit 4807997dba
1 file changed
+5 -5
Download Patch File Download Diff File Expand all files Collapse all files
scheme/gilded-rose.scm
+5 -5
View File
@@ -25,11 +25,11 @@
(item-quality-set! item (+ (item-quality item) 1)) (item-quality-set! item (+ (item-quality item) 1))
(if (string=? (item-name item) "Backstage passes to a TAFKAL80ETC concert") (if (string=? (item-name item) "Backstage passes to a TAFKAL80ETC concert")
(if (< (item-sell-in item) 11) (if (< (item-sell-in item) 11)
(if (< (item-quality item) 50) (cond ((< (item-quality item) 50)
(item-quality-set! item (+ (item-quality item) 1)))) (item-quality-set! item (+ (item-quality item) 1))
(if (< (item-sell-in item) 6) (if (< (item-sell-in item) 6)
(if (< (item-quality item) 50) (if (< (item-quality item) 50)
(item-quality-set! item (+ (item-quality item) 1)))))))) (item-quality-set! item (+ (item-quality item) 1)))))))))))
(if (not (string=? (item-name item) "Sulfuras, Hand of Ragnaros")) (if (not (string=? (item-name item) "Sulfuras, Hand of Ragnaros"))
(item-sell-in-set! item (- (item-sell-in item) 1))) (item-sell-in-set! item (- (item-sell-in item) 1)))