紙媒体で管理するとなくなりがちなのでブログで進捗などを管理することにしました
※殆どの記事は自分自身のためだけにかいています.他人に見せられるレベルには至っていません...

【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