Sierpinski pentagon: Difference between revisions

=={{header|EasyLang}}==

{{Trans|Processing}}

<syntaxhighlight lang="easylang">

order = 5

#

clear

linewidth 0.2

scale = 1 / (2 + cos 72 * 2)

x += cos angle * dist

y += sin angle * dist

.

.

.

</syntaxhighlight>

 

=={{header|FreeBASIC}}==

(formerly Perl 6)

{{works with|rakudo|2018-10}}

<syntaxhighlight lang="raku" line>constant $sides = 5;

constant order = 5;

$fh.say: '</svg>';

$fh.close;</syntaxhighlight>

 

=={{header|Ruby}}==

{{libheader|DOME}}

Black backgound and slightly different palette to Go. Also pentagons are unfilled.

import "dome" for Window

import "math" for Math

 

var Game = SierpinskiPentagon.new(640, 640)</syntaxhighlight>

 

=={{header|XPL0}}==