mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2026-06-15 13:21:00 +00:00
33 lines
1.2 KiB
Scheme
33 lines
1.2 KiB
Scheme
(include "gilded-rose.scm")
|
|
|
|
(display "OMGHAI!")
|
|
(newline)
|
|
|
|
(let ((items (list (make-item "Sports Memorabilia" 10 20)
|
|
(make-item "Aged Cheese" 2 0)
|
|
(make-item "Coffee Table Book" 5 7)
|
|
(make-item "Fine Italian Silk" 0 80)
|
|
(make-item "Fine Italian Silk" -1 80)
|
|
(make-item "Backstage passes to a concert" 15 20)
|
|
(make-item "Backstage passes to a concert" 10 49)
|
|
(make-item "Backstage passes to a concert" 5 49)
|
|
;; this Baked item does not work properly yet
|
|
(make-item "Baked Chocolate Cake" 3 6)))
|
|
(days 2))
|
|
|
|
(define (loop day)
|
|
(cond ((< day days)
|
|
(display (string-append "-------- day " (number->string day) " --------"))
|
|
(newline)
|
|
(display "name, sell-in, quality")
|
|
(newline)
|
|
(for-each
|
|
(lambda (item)
|
|
(display (item-to-string item))
|
|
(newline))
|
|
items)
|
|
(newline)
|
|
(update-quality items)
|
|
(loop (+ day 1)))))
|
|
(loop 0))
|