Sierpinski pentagon: Difference between revisions
Content deleted Content added
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 {
|