Anonymous user
Constrained random points on a circle: Difference between revisions
Constrained random points on a circle (view source)
Revision as of 20:35, 6 September 2015
, 8 years ago→{{header|Perl 6}}: modernize
m (→{{header|REXX}}: changed glyph for the plot character, add/changed comments and whitespace, added some optimization.) |
(→{{header|Perl 6}}: modernize) |
||
Line 1,805:
=={{header|Perl 6}}==
{{works with|rakudo|2015.09}}
<lang perl6>my @range = -15..16;
my @points = gather for @range X @range -> ($x, $y) {
take [$x,$y] if 10 <= sqrt($x*$x+$y*$y) <= 15
}
Line 1,814 ⟶ 1,815:
# format and print
my %matrix;
for @range X @range -> ($x, $y) { %matrix{$y}{$x} = ' ' }
%matrix{$_[1]}{$_[0]} = '*' for @samples;
%matrix{$_}{@range}.join(' ').say for @range;</lang>
Line 1,822 ⟶ 1,823:
<lang perl6>(say ~.map: { $_ // ' ' } for my @matrix) given do
-> [$x, $y] { @matrix[$x][$y] = '*' } for pick 100, do
for ^32 X ^32 -> ($x, $y) {
[$x,$y] when 100..225 given [+] ($x,$y X- 15) X** 2;
}
| |||