Re: (Golf) Untwist

I'll take a stab. It comes in at 147 characters. It doesn't use strict, but does execute multiple times.

sub decipher {
@n=split//,'_abcdefghijklmnopqrstuvwxyz.';$l{$n[$_]}=$_ for 0..$#n;@c=
+map{$l{$_}}split//,pop;$p[$_[0]*$_%@c]=$n[($c[$_]+$_)%@n]for 0..$#c;j
+oin'',@p
}
[download]

I was trying to find a way to not do the whole listing out of the 28 characters, but couldn't figure a way to get a-z into there. That could cut up to 23 characters, bringing me to 124.

Update: I've figured out a way to improve that string assignment. I feel stupid, but it's better now, down to 120. (Thanks, boo_radley!)

@n=(_,a..z,'.');map{$l{$n[$_]}=$_}0..27;@c=map{$l{$_}}split//,pop;$p[$
+_[0]*$_%@c]=$n[($c[$_]+$_)%@n]for 0..$#c;join'',@p
[download]

------
/me wants to be the brightest bulb in the chandelier!

Vote paco for President!

Comment on Re: (Golf) Untwist Select or Download Code

Replies are listed 'Best First'.
Re: (Golf) Untwist (boo) by boo_radley (Parson) on Aug 16, 2001 at 02:24 UTC
ahem `@n=('_','a'..'z','.');` you could also trim one off by changing `$#n` to `27` Other than that your code is indeciperable to me ;-) update : also consider what happens when you shuffle the ciphertexts to `3 b_ylxmhzjsys.virpbkr 5 cs. 101 thqqxw.lui.qswer` [download] You get `beware._dogs_barking catare._dogs_barking this_is_a_secretking` [download] !!	[reply] [d/l] [select]