計算機科学のブログ

Haskell - コンテキストでの型の操作 - コンテキストとしてのリスト:Applicative型クラスをさらに掘り下げる - リスト, pure関数, <*>演算子

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT5(コンテキストでの型の操作)、LESSON 29(コンテキストとしてのリスト:Applicative型クラスをさらに掘り下げる)、29.5(練習問題)、Q29-3の解答を求めてみる。

コード

sample.hs

main :: IO ()
main = do
  print beers
  print $ maximum beers

beers :: [Int]
beers =
  pure (-)
    <*> ( pure (+)
            <*> [2 * 2]
            <*> (pure (*) <*> map (+ 2) [2, 3] <*> [3, 4])
        )
    <*> [6, 12]

入出力結果(Terminal, Zsh)

% runghc sample.hs
[10,4,14,8,13,7,18,12]
18
%