(parse-model) ( vs is -- vs is )

Vocabulary

bunny.model

Inputs

vs	an object
is	an object

Outputs

vs	an object
is	an object

Definition

USING: combinators io kernel sequences ;

IN: bunny.model

: (parse-model) ( vs is -- vs is )
    readln [
        numbers {
            { [ dup length 5 = ] [ 3 head pick push ] }
            { [ dup first 3 = ] [ rest over push ] }
            [ drop ]
        } cond (parse-model)
    ] when* ;