計算機科学のブログ

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

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

コード

lesson/app/Main.hs

module Main where

-- import Lib

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

genIfXEven :: Integral t => t -> (t -> t) -> t
genIfXEven x = \f -> ifEven f x

gs :: [(Integer -> Integer) -> Integer]
gs = map genIfXEven [-4 .. 5]

main :: IO ()
main = do
  mapM_
    ( \g ->
        print $ g $ \n -> n ^ 2
    )
    gs

-- print $ g $ \n -> n ^ 2

入出力結果(Terminal, Zsh)

% stack runghc app/Main.hs
16
-3
4
-1
0
1
4
3
16
5
%