Brute-force JAPH

Hi all,
This is the first JAPH I've ever written. It's simple, but (AFAIK) has an original idea.

use Time::HiRes 'usleep';++$|;$s='rekcah lreP rehtona tsuJ';@v=
(65..90,97..122,32);do{do{print$_=sprintf'%c',$v[rand@v];usleep
2000;print"\b"}while$_ ne substr$s,-1;chop$s;print}while$s
[download]

Basically what it does is it loops randomly through A-Za-z and a space until it finds the correct character for that spot and then moves on to the next character. I added a small delay too so one can see it shuffling through the characters instead of the boring, ordinary way of instantaneous appearance of the whole string. ;)

Update: An indented and commented version with whitespaces

Comment on Brute-force JAPH Select or Download Code

Replies are listed 'Best First'.
Re: Brute-force JAPH by Lawliet (Curate) on Jan 27, 2009 at 23:26 UTC
Perhaps you can put what it does in `<readmore></readmore>` tags? I like to try and get a brief understanding of the code before I learn what it does. I usually fail, but is is fun. :) And you didn't even know bears could type.	[reply] [d/l]
Re^2: Brute-force JAPH by jh- (Scribe) on Jan 27, 2009 at 23:47 UTC
Sure. Done. :)	[reply]
Re^3: Brute-force JAPH by Lawliet (Curate) on Jan 27, 2009 at 23:52 UTC
Wait a second -- do readmore tags do anything on a root node? I think they automatically expand if the node is the top node you are viewing. And you didn't even know bears could type.	[reply]
Re^4: Brute-force JAPH by jh- (Scribe) on Jan 28, 2009 at 05:12 UTC
Re^4: Brute-force JAPH by ambrus (Abbot) on Jan 28, 2009 at 12:11 UTC