my first japh

version 2, tighter now.

do{for(0..3){$n=1<<$_;if(fork){@a=reverse@a
;sleep$n}splice@a,@a/2;print shift@a}}if@a=
split//,"Juste re ha .ehtr P  kc\nl  rona "
[download]

Comment on my first japh Download Code

Replies are listed 'Best First'.
Re: my first japh by jagh (Monk) on Oct 25, 2007 at 02:10 UTC
<Reveal this spoiler or all in this thread>	[reply] [d/l] [select]
Re^2: my first japh by gamache (Friar) on Oct 25, 2007 at 14:11 UTC
There was entirely too much no-op going on in version 1. Good dissection, however I have one thing to mention: Every letter is printed separately by a node in the fork tree -- no two letters have the same order. Try replacing the string with "ABCDEFGHIJKLMNOPQRSTUVWXYZ012345" to see what's going on.	[reply]