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

Make Scheme version work.

Browse Source
This commit is contained in:
Peter Kofler committed 2018-12-03 21:03:48 +01:00
1 parent c0a6824275
commit 1c530189bd
2 files changed
+35 -32
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

scheme/gilded-rose.scm
+23 -23
View File
@@ -1,8 +1,8 @@
;;; Class ITEM
(define-structure item
(name sell-in quality))
;; defines make-item, item?, item-name, item-sell-in, item-quality, set-item-name!, set-item-sell-in!, set-item-quality!
(define-record-type item (make-item name sell-in quality) item? name sell-in quality)
;; define-record-type ... SRFI-9
;; creates make-item, item?, item-name, item-sell-in, item-quality, item-name-set!, item-sell-in-set!, item-quality-set!
(define (item-to-string item)
(string-append (item-name item)
@@ -11,36 +11,36 @@
", "
(number->string (item-quality item))))
;;; Class GILDED-ROSE
;;; GILDED-ROSE
(define (update-quality items)
(for-each
(lambda (item)
(if (and (not (string-= (item-name item) "Aged Brie"))
(not (string-= (item-name item) "Backstage passes to a TAFKAL80ETC concert")))
(if (and (not (string=? (item-name item) "Aged Brie"))
(not (string=? (item-name item) "Backstage passes to a TAFKAL80ETC concert")))
(if (> (item-quality item) 0)
(if (not (string-= (item-name item) "Sulfuras, Hand of Ragnaros"))
(set-item-quality! item (- (item-quality item) 1))))
(if (not (string=? (item-name item) "Sulfuras, Hand of Ragnaros"))
(item-quality-set! item (- (item-quality item) 1))))
(cond ((< (item-quality item) 50)
(set-item-quality! item (+ (item-quality item) 1))
(if (string-= (item-name item) "Backstage passes to a TAFKAL80ETC concert")
(if (< sell-in 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)
(set-item-quality! item (+ (item-quality item) 1))))
(if (< sell-in 6)
(item-quality-set! item (+ (item-quality item) 1))))
(if (< (item-sell-in item) 6)
(if (< (item-quality item) 50)
(set-item-quality! item (+ (item-quality item) 1))))))))
(item-quality-set! item (+ (item-quality item) 1))))))))
(if (not (string-= (item-name item) "Sulfuras, Hand of Ragnaros"))
(set-item-sell-in! item (- (item-sell-in item) 1)))
(if (not (string=? (item-name item) "Sulfuras, Hand of Ragnaros"))
(item-sell-in-set! item (- (item-sell-in item) 1)))
(if (< (item-sell-in item) 0)
(if (not (string-= (item-name item) "Aged Brie"))
(if (not (string-= (item-name item) "Backstage passes to a TAFKAL80ETC concert"))
(if (not (string=? (item-name item) "Aged Brie"))
(if (not (string=? (item-name item) "Backstage passes to a TAFKAL80ETC concert"))
(if (> (item-quality item) 0)
(if (not (string-= (item-name item) "Sulfuras, Hand of Ragnaros"))
(set-item-quality! item (- (item-quality item) 1))))
(set-item-quality! item (- (item-quality item) (item-quality item))))
(if (not (string=? (item-name item) "Sulfuras, Hand of Ragnaros"))
(item-quality-set! item (- (item-quality item) 1))))
(item-quality-set! item (- (item-quality item) (item-quality item))))
(if (< (item-quality item) 50)
(set-item-quality! item (+ (item-quality item) 1))))))
items))
(item-quality-set! item (+ (item-quality item) 1))))))
items))