my @abc = 'a'..'z'; my $abc = [@abc».uc, @abc]; put .trans: $abc => $abc».rotate(13) for lines
Rosetta Code
Ebfrggn Pbqr
As a one-liner:
$ raku -pe '.=trans: {$_ => $_».rotate(13)}({[$_».uc, @$_]}("a".."z"))'
Last updated 11 months ago