計算機科学のブログ

関数型プログラミングの基礎 - ファーストクラス関数 - 引数としての関数 - 引数としてのラムダ式

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT1(関数型プログラミングの基礎)、LESSON 4(ファーストクラス関数)、4.1(引数としての関数)、引数としてのラムダ式、クイックチェック 4-1の解答を求めてみる。

コード

sample1.hs

main :: IO ()
main = do
  print $ ifEvenCube 0
  print $ ifEvenCube 1
  print $ ifEvenCube 2
  print $ ifEvenCube 3
  print $ ifEvenCube 4
  print $ ifEvenCube 5


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

ifEvenCube = ifEven (\x -> x^3)

入出力結果(Terminal, Zsh)

% runghc sample1.hs
0
1
8
3
64
5
%