iterate-string-loop ( STRING RULES ACCUM -- )

Vocabulary

L-system

Inputs

STRING	an object
RULES	an object
ACCUM	an object

Outputs

None

Definition

USING: assocs kernel sequences ;

IN: L-system

:: iterate-string-loop ( STRING RULES ACCUM -- )
    STRING empty? not [
        [let
        STRING read-instruction :> ( NEXT REST ) NEXT 1 head
        RULES at NEXT or ACCUM push-all
        REST RULES ACCUM iterate-string-loop ]
    ] when ;