torus711 のアレ

主に競技プログラミングの問題について書きます

AtCoder Regular Contest #012, A : 週末

解法

高々 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