あけましておめでとうございます。 去年はpython占いしたので今年はHaskell占いします。 -- ghciで実行（letとか省いてます） import System.Random choice :: [String] -> Int -> String choice choices seed = (choices !!) . fst $ randomR (0, length ch…