Help for this page

Select Code to Download


  1. or download this
    my @chosen = ChooseN( 2 , \@set );
    push @chosen, ChooseN( 4 , \@set );
    push @chosen, ChooseN( 6 , \@set );
    push @chosen, ChooseN( 8 , \@set );
    
  2. or download this
    use List::Util 'shuffle';
    @chosen = shuffle @chosen;
    
  3. or download this
    my $chosen = '';
    while(@chosen){
    ...
       $chosen .= ' ' if @chosen;
    }
    return $chosen;