if.hs

main = do
  putStrLn "挨拶といえば？"
  greeting <- getLine
  answerToGreeting greeting

  putStrLn "なんか数字を。"
  num <- getLine
  putStrLn (checkNum num)

-- 純粋でない関数内の`if`
-- `then`, `else`のあとに`do`をつける
answerToGreeting greeting = do
  if greeting == "hi"
    then do
      putStrLn "You are using English"
    else do
      putStrLn "日本語ですね"

-- 純粋な関数内の`if`
-- `then`, `else`のあとに`do`をつけない
checkNum num =
  if num == "0"
    then "ゼロです"
    else "ゼロではないです"