Golf: ROT-n

#23456789_123456789_123456789_12345678
$_=pop;for$x(1..pop){y/a-z/b-za/}print
[download]

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
[download]

[reply]
[d/l]
[select]

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.

[reply]

rotn.pl 4 xyz
----
|}~
[download]

It should return 'bcd'. The immediate un-golf'ed fix would be:

print chr(((ord()+$n-ord('a'))%26)+ord('a'))for@_
[download]

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.

[reply]
[d/l]
[select]

#        1         2         3         4         5
# 3456789 123456789 123456789 123456789 123456789 1234567890
$n=shift;print chr(($n-97+ord)%26+97)for split//,pop
[download]

Update:

# 1 2 3 4 5 # 3456789 123456789 123456789 123456789 123456789 1234567890 print chr 97+($ARGV[0]-97+ord)%26for pop=~/./g
[download]

46 strokes

Update:

# 1 2 3 4 5 # 3456789 123456789 123456789 123456789 123456789 1234567890 print chr 97+($ARGV[0]+7+ord)%26for pop=~/./g
[download]

45 strokes, thanks to cLive_;-)

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.

[reply]
[d/l]
[select]

cLive ;-)

[reply]

Update: Duh! :-)

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.

[reply]

# 345678 1 2345678 2 2345678 3 2345678 4 2345678 
y/a-z/b-za/for($\=pop)x+pop;print
[download]

[reply]
[d/l]

# 345678 1 2345678 2 2345678 3 2345678 4 2345678 
y//-za/cfor($_=pop)x+pop;print
(that's \001 as start of the range)
[download]

[reply]
[d/l]

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'
[download]

update: changed spoiler hiding to standard way.

--
http://fruiture.de

[reply]
[d/l]

#        1         2         3         4         5
# 3456789 123456789 123456789 123456789 123456789 123456789
$_=pop;eval'y/a-z/'.chr(97+pop).'-za-z/';print
[download]

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.

[reply]
[d/l]

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'
[download]

--
http://fruiture.de

[reply]
[d/l]

I could make it to 37.

#        1         2         3
# 3456789 123456789 123456789 123456789
print map{chr$ARGV[0]+ord}split//,pop
# sadly i could not come up with a split-less soution that 
# is short enough
[download]

Update: ROT is for ROTate, so this is not a solution to the problem. Working on it...

Update2: changed HTML to properly hide code

--
http://fruiture.de

[reply]
[d/l]

ok, solving the problem, 58, or 59 if the ambiguity warning disturbs you.

#        1         2         3         4         5
# 3456789 123456789 123456789 123456789 123456789 123456789
print map{chr+(($_=$ARGV[0]+ord)>122?-26:0)+$_}split//,pop  ;
print map{chr((($_=$ARGV[0]+ord)>122?-26:0)+$_)}split//,pop ;
[download]

update: changed hiding code here, too

--
http://fruiture.de

[reply]
[d/l]

You got hit by the same bug I did. See dragonchild's first response.

"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.

[reply]

Not shorter (yet) but different. Maybe the approach can be improved?

# 1 2 3 4 5 #123456789 123456789 123456789 123456789 123456789 perl -e"die map{($i)=@ARGV;$_++while$i--;chop}split'',pop" 4 pqrstuvwxyz tuvwxyzabcd at -e line 1.

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon

[reply]

I thought about a couple of variants of this idea (not this one though) but didn't find a way to get the stroke count low. Particularly not on my version of Perl.

[reply]

Strange. The output I showed was using 5.8.4 (AS810)

[19:39:27.71] P:\test>perl -v

This is perl, v5.8.4 built for MSWin32-x86-multi-thread
(with 3 registered patches, see perl -V for more detail)

Copyright 1987-2004, Larry Wall

Binary build 810 provided by ActiveState Corp. http://www.ActiveState.
+com
ActiveState is a division of Sophos.
Built Jun  1 2004 11:52:21

Perl may be copied only under the terms of either the Artistic License
+ or the
GNU General Public License, which may be found in the Perl 5 source ki
+t.

Complete documentation for Perl, including FAQ lists, should be found 
+on
this system using `man perl' or `perldoc perl'.  If you have access to
+ the
Internet, point your browser at http://www.perl.com/, the Perl Home Pa
+ge.

[19:40:24.59] P:\test>perl -e"die map{($i)=@ARGV;$_++while$i--;chop}sp
+lit'',pop" 4 pqrstuvwxyz
tuvwxyzabcd at -e line 1.
[download]

I saw your for tr version just after I posted which is in a similar vien but much shorter. Nice work++.

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon

[reply]
[d/l]

1234567890123456789012345678901234567890
$_=pop;for$x(1..pop){y/a-z/b-za/}print
[download]

Length 38

1234567890123456789012345678901234567890
$_=pop;y/a-z/b-za/for$x(1..pop);print
[download]

Length 37, but does not work, why?

Boris

Edited by Chady -- code tags.

[reply]
[d/l]
[select]

perl -we" $_=pop;y/a-z/b-za/for$x(1..pop);print"
syntax error at -e line 1, near "$x("
[download]

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon

[reply]
[d/l]

Boris

[reply]

Caesar Shift

-- I'm not belgian but I play one on TV.

[reply]


P is for Practical
	PerlMonks