taeradan/recipe-cost
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

operator to use an ingredient

Browse Source
This commit is contained in:
Yves Dubromelle
2016-05-21 02:22:35 +02:00
parent 04c07e87c1
commit c2bf6e9455
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
cout-recette.hs
View File

@@ -24,6 +24,9 @@ unitCost (Recipe _ _ qtt _) totalCost = totalCost / qtt
useCost :: Recipe -> Double -> Double useCost :: Recipe -> Double -> Double
useCost (Recipe _ _ _ uses) totalCost = totalCost / uses useCost (Recipe _ _ _ uses) totalCost = totalCost / uses
(→) :: Ingredient -> Double -> UsedIngredient
(→) ingredient qtt = UsedIngredient ingredient qtt
eau = Ingredient "Eau" 0.003 eau = Ingredient "Eau" 0.003
savonMarseille = Ingredient "Savon de Marseille" 3.36 savonMarseille = Ingredient "Savon de Marseille" 3.36
bicarbonate = Ingredient "Bicarbonate de soude" 3.81 bicarbonate = Ingredient "Bicarbonate de soude" 3.81
@@ -31,10 +34,10 @@ vinaigreBlanc = Ingredient "Vinaigre blanc" 0.36
lessive :: Recipe lessive :: Recipe
lessive = Recipe "Lessive" lessive = Recipe "Lessive"
[ UsedIngredient eau 2.5 [ eau → 2.5
, UsedIngredient savonMarseille 0.1 , savonMarseille → 0.1
, UsedIngredient bicarbonate 0.016 , bicarbonate → 0.016
, UsedIngredient vinaigreBlanc 0.03 , vinaigreBlanc → 0.03
] ]
2.5 2.5
30 30