関数型プログラミングの基礎 高階関数 リストの畳み込み
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT1(関数型プログラミングの基礎)、LESSON9(高階関数)、9.4(リストの畳み込み)のクイックチェック 9-2の解答を求めてみる。
コード
myProduct :: (Foldable t, Num b) => t b -> b
myProduct xs = foldl (*) 1 xs
-- 部分適用
myProduct1 :: [Integer] -> Integer
myProduct1 = foldl (*) 1
ns :: [Integer]
ns = [1 .. 10]
main :: IO ()
main = do
print $ myProduct ns
print $ myProduct1 ns
-- Preludeにある関数
print $ product ns
入出力結果(Terminal, Zsh)
% runghc sample02.hs
3628800
3628800
3628800
%