read-instruction ( STRING -- next rest )

Vocabulary

L-system

Inputs

STRING

an object

Outputs

next	an object
rest	an object

Definition

USING: combinators.short-circuit kernel math sequences ;

IN: L-system

:: read-instruction ( STRING -- next rest )
    { [ STRING length 1 > ] [ STRING second open-paren? ] } 0&&
    [ STRING close-paren STRING index 1 + cut ] [ STRING 1 cut ]
    if ;