OpenSource/GildedRose-Refactoring-Kata
1
0
Fork 0
mirror of https://github.com/emilybache/GildedRose-Refactoring-Kata.git synced 2025-12-12 04:12:13 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Make Scheme version work.

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

44
scheme/gilded-rose.scm
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))))))
(item-quality-set! item (+ (item-quality item) 1))))))
items))

15
scheme/texttest-feature.scm
View File

@ -2,6 +2,7 @@
(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)
@ -14,16 +15,18 @@
(make-item "Conjured Mana Cake" 3 6)))
(days 2))
(define (x day)
(cond ((<= day days)
(display "-------- day ~a --------~%" i)
(define (loop day)
(cond ((< day days)
(display (string-append "-------- day " (number->string day) " --------"))
(newline)
(display "name, sell-in, quality")
(newline)
(for-each (lambda (item)
(for-each
(lambda (item)
(display (item-to-string item))
(newline))
items)
(newline)
(update-quality items)
(x (- day 1)))))
(x 0))
(loop (+ day 1)))))
(loop 0))