Execute a Markov algorithm: Difference between revisions
m
→{{header|Perl}}: If we can't have 'qq', double quotes with backslashes will do.
(added comments to turing ruleset) |
Underscore (talk | contribs) m (→{{header|Perl}}: If we can't have 'qq', double quotes with backslashes will do.) |
||
Line 509:
<lang perl>@ARGV == 1 or die "Please provide exactly one source file as an argument.\n";
open my $source, '<', $ARGV[0] or die
my @rules;
while (<$source>)
| |||