Skip to content
This repository has been archived by the owner on Oct 19, 2018. It is now read-only.

Commit

Permalink
arreglos finales
Browse files Browse the repository at this point in the history
  • Loading branch information
@juancuiule
juancuiule committed Apr 24, 2017
1 parent efb5105 commit 21faea8
Showing 1 changed file with 2 additions and 6 deletions.
8 changes: 2 additions & 6 deletions Funcional/boliche_1.1v.hs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -54,13 +54,9 @@ type Tiempo = Int
grogXD :: Bebida
grogXD cliente = modificarResistencia (- resistencia cliente) cliente

compartirJarraLoca :: Cliente -> Cliente
compartirJarraLoca (Cliente nombre resistencia amigos) =
Cliente nombre resistencia (map (modificarResistencia (-10)) amigos)

jarraLoca :: Bebida
jarraLoca =
compartirJarraLoca.(modificarResistencia (-10))
jarraLoca (Cliente nombre resistencia amigos) =
Cliente nombre (resistencia - 10) (map (modificarResistencia (-10)) amigos)

klusener :: Gusto -> Bebida
klusener gusto cliente =
Expand Down

0 comments on commit 21faea8

Please sign in to comment.