Browse files

transcurrir dia listo :)

  • Loading branch information...
1 parent 7e3b5fd commit 83c72d6645f6612c8967525098b8b892ef1e046e @nlasso committed May 30, 2012
Showing with 0 additions and 4 deletions.
  1. +0 −2 TP 2/JJOO.hs
  2. +0 −2 TP 2/JJOO.hs~
View
2 TP 2/JJOO.hs
@@ -26,8 +26,6 @@ cantDiasJ (J _ _ _) = 0
cantDiasJ (NuevoDia competencias jjoo) = 1 + (cantDiasJ jjoo)
cronogramaJ :: JJOO -> Int -> [Competencia]
-cronogramaJ jjoo dia
- | dia < 1 || dia > (cantDiasJ jjoo) = error "El dia no esta contemplado"
cronogramaJ (J _ _ _) dia = []
cronogramaJ (NuevoDia competencias jjoo) dia
|dia == (contarDias (NuevoDia competencias jjoo)) = competencias
View
2 TP 2/JJOO.hs~
@@ -26,8 +26,6 @@ cantDiasJ (J _ _ _) = 0
cantDiasJ (NuevoDia competencias jjoo) = 1 + (cantDiasJ jjoo)
cronogramaJ :: JJOO -> Int -> [Competencia]
-cronogramaJ jjoo dia
- | dia < 1 || dia > (cantDiasJ jjoo) = error "El dia no esta contemplado"
cronogramaJ (J _ _ _) dia = []
cronogramaJ (NuevoDia competencias jjoo) dia
|dia == (contarDias (NuevoDia competencias jjoo)) = competencias

0 comments on commit 83c72d6

Please sign in to comment.