計算機科学のブログ

関数型プログラミングの基礎 関数と関数型プログラミング where句

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT1(関数型プログラミングの基礎)、LESSON 2(関数と関数型プログラミング)、2.3(関数型プログラミングの実用的価値)、変数、クイックチェック 2-3の解答を求めてみる。

コード

lesson/app/Main.hs

module Main where

import Lib

doublePlusTwo x = doubleX + 2
  where
    doubleX = 2 * x

main :: IO ()
main = do
  mapM_
    ( \x ->
        print $
          mconcat
            [ "doublePlusTwo ",
              show x,
              " -> ",
              show $ doublePlusTwo x
            ]
    )
    [-4 .. 5]

入出力結果(Terminal, Zsh)

% stack runghc app/Main.hs
"doublePlusTwo -4 -> -6"
"doublePlusTwo -3 -> -4"
"doublePlusTwo -2 -> -2"
"doublePlusTwo -1 -> 0"
"doublePlusTwo 0 -> 2"
"doublePlusTwo 1 -> 4"
"doublePlusTwo 2 -> 6"
"doublePlusTwo 3 -> 8"
"doublePlusTwo 4 -> 10"
"doublePlusTwo 5 -> 12"
%