3 ms·
You can generate the Sierpinski pattern in a lot less code than posted: iterate (\xs -> zipWith xor ([0] ++ xs) (xs ++ [0])) [1]
by psykotic 15y ago
You can generate the Sierpinski pattern in a lot less code than posted:
iterate (\xs -> zipWith xor ([0] ++ xs) (xs ++ [0])) [1]