From 9a95a674fbbf1e64d3ad07922d569c3a1c751cf2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 5 Apr 2017 17:04:33 +0200
Subject: Show aliments, glycemic index, carbohydrates and glycemic charge

---
 src/Food.purs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 src/Food.purs

(limited to 'src/Food.purs')

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 }
+  ]
-- 
cgit v1.2.3