1d100.hs

import System.Random

main :: IO ()
main = do
  gen <- getStdGen
  putStrLn $ message $ dice1d100 gen

dice1d100 :: StdGen -> Int
dice1d100 gen = fst $ randomR (1, 100) gen

message :: Int -> String
message n
  | n <= 5    = "サイコロの結果は" ++ show n ++ "で、クリティカルです！"
  | n >= 96   = "サイコロの結果は" ++ show n ++ "で、ファンブルです！"
  | otherwise = "サイコロの結果は" ++ show n ++ "です！"