Anonymous user
Execute a Markov algorithm: Difference between revisions
m
→{{header|J}}
(C) |
m (→{{header|J}}) |
||
Line 412:
'''Solution''':<lang j>require'strings regex'
markovLexer
rules =. LF cut TAB&=`(,:&' ')}y
rules =. a: -.~ (dltb@:{.~ i:&'#')&.> rules
Line 420:
replace
'index patternLength replacement'=. x
'head tail' =. index split y
Line 426:
)
matches
ruleIdx =. 0 [ rules =. markovLexer x
while. ruleIdx < #rules do.
| |||