関数型言語でフラグ管理をする方法

[1 デフォルトの名無しさん 2018/10/30(火) 21:17:26.98 ID:ZgZ/9CmG]

選択肢が4つでてくる問題が10問でてきて
8問以上正解すればクリアとかどうやって実装するの？

[58 デフォルトの名無しさん 2018/11/04(日) 11:27:53.10 ID:pidkuN2F]

途中で切れてたので再投稿。

main = do
elecheck a
bs <- getcheck [] d
judgment $ trueSum bs

getcheck ns [] = return ns
getcheck ns ((x,y):xs)= do
putStr x
c <- getChar
print c
getcheck ((y == c):ns) xs

judgment n |n >= 8 = putStrLn "You Win!!"
judgment _ = putStrLn "You Lose..."

trueSum = length.(filter (==True))

elecheck [] = return ()
elecheck (e:es) |(('1' <= e) && ('4' >= e)) = elecheck es

d = zip q a

q = ["Q1","Q2","Q3","Q4","Q5","Q6","Q7","Q8","Q9","Q10"]
a = "1234123412"

[59 デフォルトの名無しさん 2018/11/04(日) 11:28:20.18 ID:pidkuN2F]

trueSum = length.(filter (==True))

elecheck [] = return ()
elecheck (e:es) |(('1' <= e) && ('4' >= e)) = elecheck es

d = zip q a

q = ["Q1","Q2","Q3","Q4","Q5","Q6","Q7","Q8","Q9","Q10"]
a = "1234123412"