Create a gist now

Instantly share code, notes, and snippets.

@masak /rot13
Created Nov 2, 2009

What would you like to do?
rot13 in Perl 6
sub rot13($_) { .trans: 'A..Za..z' => '' }
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