lsys←{                      ⍝ Lindenmayer L-system expansion.
    2≥|≡⍺:(⊂,⍺)∇ ⍵          ⍝ single production: enclose
    fms tos←↓⍉↑,⍺           ⍝ productions
    ∊((fms,⍵)⍳⍵)tos,⍵     ⍝ substitutions
}
code_colours

test script

Back to: notes

Back to: Workspaces