13 lines
316 B
Text
13 lines
316 B
Text
program sierpinski;
|
|
const size = 4;
|
|
|
|
loop for i in [0..size*4-1] do
|
|
putchar(' ' * (size*4-1-i));
|
|
c := 1;
|
|
loop for j in [0..i] do
|
|
putchar(if c mod 2=0 then " " else " *" end);
|
|
c := c*(i-j) div (j+1);
|
|
end loop;
|
|
print;
|
|
end loop;
|
|
end program;
|