計算機科学のブログ

関数型プログラミングの基礎 - クロージャと部分適用 - 関数を使って関数を作成する

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT1(関数型プログラミングの基礎)、LESSON 5(クロージャと部分適用)、5,1(クロージャ:関数を使って関数を作成する)、クイックチェック 5-1の解答を求めてみる。

コード

sample1.hs

main :: IO ()
main = do
  print $ genIfXEven 0 (\x -> x + 1)
  print $ genIfXEven 1 (\x -> x + 1)
  print $ genIfXEven 2 (\x -> x + 1)
  print $ genIfXEven 5 (\x -> x + 1)

genIfXEven :: Integral t => t -> (t -> t) -> t
genIfXEven x = \f ->
  if even x
    then f x
    else x

入出力結果(Terminal, Zsh)

% runghc sample1.hs 
1
1
3
5
%