計算機科学のブログ

コンテキストでの型の操作 コンテキストとしてのリスト:Applicative型クラスをさらに掘り下げる 例:クイズ番組 非決定論的な選択肢 pure関数、<*>演算子

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 29(コンテキストとしてのリスト:Applicative型クラスをさらに掘り下げる)、29.3(コンテキストとしてのリスト)、例:クイズ番組のクイックチェック 29-4の解答を求めてみる。

コード

doorPrize :: [Int]
doorPrize = [1000, 2000, 3000]

boxMul :: [Int]
boxMul = [10, 50]

prize :: [Int]
prize = pure (*) <*> doorPrize <*> boxMul

main :: IO ()
main = do
    mapM_ print [doorPrize, boxMul, prize]

入出力結果(Terminal, Zsh)

% runghc sample04.hs 
[1000,2000,3000]
[10,50]
[10000,50000,20000,100000,30000,150000]
%