bmi.hs

calcBMI :: Float -> Float -> Float
calcBMI heightIn weightLbs = (weightLbs*703)/heightIn^2
promptFloat :: String -> IO Float
promptFloat question = do
  putStrLn question
  return =<< readLn
main = do
  weight <- promptFloat "What is your weight in pounds?"
  height <- promptFloat "What is your height in inches?"
  putStrLn ("Your weight is " ++ show weight ++ "lbs. and your height is " ++ show height ++ "in.")
  putStrLn $ "Your BMI is " ++ (show $ calcBMI height weight)