Sierpinski carpet: Difference between revisions

Content added Content deleted
Line 4,686:
end function
 
program carpetlinecarpet(y,dn)
set d = pow(3,n)▼
set y = 0▼
while y < d▼
set x = 0
set result = " "
Line 4,694 ⟶ 4,697:
end while
echo result
end program
 
program carpet(n)
▲set d = pow(3,n)
▲set y = 0
▲while y < d
run carpetline(y,d)
set y = y + 1
end while
Retrieved from "https://rosettacode.org/wiki/Sierpinski_carpet"