Show aliments, glycemic index, carbohydrates and glycemic charge

1 files changed, 25 insertions, 0 deletions

diff --git a/src/Food.purs b/src/Food.purs
new file mode 100644
index 0000000..b1e3d29
--- /dev/null
+++ b/src/Food.purs
@@ -0,0 +1,25 @@
+module Food
+  ( Aliment
+  , all
+  , glycemicLoad
+  ) where
+
+import Data.Int (toNumber)
+import Prelude
+
+type Aliment =
+  { name :: String
+  , glycemicIndex :: Int
+  , carbohydrates :: Int -- for 100 grams
+  }
+
+glycemicLoad :: Aliment -> Number
+glycemicLoad aliment = toNumber aliment.glycemicIndex * toNumber aliment.carbohydrates / 100.0
+
+all :: Array Aliment
+all =
+  [ { name: "oignon", glycemicIndex: 15, carbohydrates: 9 }
+  , { name: "olive", glycemicIndex: 15, carbohydrates: 6 }
+  , { name: "haricot rouge", glycemicIndex: 35, carbohydrates: 24 }
+  , { name: "haricot blanc", glycemicIndex: 35, carbohydrates: 13 }
+  ]