Execute a Markov algorithm: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 1,088: | Line 1,088: | ||
procedure loadRules(f) |
procedure loadRules(f) |
||
static WS |
|||
initial WS := ' \t' |
|||
rules := [] |
rules := [] |
||
every !f ? if not ="#" then put(rules, |
every !f ? if not ="#" then put(rules, |
||
rule(1(trim(tab(find("->"))),move(2),tab(many( |
rule(1(trim(tab(find("->"))),move(2),tab(many(' \t'))), |
||
(="."|&null), trim(tab(0)))) |
(="."|&null), trim(tab(0)))) |
||
return rules |
return rules |
||