Guess what it does ... and a challenge

First, can you guess what the following code does before running it? ...

    1x~@;
[download]

This node by shmem gave me the idea, and may give you a hint as well.

Now for the challenge ... what's the shortest program which does the same thing? My guess is the obvious:

How about the smallest program that does the same thing slowly? The following takes about 11 seconds on my laptop:

I have no idea if a shorter such program exists.

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Comment on Guess what it does ... and a challenge Select or Download Code
Re: Guess what it does ... and a challenge by blokhead (Monsignor) on May 24, 2008 at 19:36 UTC
I parsed that code correctly in my head, but didn't realize what the result would be. Here is a program of the same length (as your second snippet) that does the same thing slowly: <Reveal this spoiler or all in this thread> blokhead	[reply] [d/l] [select]
Re^2: Guess what it does ... and a challenge by mtve (Chaplain) on May 31, 2008 at 19:35 UTC
<Reveal this spoiler or all in this thread>	[reply] [d/l]
Re^3: Guess what it does ... and a challenge (max number size) by tye (Cardinal) on May 31, 2008 at 20:23 UTC
No, it won't. Now, if you do `$_='a'` first, then it will, and extremely slowly too. - tye	[reply] [d/l]
Re^4: Guess what it does ... and a challenge (max number size) by mtve (Chaplain) on Jun 02, 2008 at 11:06 UTC
Re: Guess what it does ... and a challenge by kyle (Abbot) on May 24, 2008 at 20:04 UTC
I'm cheating a little, but... <Reveal this spoiler or all in this thread>	[reply] [d/l]
Re: Guess what it does ... and a challenge by shmem (Canon) on May 24, 2008 at 22:53 UTC
First, can you guess what the following code does before running it? Oh yes... <Reveal this spoiler or all in this thread> --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply]
Re: Guess what it does ... and a challenge by ambrus (Abbot) on May 25, 2008 at 11:40 UTC
Without running it, I think it will <Reveal this spoiler or all spoilers in this node or all in this thread> I've ran it. It <Reveal this spoiler>	[reply] [d/l] [select]
Re: Guess what it does ... and a challenge by ambrus (Abbot) on May 25, 2008 at 11:54 UTC
This does it slowly and is one character shorter than the one you gave in your spoiler: <Reveal this spoiler or all spoilers in this node or all in this thread> Update: Btw one could try this (CAUTION! DON'T TYPE BLINDLY!): <Reveal this spoiler> but it doesn't work, because <Reveal this spoiler> Update: On the other hand, this works, and is shorter than the first one: <Reveal this spoiler> Update: the following works too and is even shorter: <Reveal this spoiler> Update: and one more character shorter is: <Reveal this spoiler> Update: the following has the same length as the first one in this node, but is a slower than that: <Reveal this spoiler>	[reply] [d/l] [select]
golf! (now this title is more than one word) by mtve (Chaplain) on May 31, 2008 at 18:59 UTC
<Reveal this spoiler or all in this thread>	[reply] [d/l]


We don't bite newbies here... much
	PerlMonks

Guess what it does ... and a challenge

The best material for plates (tableware) is: