関数型プログラミングの基礎 - クロージャと部分適用 - even関数

開発環境

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT1(関数型プログラミングの基礎)、LESSON 5(クロージャと部分適用)、5.5(練習問題)、5-1の解答を求めてみる。

コード

sample.hs

main :: IO ()
main = do
  print $ ifEvenInc 5
  print $ ifEvenInc 10
  print $ ifEvenDouble 5
  print $ ifEvenDouble 10
  print $ ifEvenSquare 5
  print $ ifEvenSquare 10

ifEven :: Integral t => (t -> t) -> t -> t
ifEven func x = if even x
    then func x
    else x

inc :: Num a => a -> a
inc x = x + 1
double :: Num a => a -> a
double x = 2 * x
square :: Num a => a -> a
square x = x^2

ifEvenInc :: Integer -> Integer
ifEvenInc = ifEven inc
ifEvenDouble :: Integer -> Integer
ifEvenDouble = ifEven double
ifEvenSquare :: Integer -> Integer
ifEvenSquare = ifEven square

入出力結果(Terminal, Zsh)

% runghc sample.hs 
5
11
5
20
5
100
%