Problema 3 carpets done

This commit is contained in:
Tiago Sousa 2022-12-16 15:59:10 +00:00
parent 5e6ad51844
commit 6e11736790

View file

@ -1208,7 +1208,9 @@ rose2List = cataRose gr2l
gr2l = cons . (id >< concat) gr2l = cons . (id >< concat)
carpets = undefined carpets = anaList gcarp
gcarp = (nil -|- (split (curry sierpinski ((0,0),32)) id)) . outNat
present = undefined present = undefined
\end{code} \end{code}