VariantFunction.hs

o :: Ord a => a -> a -> Bool
o x y = x >= y

e :: Eq a => a -> a -> Bool
e x y = x == y

f :: Ord a => (a -> a -> Bool) -> a -> a -> String
f cmp x y = if cmp x y then "YES" else "NO"

main :: IO ()
main = do
    print $ f e 1 2
    print $ f o 1 2