14 lines
300 B
Text
14 lines
300 B
Text
procedure sierpinski(integer n)
|
|
integer lim = power(2,n)-1
|
|
for y=lim to 0 by -1 do
|
|
puts(1,repeat(' ',y))
|
|
for x=0 to lim-y do
|
|
puts(1,iff(and_bits(x,y)?" ":"* "))
|
|
end for
|
|
puts(1,"\n")
|
|
end for
|
|
end procedure
|
|
|
|
for i=1 to 5 do
|
|
sierpinski(i)
|
|
end for
|