Execute CopyPasta Language: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: say not print) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 759:
say '';
}
unlink 'pasta.txt';</lang>▼
{{out}}▼
<pre>Rosetta Code▼
Rosetta Code▼
I'm the pasta.txt file.▼
Does not compute: Goto▼
CopyFile TheF*ckingCode Duplicate 2 Pasta!▼
CopyFile TheF*ckingCode Duplicate 2 Pasta!▼
Program never ends!</pre>▼
=={{header|Perl 6}}==▼
<lang perl6>sub CopyPasta ($code) {▼
my @code = $code.split("\n")>>.trim.grep: *.so;▼
return "Program never ends!" unless grep { $_ eq 'Pasta!' }, @code;▼
my @cb;▼
my $PC = 0;▼
loop {▼
given @code[$PC] {▼
when 'Copy' { @cb.push: @code[++$PC] }▼
when 'CopyFile' { $PC++; @cb.push: @code[$PC] eq 'TheF*ckingCode' ?? @code !! slurp @code[$PC] }▼
when 'Duplicate' { @cb = (flat @cb) xx @code[++$PC] }▼
when 'Pasta!' { return @cb }▼
default { return "Does not compute: @code[$PC]" }▼
}▼
$PC++;▼
}▼
}▼
spurt 'pasta.txt', "I'm the pasta.txt file.";▼
(say $_ for .&CopyPasta; say '')▼
for▼
"Copy \nRosetta Code\n\tDuplicate\n2\n\nPasta!\nLa Vista",▼
"CopyFile\npasta.txt\nDuplicate\n1\nPasta!",▼
"Copy\nInvalid\n Duplicate\n1\n\nGoto\n3\nPasta!",▼
"CopyFile\nTheF*ckingCode\nDuplicate\n2\nPasta!",▼
"Copy\nRosetta Code\nDuplicate\n2\n\nPasta";▼
unlink 'pasta.txt';</lang>
Line 1,034 ⟶ 991:
usage: copypasta.nq [filename.cp]
</pre>
(formerly Perl 6)
▲<lang perl6>sub CopyPasta ($code) {
▲ my @code = $code.split("\n")>>.trim.grep: *.so;
▲ return "Program never ends!" unless grep { $_ eq 'Pasta!' }, @code;
▲ my @cb;
▲ my $PC = 0;
▲ loop {
▲ given @code[$PC] {
▲ when 'Copy' { @cb.push: @code[++$PC] }
▲ when 'CopyFile' { $PC++; @cb.push: @code[$PC] eq 'TheF*ckingCode' ?? @code !! slurp @code[$PC] }
▲ when 'Duplicate' { @cb = (flat @cb) xx @code[++$PC] }
▲ when 'Pasta!' { return @cb }
▲ default { return "Does not compute: @code[$PC]" }
▲ }
▲ $PC++;
▲ }
▲}
▲spurt 'pasta.txt', "I'm the pasta.txt file.";
▲(say $_ for .&CopyPasta; say '')
▲ for
▲ "Copy \nRosetta Code\n\tDuplicate\n2\n\nPasta!\nLa Vista",
▲ "CopyFile\npasta.txt\nDuplicate\n1\nPasta!",
▲ "Copy\nInvalid\n Duplicate\n1\n\nGoto\n3\nPasta!",
▲ "CopyFile\nTheF*ckingCode\nDuplicate\n2\nPasta!",
▲ "Copy\nRosetta Code\nDuplicate\n2\n\nPasta";
▲unlink 'pasta.txt';</lang>
▲{{out}}
▲<pre>Rosetta Code
▲Rosetta Code
▲I'm the pasta.txt file.
▲Does not compute: Goto
▲CopyFile TheF*ckingCode Duplicate 2 Pasta!
▲CopyFile TheF*ckingCode Duplicate 2 Pasta!
▲Program never ends!</pre>
=={{header|zkl}}==
| |||