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

First draft of Scheme port.

Browse Source
This commit is contained in:
Peter Kofler 2018-12-03 01:15:24 +01:00
parent 60b2549066
commit c0a6824275
2 changed files with 75 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
scheme/gilded-rose.scm Normal file
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))

29
scheme/texttest-feature.scm Normal file
View File

@ -0,0 +1,29 @@
(include "gilded-rose.scm")
(display "OMGHAI!")
(newline)
(let ((items (list (make-item "+5 Dexterity Vest" 10 20)
(make-item "Aged Brie" 2 0)
(make-item "Elixir of the Mongoose" 5 7)
(make-item "Sulfuras, Hand of Ragnaros" 0 80)
(make-item "Sulfuras, Hand of Ragnaros" -1 80)
(make-item "Backstage passes to a TAFKAL80ETC concert" 15 20)
(make-item "Backstage passes to a TAFKAL80ETC concert" 10 49)
(make-item "Backstage passes to a TAFKAL80ETC concert" 5 49)
;; this conjured item does not work properly yet
(make-item "Conjured Mana Cake" 3 6)))
(days 2))
(define (x day)
(cond ((<= day days)
(display "-------- day ~a --------~%" i)
(newline)
(display "name, sell-in, quality")
(newline)
(for-each (lambda (item)
(display (item-to-string item))
(newline))
items)
(update-quality items)
(x (- day 1)))))
(x 0))