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 }
  ]