Execute CopyPasta Language: Difference between revisions

m
→‎{{header|Perl 6}}: simpler quoting
(Added Perl 6 example)
m (→‎{{header|Perl 6}}: simpler quoting)
Line 743:
}
 
spurt 'pasta.txt', "I'I amm the pasta.txt file.'";
 
(say $_ for .&CopyPasta; say '')
for
qq{"Copy \nRosetta Code\n\tDuplicate\n2\n\nPasta!\nLa Vista}",
qq{"CopyFile\npasta.txt\nDuplicate\n1\nPasta!}",
qq{"Copy\nInvalid\n Duplicate\n1\n\nGoto\n3\nPasta!}",
qq{"CopyFile\nTheF*ckingCode\nDuplicate\n2\nPasta!}",
qq{"Copy\nRosetta Code\nDuplicate\n2\n\nPasta}";
 
unlink 'pasta.txt';</lang>
Line 758:
Rosetta Code
 
I am'm the pasta.txt file.
 
Does not compute: Goto
2,392

edits