Select Code to Download

    # The following algorithm is due to Bob Floyd and is
    # described in Jon Bentley's, _More Programming Pearls_
...
        }
        return \@result;
    }

    use Data::Dumper;
    $Data::Dumper::Indent = 0;
    print Dumper( randomly_permuted_subset_of_range(5, 10) );
    print Dumper( randomly_permuted_subset_of_range(11, 10) );
    print Dumper( randomly_permuted_subset_of_range(5, 2**48) );

$VAR1 = [2,1,7,0,5];
$VAR1 = [7,8,1,5,3,2,4,10,0,9,6];
$VAR1 = ['211572034652645','198222342410498',
         '42862092043890','253205057797894',
         '185109518737615'];