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

Problem 2 post done, need to verify results

Browse source
This commit is contained in:
Tiago Sousa 2022-12-16 15:11:00 +00:00
parent 776a3e1ec9
commit 1bc77d75d1
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
cp2223t/cp2223t.lhs
View file

@ -1134,13 +1134,19 @@ f a b c (n+3) = a * f a b c (n+2) + b * f a b c (n+1) + c * f a b c n
\subsection*{Problema 2}
Gene de |tax|:
\begin{code}
gene = (id -|- id >< (groupBy (\x y -> countSpaces x >= 0 && countSpaces y > 0) . map (drop 4))) . out
gene = (id -|- (id >< (groupBy (\x y -> countSpaces x >= 0 && countSpaces y > 0) . map (drop 4)))) . out
countSpaces = length . takeWhile (== ' ')
\end{code}
Função de pós-processamento:
\begin{code}
post = undefined
post :: Exp String String -> [[String]]
post = cataExp (genepost)
genepost = (either leftSide rightSide)
leftSide = singl . singl
rightSide = cons . (split (singl . p1) (map cons . lstr . (id >< concat)))
\end{code}
\subsection*{Problema 3}