Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Golf: ROT-n

by fruiture (Curate)
on Nov 09, 2004 at 17:41 UTC ( #406407=note: print w/replies, xml ) Need Help??


in reply to Golf: ROT-n

I couldn't find a shorter solution for the character-based approach. So this is different, maybe it can be made even shorter than 54.

# 1 2 3 4 5 # 3456789 123456789 123456789 123456789 123456789 123456789 eval'tr/a-z/'.chr(97+shift).'-za-z/for@ARGV;print pop'

update: changed spoiler hiding to standard way.

--
http://fruiture.de

Replies are listed 'Best First'.
Re^2: Golf: ROT-n
by dragonchild (Archbishop) on Nov 09, 2004 at 18:19 UTC
    Nicely done. I always forget the ins-and-outs of tr///. A few improvements:
    # 1 2 3 4 5 # 3456789 123456789 123456789 123456789 123456789 123456789 $_=pop;eval'y/a-z/'.chr(97+pop).'-za-z/';print

    And you're at 46 strokes

    Being right, does not endow the right to be rude; politeness costs nothing.
    Being unknowing, is not the same as being stupid.
    Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
    Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

      Hot++, i was currently at 50 (or 49) strokes. I never think of tr/// vs y///, though (successfully forgot about y/// for readability).

      # 1 2 3 4 5 # 3456789 123456789 123456789 123456789 123456789 123456789 eval'tr/a-z/'.chr(97+shift).'-za-z/,print for pop'
      --
      http://fruiture.de

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://406407]
help
Chatterbox?
[1nickt]: Discipulus that was the point of my story of taking the sticker off my truck. I know there are lots of people in the world who if I knw their private beliefs I might want to argue with them. And they with me. But life cannot all be arguments!
[1nickt]: This is less than perfect ... but demanding perfection (from people or from life) is a sure way to unhappiness.
[Discipulus]: and anyway we have CB where every (democratic) opinion can be expressed
erix eat the rich!
[1nickt]: I do think it is sad that roho has received 3 downvotes for his polite request, as did I when I objected to the profanity in stonecolddevin's sig. I upvoted both him and Karl for the discussion. Way too much downvoting for inappropriate reasons here!
Discipulus learn that 'argue' has a little negative sense, he thought was a neutral sense, 'vox media'
[1nickt]: argue == discuss && argue == be contentious
[Discipulus]: you are right 1nickt i didnt voted nor downvoted; I just upvote perl content i like
[1nickt]: In Spanish, to argue (like a fight) is discutir -- does not mean to discuss !
[1nickt]: Sigh, this is why I gave up human-only languages and became a Perl linguist :-)

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2017-06-22 12:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (519 votes). Check out past polls.