public
Last active

rot13 in Perl 6

  • Download Gist
rot13
1 2 3 4 5
sub rot13($_) { .trans: 'A..Za..z' => 'N..ZA..Mn..za..m' }
 
say(rot13($_)) for
q[V'ir zrnfherq vg sebz fvqr gb fvqr:],
q['Gvf guerr srrg ybat, naq gjb srrg jvqr.]

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.