Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 7d9c16311e
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (15 sloc) 0.265 kB
#!/usr/bin/env perl6
use v6;
sub lotto-select($n, $m)
{
gather for ^$n
{
take (1 ... $m).pick(1);
}
}
say lotto-select(6, 49);
=begin pod
=head1 NAME
P24 - Draw C<N> different random numbers from the set C<1..M>.
=end pod
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.