tiago/HaskCalc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Problema 3 present done, falta trocar a ordem dos quadrados no carpets

Browse source
This commit is contained in:
Tiago Sousa 2023-01-06 11:09:20 +00:00
parent b75aa0f35a
commit 2f0635b655
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
cp2223t/cp2223t.lhs
View file

@ -1254,9 +1254,12 @@ carpets = anaList gcarp
gcarp = (nil -|- (split (curry sierpinski ((0,0),32)) id)) . outNat gcarp = (nil -|- (split (curry sierpinski ((0,0),32)) id)) . outNat
present :: [[Square]] -> IO [()]
present = cataList gprst present = cataList gprst
gprst = either (return . singl) (fmap singl . (>> await) . (drawSq . p1)) gprst = either (return . nil) (aux . (((>> await) . drawSq) >< id))
aux (x,y)= do {a <- x ; b <- y ; return (a:b)}
\end{code} \end{code}
\subsection*{Problema 4} \subsection*{Problema 4}