From 4807997dbabfdc9b94677939b028d40942850108 Mon Sep 17 00:00:00 2001 From: Peter Kofler Date: Mon, 3 Dec 2018 22:45:26 +0100 Subject: [PATCH] Fixes bug in Scheme version, not deeply nested enough. --- scheme/gilded-rose.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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)))