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

Problema 4 acabado maravilha

Browse source
This commit is contained in:
Tiago Sousa 2023-01-11 23:07:05 +00:00
parent e4d839885a
commit 960472e629
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
cp2223t/cp2223t.lhs
View file

@ -757,7 +757,7 @@ do grupo de trabalho, no local respectivo da folha de rosto.
Para gerar o PDF integral do relatório deve-se ainda correr os comando seguintes, Para gerar o PDF integral do relatório deve-se ainda correr os comando seguintes,
que actualizam a bibliografia (com \Bibtex) e o índice remissivo (com \Makeindex), que actualizam a bibliografia (com \Bibtex) e o índice remissivo (com \Makeindex),
\begin{Verbatim}[fontsize=\small] \begin{Verbatim}[fontsize=\small]
$ bibtex cp2223t.add_pair $ bibtex cp2223t.aux
$ makeindex cp2223t.idx $ makeindex cp2223t.idx
\end{Verbatim} \end{Verbatim}
e recompilar o texto como acima se indicou. e recompilar o texto como acima se indicou.
@ -1212,7 +1212,6 @@ rightSide = cons . (split (singl . p1) ((map cons) . lstr . (id >< concat)))
& &
S + S \times (|Exp S S|)^* S + S \times (|Exp S S|)^*
\ar[d]^-{id + id \times |post|^*} \ar[d]^-{id + id \times |post|^*}
&
\\ \\
(S^*)^* (S^*)^*
& &
@ -1348,11 +1347,12 @@ gprst = either (return . nil) (alpha . (((>> await) . drawSq) >< id)) where
Gene de |consolidate'|: Gene de |consolidate'|:
\begin{code} \begin{code}
cgene = either nil cons cgene :: (Eq a, Num b) => Either () ((a,b),[(a,b)]) -> [(a,b)]
cgene = either nil add_pair
add_pair :: (Eq a,Num b) => ((a,b),[(a,b)]) -> [(a,b)]
add_pair ((x,y),t) = (x, y + maybe 0 id (List.lookup x t)):(filter(\(a,b) -> a != x) t) add_pair ((x,y),t) = (x, y + maybe 0 id (List.lookup x t)):(filter(\(a,b) -> a != x) t)
\end{code} \end{code}
Geração dos jogos da fase de grupos: Geração dos jogos da fase de grupos:
% fazer um transformacao em pointfree por calculo % fazer um transformacao em pointfree por calculo
@ -1386,7 +1386,7 @@ pgroupWinners criteria = fmap (fmapBody) . sequence . map (pmatchResult criteria
fmapBody = best 2 . consolidate . concat fmapBody = best 2 . consolidate . concat
pmatchResult crit m = do {dist <- crit m ; return (teamPoints m dist)} pmatchResult criteria match = do {dist <- criteria match ; return (teamPoints match dist)}
\end{code} \end{code}