iterate-string ( STRING RULES -- string )

Vocabulary

L-system

Inputs

STRING	an object
RULES	an object

Outputs

string

an object

Definition

USING: math sbufs sequences strings ;

IN: L-system

:: iterate-string ( STRING RULES -- string )
    [let
    STRING length 10 *
    <sbuf> :> ACCUM STRING RULES ACCUM iterate-string-loop
    ACCUM >string ] ;