order matter

that's a little tricky, i hope it's somewhat original

@d=split /\W/,"14-(5+(248<=>27)*0^b-7+(3.4.8))7b+1/27-1";$s="   r\n";
foreach $w (a..z){map{substr $s, hex, 0, $w;} split //,shift @d;}
print $s;
[download]

Oha

Update: i'm not sure if i should put some "explanation" on what's above, and how "spoiler" works (which tag?)

Comment on order matter Download Code

Replies are listed 'Best First'.
Re: order matter by jdalbec (Deacon) on Sep 07, 2007 at 22:53 UTC
++educational I didn't know about that form of substr. The tag is <spoiler>.	[reply]
Re^2: order matter by oha (Friar) on Sep 18, 2007 at 09:21 UTC
thanks! the idea was to start from an empty string, then add the chars to the string to a given position. I iterate from A to Z and use the strange string on top. this string is splitted using the \W. so looking at the start: "14-(5+(248" that will be splitted in ("14", ,"5", ,"248"). so the control data for the A is "14", nothing for B, then "5" for C and so on. the "14" is splitted again and i used the value in hex (this is important, for the "b" code later on), so i'll get 1 and 4, and then the string is updated inserting A in 1 and 4. the ending string is as expected JAPH. to keep the code small i was not able to use anything more then hex data, but a "r" was too far (more then 0xf) so i had to start with it in the string, as for the spaces.	[reply]


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