関数型プログラミングの基礎 クロージャと部分的用 even関数、if/else/then
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT1(関数型プログラミングの基礎)、LESSON 5(クロージャと部分的用)、5.5(練習問題)Q5-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
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
main :: IO ()
main = do
mapM_ print $
[ifEvenInc, ifEvenDouble, ifEvenSquare]
<*> [-2 .. 3]
入出力結果(Terminal, Zsh)
% stack runghc app/Main.hs
-1
-1
1
1
3
3
-4
-1
0
1
4
3
4
-1
0
1
4
3
%