Trojúhelník

Nejkratší program, který jsem kdy napsal, a který něco dělá, je tento:

n = 1000;
CA = zeros(n,n);
CA(1,n / 2) = 1;
for i = 2:n
CA(i,2:(n - 1)) = xor(CA(i - 1,1:(n - 2)),CA(i - 1,3:n));
end
imshow(1 - CA)

Je to psáno v Matlabu. Výsledek programu je na přiloženém obrázku.