パースエラー< -

Question

--bmicalculator 
bmicalculator::IO() 
bmicalculator=do bmicalculator::(RealFloat a)=>a->a->String 
putStrLn "Please Input your weight" 
weight<-getLine 
putStrLn "Please Input your height" 
height<-getLine 
|bmi<=17.5="You are anorexia!" 
|bmi<=20.7="You are Under weight" 
|bmi<=26.4="You are in normal range" 
|bmi<=27.8="You are marginally overweight" 
|bmi<=31.1="You are overweight" 
|bmi>31.1="You are super OBESE!!" 
where bmi=weight/height^2 

エラーがどのように入力し、「重さ」と「高さ」に私プロンプトユーザーは、その後、私はデータ型bmicalculator::(RealFloat a)=>a->a->String

を作成するもののような文字列を計算して返すことができ

weight<-getLine 

で起こりました

Answer 1

さらにあなたは[この]（http://www.haskell.orgそれはどんな副作用

main :: IO() 
main = do 
    putStrLn "Please Input your weight" 
    w <- getLine 
    let weight = read w :: Float 
    putStrLn "Please Input your height" 
    h <- getLine 
    let height = read h :: Float 
    putStrLn $ bmicalc weight height 

bmicalc :: Float -> Float -> String 
bmicalc weight height | bmi<=17.5 = "You are anorexic!" 
         | bmi<=20.7 = "You are underweight" 
         | bmi<=26.4 = "You are in normal range" 
         | bmi<=27.8 = "You are marginally overweight" 
         | bmi<=31.1 = "You are overweight" 
         | otherwise = "You are super OBESE!!" 
         where bmi=weight/(height*height) 

Answer 2

まず、あなたのインデントは間違っています（存在しないと言います）。 do-blockの内容は字下げする必要があります。

次に、バイマルコンピュータとお互いに一致しない2つのタイプシグネチャを指定しました。 2番目のブロックは明らかに属していないブロックの内側にあります。

次に、パターンマッチング構造の外で、do-block内部にパターンガードを使用しているようです。これは構文上無効です。おそらくcase bmi ofがありません。また、=を->に置き換える必要があります。

最後に、doブロックの後にあるwhereブロック内のdoブロックのローカル変数を使用することはできません。代わりにdoブロック内にletを使用する必要があります。さらにweightとheightはstringなので、最初に数値に変換せずに算術演算を行うことはできません。