関数型プログラミング言語Haskell Part33

[655 デフォルトの名無しさん 2021/01/20(水) 16:39:30.61 ID:IzsyJlfZ]

>>652
これでどうかな？
randInts2 :: [IO Int]
randInts2 =
iterate ( >>= const (randomIO :: IO Int) ) (randomIO :: IO Int)
main :: IO ()
main = do
a <- head randInts2
print a