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)
|
||||
|
||||
carpets = undefined
|
||||
carpets = anaList gcarp
|
||||
|
||||
gcarp = (nil -|- (split (curry sierpinski ((0,0),32)) id)) . outNat
|
||||
|
||||
present = undefined
|
||||
\end{code}
|
||||
|
|
Loading…
Reference in a new issue