You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
51 lines
1.7 KiB
Haskell
51 lines
1.7 KiB
Haskell
#! /usr/bin/env runhaskell
|
|
|
|
data Ingredient = Ingredient { ingredientName :: String
|
|
, unit_cost :: Double
|
|
}deriving (Show)
|
|
|
|
data UsedIngredient = UsedIngredient { ingredient :: Ingredient, quantityUsed :: Double }deriving (Show)
|
|
|
|
data Recipe = Recipe { recipeName :: String
|
|
, billOfMaterial :: [ UsedIngredient ]
|
|
, finalQuantity :: Double
|
|
, useNumber :: Double
|
|
}deriving (Show)
|
|
|
|
recipeCost :: Recipe -> Double
|
|
recipeCost (Recipe _ bom _ _) = sum . map ingredientCost $ bom
|
|
|
|
ingredientCost :: UsedIngredient -> Double
|
|
ingredientCost (UsedIngredient (Ingredient _ uCost) qtt) = uCost * qtt
|
|
|
|
prixLitre prixTotal quantiteLessive = prixTotal / quantiteLessive
|
|
|
|
prixUtilisation prixTotal quantiteLessive = prixTotal / nombreUtilisations
|
|
|
|
eau = Ingredient "Eau" 0.003
|
|
savonMarseille = Ingredient "Savon de Marseille" 3.36
|
|
bicarbonate = Ingredient "Bicarbonate de soude" 3.81
|
|
vinaigreBlanc = Ingredient "Vinaigre blanc" 0.36
|
|
|
|
lessive :: Recipe
|
|
lessive = Recipe "Lessive"
|
|
[ UsedIngredient eau 2.5
|
|
, UsedIngredient savonMarseille 0.1
|
|
, UsedIngredient bicarbonate 0.016
|
|
, UsedIngredient vinaigreBlanc 0.03
|
|
]
|
|
2.5
|
|
30
|
|
|
|
quantiteLessive = 2.5
|
|
nombreUtilisations = 30
|
|
|
|
main = do
|
|
putStrLn "Calcul du coût des recettes\n"
|
|
putStrLn "* Lessive :"
|
|
print lessive
|
|
putStrLn $ " * Prix Total = " ++ show (recipeCost lessive) ++ "€"
|
|
-- putStrLn $ " * Prix au litre = " ++ show prixLitre ++ "€"
|
|
-- putStrLn $ " * Prix par utilisation = " ++ show prixUtilisation ++ "€"
|
|
|