OpenSource/GildedRose-Refactoring-Kata
1
0
Fork 0
mirror of https://github.com/emilybache/GildedRose-Refactoring-Kata.git synced 2025-12-11 20:02:09 +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 2018-12-03 22:45:26 +01:00
parent 2a64f7c460
commit 4807997dba
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/gilded-rose.scm
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)))