RosettaCodeData/Task/Pick-random-element/Haskell/pick-random-element-1.hs

import System.Random (randomRIO)

pick :: [a] -> IO a
pick xs = fmap (xs !!) $ randomRIO (0, length xs - 1)

x <- pick [1, 2, 3]
2016 Update 2016-12-05 22:15:40 +01:00			`import System.Random (randomRIO)`
tasks a-s 2013-04-10 23:57:08 -07:00
			`pick :: [a] -> IO a`
2016 Update 2016-12-05 22:15:40 +01:00			`pick xs = fmap (xs !!) $ randomRIO (0, length xs - 1)`
tasks a-s 2013-04-10 23:57:08 -07:00
June 2018 Update 2018-06-22 20:57:24 +00:00			`x <- pick [1, 2, 3]`