コンテキストでの型の操作 do表記を使ってMonadを扱いやすくする do表記を使って同じコードを異なるコンテキストで再利用する Listコンテキスト:応募者のリストを処理する

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

開発環境

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 31(do表記を使ってMonadを扱いやすくする)、31.2(do表記を使って同じコードを異なるコンテキストで再利用する)、Listコンテキスト:応募者のリストを処理する、クイックチェック 31-5の解答を求めてみる。

空のリストにも対処する。

実際に確認。

コード

lesson/app/Main.hs

module Main (main) where

import Lib
  ( assertCandidateList,
  )

main :: IO ()
main = do
  print $ assertCandidateList []

lesson/src/Lib.hs

module Lib
  ( assertCandidateList,
  )
where

data Grade = F | D | C | B | A
  deriving (Eq, Ord, Enum, Show, Read)

data Degree = HS | BA | MS | PhD
  deriving (Eq, Ord, Enum, Show, Read)

data Candidate = Candidate
  { candidateId :: Int,
    codeReview :: Grade,
    cultureFirt :: Grade,
    education :: Degree
  }
  deriving (Show)

viable :: Candidate -> Bool
viable candidate =
  all
    (== True)
    [ codeReview candidate > B,
      cultureFirt candidate > C,
      education candidate >= MS
    ]

assertCandidateList :: [Candidate] -> [String]
assertCandidateList candidates = do
  candidate <- candidates
  return $
    if (viable candidate)
      then "passed"
      else "failed"

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
[]
%