Sunflower fractal: Difference between revisions
m
→{{header|Perl 6}}: Argh. Tau not pi
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: possessive) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Argh. Tau not pi) |
||
Line 69:
my @c = map {
my ($x, $y) = ($scale * .sqrt) «*« |cis($_ * φ *
[ $x.round(.01), $y.round(.01), (.sqrt * $scale / 100).round(.1) ]
}, 1 .. $seeds;
| |||