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

First draft of Scheme port.

Browse Source
This commit is contained in:
Peter Kofler committed 2018-12-03 01:15:24 +01:00
1 parent 60b2549066
commit c0a6824275
2 files changed
+75
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

scheme/gilded-rose.scm
+46
View File
@@ -0,0 +1,46 @@
;;; 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 (item-to-string item)
(string-append (item-name item)
", "
(number->string (item-sell-in item))
", "
(number->string (item-quality item))))
;;; Class 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 (> (item-quality item) 0)
(if (not (string-= (item-name item) "Sulfuras, Hand of Ragnaros"))
(set-item-quality! 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)
(if (< (item-quality item) 50)
(set-item-quality! item (+ (item-quality item) 1))))
(if (< sell-in 6)
(if (< (item-quality item) 50)
(set-item-quality! 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 (< (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 (> (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 (< (item-quality item) 50)
(set-item-quality! item (+ (item-quality item) 1))))))
items))