Problema 3 carpets done
This commit is contained in:
parent
5e6ad51844
commit
6e11736790
1 changed files with 3 additions and 1 deletions
|
@ -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}
|
||||||
|
|
Loading…
Reference in a new issue