http://www.perlmonks.org?node_id=406428


in reply to Golf: ROT-n

Fore! 38 strokes...
#23456789_123456789_123456789_12345678 $_=pop;for$x(1..pop){y/a-z/b-za/}print

UPDATE: Looking at other solutions inspired an improvement to 36 strokes.
#23456789_123456789_123456789_123456 $_=pop;eval"y/a-z/b-za/;"x pop;print

Replies are listed 'Best First'.
Re^2: Golf: ROT-n
by hardburn (Abbot) on Nov 09, 2004 at 19:05 UTC

    tilly++. Not the most efficient approach, but defiantely one I wouldn't have thought of.

    "There is no shame in being self-taught, only in not trying to learn in the first place." -- Atrus, Myst: The Book of D'ni.