Sierpinski square curve: Difference between revisions
m
→{{header|Perl}}: close the curve
(Added Sidef) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: close the curve) |
||
Line 137:
my $rule = 'XF-F+F-XF+F+XF-F+F-X';
my $S = 'F+F+XF+F+
$S =~ s/X/$rule/g for 1..5;
| |||