解法
高々 7 通り（土日をまとめると 6 通り）なのでハードコーディング。
コード
import Control.Applicative import Control.Monad import Data.List main = do day <- getLine print $ solve day solve :: String -> Int solve "Monday" = 5 solve "Tuesday" = 4 solve "Wednesday" = 3 solve "Thursday" = 2 solve "Friday" = 1 solve _ = 0
