import Data.Char (chr) -- 絶対値を用いて大小比較を行う -- 不等号を記述できないので,型注釈は省略する myCompare a b | a == b = 0 | otherwise = div (a - b) $ abs (a - b) -- 入力された二数を比較し,その結果を返す -- ASCIIコードから不等号へ変換する f [a, b] | mc == 1 = (chr 62) : [] | mc == 0 = "=" | otherwise = (chr 60) : [] where mc = myCompare a b -- 不等号を記述できないので,do内でreadLnを用いて素朴に書くとうまくいかない -- interactで何とかする main = interact $ unlines . fmap (f . fmap read . words) . tail . lines