関数型プログラミングの基礎 ラムダ関数とレキシカルスコープ 入れ子のラムダ式
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT1(関数型プログラミングの基礎)、LESSON 3(ラムダ関数とレキシカルスコープ)、3.6(練習問題)Q3-2の解答を求めてみる。
コード
lesson/app/Main.hs
module Main where
-- import Lib ()
count :: (Num a) => a -> a
count x =
(\x ->
((\x -> x)
(x + 1)))
(x + 1)
xs :: (Num a, Enum a) => [a]
xs = [-4 .. 5]
main :: IO ()
main = do
mapM_
(\x -> print $
mconcat ["count ",
show x,
" -> ",
show $ count x])
xs
入出力結果(Terminal, Zsh)
% stack runghc app/Main.hs
"count -4 -> -2"
"count -3 -> -1"
"count -2 -> 0"
"count -1 -> 1"
"count 0 -> 2"
"count 1 -> 3"
"count 2 -> 4"
"count 3 -> 5"
"count 4 -> 6"
"count 5 -> 7"
%