main ( -- )

Vocabulary

gilded-rose

Inputs

None

Outputs

None

Definition

USING: accessors command-line formatting io kernel make math
math.parser namespaces sequences ;

IN: gilded-rose

: main ( -- )
    "OMGHAI!" print [
        "+5 Dexterity Vest" 10 20 Item boa ,
        "Aged Brie" 2 0 Item boa ,
        "Elixir of the Mongoose" 5 7 Item boa ,
        "Sulfuras, Hand of Ragnaros" 0 80 Item boa ,
        "Sulfuras, Hand of Ragnaros" -1 80 Item boa ,
        "Backstage passes to a TAFKAL80ETC concert" 15 20 Item
        boa ,
        "Backstage passes to a TAFKAL80ETC concert" 10 49 Item
        boa ,
        "Backstage passes to a TAFKAL80ETC concert" 5 49 Item
        boa , "Conjured Mana Cake" 3 6 Item boa ,
    ] { } make GildedRose boa command-line get
    [ 2 ] [ first dec> ] if-empty [
        "-------- day %d --------\n" printf
        "name, sellIn, quality" print dup Items>>
        [ Item.ToString print ] each nl GildedRose.UpdateQuality
    ] with each-integer ;