Date: 4 Sep 2001 03:25:07 GMT From: damian@qimr.edu.au (Damian James) Subject: Re: references, slices, voodoo Message-Id: Abigail chose 3 Sep 2001 23:29:16 GMT to say this: >... >Note that the stupid 'unless $i == $j' no longer appears in modern >editions of the FAQ. > Gack! Before anyone says 'cargo cult', it's time for a quick revision (below). Cheers, Damian -- @:=grep!(m!$/|#!..$|),split//,;@;=0..$#:;while($:=@;){$;=rand $:--,@;[$;,$:]=@;[$:,$;]while$:;push@|,shift@;if$;[0]==@|;select$,, $,,$,,1/80;print qq x\bxx((@;+@|)*$|++),@:[@|,@;],!@;&&$/} __END__ Just another Perl Hacker, ### rev 3.3 -- stupidectomy performed :-)