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

sectioning

Browse Source
This commit is contained in:
Yves Dubromelle
2016-05-21 02:27:20 +02:00
parent c2bf6e9455
commit ef877b4611
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
cout-recette.hs
View File

@@ -1,5 +1,6 @@
#! /usr/bin/env runhaskell #! /usr/bin/env runhaskell
-- * Data types definition
data Ingredient = Ingredient { ingredientName :: String data Ingredient = Ingredient { ingredientName :: String
, unit_cost :: Double , unit_cost :: Double
}deriving (Show) }deriving (Show)
@@ -12,6 +13,7 @@ data Recipe = Recipe { recipeName :: String
, useNumber :: Double , useNumber :: Double
}deriving (Show) }deriving (Show)
-- * Calculations
recipeCost :: Recipe -> Double recipeCost :: Recipe -> Double
recipeCost (Recipe _ bom _ _) = sum . map ingredientCost $ bom recipeCost (Recipe _ bom _ _) = sum . map ingredientCost $ bom
@@ -27,6 +29,7 @@ useCost (Recipe _ _ _ uses) totalCost = totalCost / uses
(→) :: Ingredient -> Double -> UsedIngredient (→) :: Ingredient -> Double -> UsedIngredient
(→) ingredient qtt = UsedIngredient ingredient qtt (→) ingredient qtt = UsedIngredient ingredient qtt
-- * Example (in french for now)
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