関数型プログラミングの基礎関数と関数型プログラミングインクリメント

入門Haskellプログラミング
 楽天ブックス
Yahoo!ショッピング
au PAY マーケット

開発環境

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT1(関数型プログラミングの基礎)、LESSON 2(関数と関数型プログラミング)、2.5(練習問題)Q2-2の解答を求めてみる。

コード

lesson/app/Main.hs

module Main where

import Lib

inc n = n + 1

double n = 2 * n

square n = n ^ 2

main :: IO ()
main = do
  mapM_
    ( \(s, f) ->
        mapM_
          (\n -> putStrLn $ mconcat [s, " ", show n, " -> ", show $ f n])
          [-4 .. 5]
    )
    [ ("inc", inc),
      ("double", double),
      ("square", square)
    ]

入出力結果(Terminal, Zsh)

% stack runghc app/Main.hs
inc -4 -> -3
inc -3 -> -2
inc -2 -> -1
inc -1 -> 0
inc 0 -> 1
inc 1 -> 2
inc 2 -> 3
inc 3 -> 4
inc 4 -> 5
inc 5 -> 6
double -4 -> -8
double -3 -> -6
double -2 -> -4
double -1 -> -2
double 0 -> 0
double 1 -> 2
double 2 -> 4
double 3 -> 6
double 4 -> 8
double 5 -> 10
square -4 -> 16
square -3 -> 9
square -2 -> 4
square -1 -> 1
square 0 -> 0
square 1 -> 1
square 2 -> 4
square 3 -> 9
square 4 -> 16
square 5 -> 25
%