Sierpinski pentagon: Difference between revisions
m
→{{header|Perl 6}}: Use tau instead of 2 pi
m (→{{header|Sidef}}: minor code simplification) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Use tau instead of 2 pi) |
||
Line 121:
=={{header|Perl 6}}==
{{works with|rakudo|
Generate an SVG file to STDOUT. Redirect to a file to capture and display it.
<lang perl6>constant order = 5;
Line 137:
END say '</svg>';
my @vertices = map { cis( $_ *
for 0 ..^ $sides ** order -> $i {
| |||