Gaussian primes: Difference between revisions
→{{header|Raku}}: minor style tweaks
Thundergnat (talk | contribs) m (more precise terms) |
Thundergnat (talk | contribs) (→{{header|Raku}}: minor style tweaks) |
||
Line 160:
<lang perl6>use List::Divvy;
my @next = { :
sub next-interval (Int $int) {
Line 167:
}
my @gaussian
my $interval = 1;
loop {
Line 182:
say "Gaussian primes with a norm less than 100 sorted by norm:";
say @gaussian.&before(*.<n> > 10²).map( {
my (\i, \j) = .<x
flat ((i,j),(-i,j),(-i,-j),(i,-j),(j,i),(-j,i),(-j,-i),(j,-i)).map: {
.[0] ?? .[1] ?? (sprintf "%d%s%di", .[0], (.[1] >= 0 ?? '+' !! ''), .[1]) !! .[0] !! "{.[1]}i"
Line 192:
my @points = unique flat @gaussian.&before(*.<n> > 150²).map: {
my (\i, \j) = .<x
do for (i,j),(-i,j),(-i,-j),(i,-j),(j,i),(-j,i),(-j,-i),(j,-i) {
:use['xlink:href'=>'#point', 'transform'=>"translate({500 + 3
}
}
Line 202:
:width<1000>, :height<1000>,
:rect[:width<100%>, :height<100%>, :style<fill:black;>],
:defs[:g[:id<point>, :circle[
|@points
],
| |||