Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

my  @range = (shuffle 1 .. $N)[0 .. $K - 1];
dd \@range;
  2. or download this
    23:04 >perl 2029_SoPW.pl
[10, 9, 5, 6, 7]

23:04 >