Rot-13: Difference between revisions

→‎{{header|Raku}}: use rotate method
No edit summary
(→‎{{header|Raku}}: use rotate method)
Line 4,632:
=={{header|Raku}}==
(formerly Perl 6)
<syntaxhighlight lang="raku" line>putmy .trans: ['A'..'Z','a'..'z']@abc => ['N'..'Z','A'..'M','na'..'z','a'..'m'] for $*IN.lines</syntaxhighlight>;
my $abc = [@abc».uc, @abc];
put .trans: $abc => $abc».rotate(13) for lines</syntaxhighlight>
 
Input:
1,935

edits