Constrained random points on a circle: Difference between revisions
Content added Content deleted
(added perl6) |
m (→{{header|Perl 6}}: formatting, omit useless semicolons) |
||
| Line 197: | Line 197: | ||
<lang perl6>my @range = -15..16; |
<lang perl6>my @range = -15..16; |
||
my @points = gather for @range X @range -> $x, $y { |
my @points = gather for @range X @range -> $x, $y { |
||
take [$x,$y] if 10 <= sqrt($x*$x+$y*$y) <= 15 |
|||
} |
|||
my @samples = @points.pick(100, :replace); # or .pick(100) to get distinct points |
my @samples = @points.pick(100, :replace); # or .pick(100) to get distinct points |
||
# format and print |
# format and print |
||
my %matrix; |
my %matrix; |
||
for @range X @range -> $x, $y {%matrix{$y}{$x} = ' ' } |
for @range X @range -> $x, $y { %matrix{$y}{$x} = ' ' } |
||
%matrix{$_[1]}{$_[0]} = '*' for @samples; |
%matrix{$_[1]}{$_[0]} = '*' for @samples; |
||
%matrix{$_}{@range}.join('').say for @range;</lang> |
%matrix{$_}{@range}.join('').say for @range;</lang> |
||