haskellでif文を使いたい

Question

２つの引数の数字を比較して大きい方をx小さい方をyに入れて返すという関数をhaskellのif文で実装したいと考えています。引数1つのサンプルを参考にして下記を作成したのですが
else temp=x x=y y=temp
---------- ^
Failed, no modules loaded.
temp=xで上記のようなエラーが出ます.
おそらく書き方が間違えていると予想しているのですが、どこが間違えているかわかりません。教えてください。

whichbig :: Int -> Int -> Int->Int
whichbig x y = if x>y then x y
  else temp=x x=y y=temp

Answer 1

掲載のコードでの変数 x y は whichbig 関数の中でしか使用できないため、whichbig 関数を呼ぶ側からは参照できません（変数を参照できる範囲を Haskell に限らず一般にその変数のスコープといいます）。

main :: IO ()
main = do
  seq (whichbig 1 2) $
    print (x, y) -- ここでは x y は見えない

ですので whichbig 関数の意味を変えてみます。「どちらが大きいかを知りたい」と予想しまして whichbig 関数は (大きい方, 小さい方) というタプル（2つ組）を返すようにします。Int を2つ引数に取ってタプルを返すので型は次のようになります。

whichbig :: Int -> Int -> (Int, Int)

実装は if-then-else を使用してみると次のようになります（ちなみに Haskell では if-then-else は文ではなく式です）。

whichbig :: Int -> Int -> (Int, Int)
whichbig x y =
  if x > y
    then (x, y)
    else (y, x)

使用例は下記のようになります（Wandbox で実行）。

main :: IO ()
main = do
  let (big, small) = whichbig 1 (-1)
  putStrLn $ "big: " ++ show big
  putStrLn $ "small: " ++ show small

whichbig :: Int -> Int -> (Int, Int)
whichbig x y =
  if x > y
    then (x, y)
    else (y, x)

Comments

[退会済みユーザー]

ありがとうございます