Rot-13: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Wutang (talk | contribs)
291 edits
No edit summary
Grondilu (talk | contribs)
1,935 edits
→‎{{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:
Retrieved from "https://rosettacode.org/wiki/Rot-13"