このdoブロックを元のモナドコードに変更するにはどうすればよいですか？

Question

私はこのコードを持っている：

loop height weight=do 
line<-getLine 
if line=="1" then 
    do 
     height<-getLine 
     loop height weight 
else if line=="2" then 
    do 
     weight<-getLine 
     loop height weight 
    else if line=="3" then 
     do 
      putStrLn (height) 
     else 
      do 
       putStrLn "error" 

誰かが「やる」そんなにがある私に言った、私は「やる」を使用しないようにこのコードを変更しよう：

loop height weight= 
getLine>>=(\line->(
if line=="1" then 
    getLine>>=(\height-> 
    loop height weight 
else if line=="2" then 
    getLine>>=(\weight-> 
    loop height weight 
    else if line=="3" then 
      putStrLn (height+weight) 
     else 
       putStrLn "error")))) 

をしかし、コンパイラは私に言いましたもし行== "2"で行が間違っていて、修正できない場合は

"do"を除いてこのコードを変更する方法を教えてください。

Answer 1

私は、あなたのコードをはっきりさせると思いますが、これは単なる個人的な選択です。また、putStrLn（height + weight）は、heightとweightが文字列であり、それらを整数として扱うため、正しくありません。多分あなたは++を意味するでしょうか？

loop height weight = 
    getLine >>= \line -> 
    case line of 
    "1" -> getLine >>= \height -> loop height weight 
    "2" -> getLine >>= \weight -> loop height weight 
    "3" -> putStrLn . show $ (read height :: Int) + (read weight :: Int) 
    _ -> putStrLn "error"