Skip to content

Instantly share code, notes, and snippets.

@masak

masak/rot13

Created November 2, 2009 14:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save masak/224204 to your computer and use it in GitHub Desktop.
Save masak/224204 to your computer and use it in GitHub Desktop.
Download ZIP
rot13 in Perl 6
Raw
rot13
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.]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment