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

carpets sem reverse

Browse source
This commit is contained in:
Tiago Sousa 2023-01-25 22:00:31 +00:00
parent daa3a00025
commit d37c6b0808
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
cp2223t/cp2223t.lhs
View file

@ -1391,7 +1391,7 @@ representado por |(A^*)^*| e adicionar conteúdo do nodo, representado por |A|
Componentes da função |constructSierp|: Componentes da função |constructSierp|:
\begin{code} \begin{code}
carpets = reverse . anaList gcarp carpets = anaList gcarp
gcarp = (id -|- (split (curry sierpinski ((0,0),32)) id)) . outNat gcarp = (id -|- (split (curry sierpinski ((0,0),32)) id)) . outNat
\end{code} \end{code}
@ -1419,13 +1419,11 @@ Para definir o gene |gcar|, primeiro aplico |outNat|. Caso este seja 0, simplesm
caso contrário, cria um par com a lista dos quadrados resultantes da função |curry sierpinski ((0,0),32)| para caso contrário, cria um par com a lista dos quadrados resultantes da função |curry sierpinski ((0,0),32)| para
esse número, e o número. esse número, e o número.
Como a lista originada pelo anamorfismo está por ordem decrescente, aplico a função reverse.
\begin{code} \begin{code}
present = cataList gprst present = cataList gprst
gprst = either (return . nil) (alpha . (((>> await) . drawSq) >< id)) where gprst = either (return . nil) (alpha . (((>> await) . drawSq) >< id)) where
alpha (x,y) = do {a <- x ; b <- y ; return (a:b)} alpha (x,y) = do {b <- y ; a <- x ; return (a:b)}
\end{code} \end{code}
\begin{eqnarray*} \begin{eqnarray*}
\xymatrix@@C=2cm{ \xymatrix@@C=2cm{