gistfile1.hs

module Main where

true :: a -> b -> a
true x _ = x

false :: a -> b -> b
false _ x = x

iF :: (a -> a -> a) -> a -> a -> a
iF b x y = b x y

-- 高階関数をいい感じに駆使すると
-- 関数だけで条件分岐が出来る不思議
main :: IO ()
main = do
  putStrLn (iF true "ほげ" "ぴよ")  -- ほげ
  putStrLn (iF false "ほげ" "ぴよ") -- ぴよ