diff --git a/scheme/gilded-rose.scm b/scheme/gilded-rose.scm index 8a72f50e..dac984fa 100644 --- a/scheme/gilded-rose.scm +++ b/scheme/gilded-rose.scm @@ -25,11 +25,11 @@ (item-quality-set! item (+ (item-quality item) 1)) (if (string=? (item-name item) "Backstage passes to a TAFKAL80ETC concert") (if (< (item-sell-in item) 11) - (if (< (item-quality item) 50) - (item-quality-set! item (+ (item-quality item) 1)))) - (if (< (item-sell-in item) 6) - (if (< (item-quality item) 50) - (item-quality-set! item (+ (item-quality item) 1)))))))) + (cond ((< (item-quality item) 50) + (item-quality-set! item (+ (item-quality item) 1)) + (if (< (item-sell-in item) 6) + (if (< (item-quality item) 50) + (item-quality-set! item (+ (item-quality item) 1))))))))))) (if (not (string=? (item-name item) "Sulfuras, Hand of Ragnaros")) (item-sell-in-set! item (- (item-sell-in item) 1)))