2 ms·
import System.Random (randomRIO) pick :: [a] -> IO a pick xs = fmap (xs !!) $ randomRIO (0, length xs - 1) main = do x <- pick lifeAdvice prin
by kimburgess 9y ago
import System.Random (randomRIO)
pick :: [a] -> IO a
pick xs = fmap (xs !!) $ randomRIO (0, length xs - 1)
main = do
x <- pick lifeAdvice
print x