紙媒体で知識や経験を管理すると無くなりがちなのでブログで管理することにしました.
      殆どの記事は自分自身のためだけに書いているため,他人に見せる前提の内容, 文章ではありません.
      また, ブログのコメント欄を解放していたらbotからの迷惑行為を受けたため現在コメント欄は解放しておりません.

【Haskell】 比較関数を独自定義

myCompare :: (Ord a) => a -> a -> Ordering
a `myCompare` b
    | a == b    = EQ
    | a <= b    = LT
    | otherwise = GT

max' :: (Ord  a) => a -> a -> a
max' a b
    | a <= b    = b
    | otherwise = a

GHCiで:l *.hsで実行する.

Prelude> :l sample.hs
[1 of 1] Compiling Main             ( sample.hs, interpreted )
Ok, modules loaded: Main.
*Main> 3 `myCompare` 4
LT
*Main> 3 `myCompare` 1
GT
*Main> 3 `myCompare` 3
EQ
*Main> max' 3 4
4
*Main> max' 3 2
3
*Main> max' 3 1
3
*Main> max' 3 3
3