[练习]打印 Sirpinski(谢尔宾斯基) 三角形

回复
头像
523066680
Administrator
Administrator
帖子: 573
注册时间: 2016年07月19日 12:14
联系:

[练习]打印 Sirpinski(谢尔宾斯基) 三角形

帖子 523066680 »

Sirpinski 三角形的构造和图示可以参考
Wikipedia: Sierpinski triangle
512px-Sierpinski_triangle_evolution.svg.png
(8.16 KiB) 已下载 1014 次
头像
523066680
Administrator
Administrator
帖子: 573
注册时间: 2016年07月19日 12:14
联系:

Re: [练习]打印 Sirpinski(谢尔宾斯基) 三角形

帖子 523066680 »

Perl 版
#Code by 523066680 / Sirpinski Triangle
my @tri = "*";
func( \@tri, 1 );

sub func
{
my ($ref, $lv) = (shift, shift);
my @tri;
my $top = $#$ref + 1;

grep { push @tri, "$_ $_" } @$ref;
grep { unshift @tri, " "x$top .$_ ." "x$top } ( reverse @$ref );

( $lv <= 4 ) ?
func( \@tri, $lv+1 ) : print join("\n", @tri);
}
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
回复

在线用户

正浏览此版面之用户: 没有注册用户 和 0 访客