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.
59 lines
1.7 KiB
Haskell
59 lines
1.7 KiB
Haskell
#!/usr/bin/env runhaskell
|
|
|
|
import RecipeCost
|
|
|
|
-- * Example (in french for now)
|
|
eau = Ingredient "Eau" 0.003
|
|
eauDemineralisee = Ingredient "Eau déminéralisée" 0.34
|
|
savonMarseille = Ingredient "Savon de Marseille" 3.36
|
|
bicarbonate = Ingredient "Bicarbonate de soude" 3.81
|
|
vinaigreBlanc = Ingredient "Vinaigre blanc" 0.36
|
|
cremeIsigny = Ingredient "Crème fraîche d'Isigny AOP" 7.05
|
|
sel = Ingredient "Sel" 1.10
|
|
grosSel = Ingredient "Gros sel" 0.52
|
|
argileBlanche = Ingredient "Argile blanche" 40.80
|
|
huileMenthe = Ingredient "Huille essentielle de menthe poivrée" 0.75
|
|
citron = Ingredient "Citron jaune" 2.99
|
|
|
|
lessive :: Recipe
|
|
lessive = Recipe "Lessive"
|
|
[ eau → 2.5
|
|
, savonMarseille → 0.1
|
|
, bicarbonate → 0.016
|
|
, vinaigreBlanc → 0.03
|
|
]
|
|
2.5
|
|
30
|
|
|
|
beurre = Recipe "Beurre"
|
|
[ cremeIsigny → 0.4
|
|
, sel → 0.005
|
|
]
|
|
0.4
|
|
0
|
|
|
|
dentifrice = Recipe "Dentifrice"
|
|
[ argileBlanche → 0.016
|
|
, bicarbonate → 0.0015
|
|
, huileMenthe → 0.15
|
|
, eau → 0.03
|
|
]
|
|
0
|
|
14
|
|
|
|
produitVaisselle = Recipe "Produit Vaisselle"
|
|
[ citron → 0.395
|
|
, sel → 0.2
|
|
, eauDemineralisee → 0.4
|
|
, vinaigreBlanc → 0.1
|
|
]
|
|
0.65
|
|
0
|
|
|
|
main = do
|
|
putStrLn "Calcul du coût des recettes\n"
|
|
printRecipeCost lessive
|
|
printRecipeCost beurre
|
|
printRecipeCost dentifrice
|
|
printRecipeCost produitVaisselle
|