more recipes

Main.hs

@@ -4,9 +4,16 @@ 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"
@@ -18,6 +25,31 @@ lessive = Recipe "Lessive"
                  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"
     putStrLn "* Lessive :"