HaskellのList Monadを使って論理パズルを解くことができるらしい。 -- choose correctly one from three casckets portia :: [[Bool]] portia = do g <- bool s <- bool v <- bool gc <- bool sc <- bool pc <- bool guard $ (==1) $ length $ filter id [g…

test