Return an element from a list at random
Download (right click, save as, rename as appropriate)
1 2 3 4
import Random pick :: RandomGen g => [a] -> g -> (a, g) pick list g = (list !! n, g') where (n, g') = randomR (0, length list - 1) g