Help for this page

Select Code to Download


  1. or download this
    use List::Util qw( shuffle );

...
                        $dataArray[$_*2+1] }
                  shuffle 
                  0 .. @dataArray/2-1;
  2. or download this
    my @dataArray = (
   [ \@inputValue1, \@outputValue1 ],
   [ \@inputValue2, \@outputValue2 ],
   ...
);
  3. or download this
    use List::Util qw( shuffle );

my @jumpedArray = map { $dataArray[$_] }
                  shuffle 
                  0 .. $#dataArray;