On Apr 4, Steffen Mueller said:
>sub fy2 {
> my($deck,$i,$j,$t) = $_[0];
> $i = @$deck || return;
> while(1) {
> $j = int rand($i-- || return);
> $t = $deck->[$i];
> $deck->[$i] = $deck->[$j];
> $deck->[$j] = $t;
> }
>}
I know I'm being pedantic, but about a year ago or so, someone mentioned
that it should probably be a warning-producing stunt to write:
$x = $y || return;
because it "implies" that $x will get return()'s return value. But I'm
being pedantic, and that's probably no fun.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]
