Execute a Markov algorithm: Difference between revisions

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