99-haskell-problems/Problems 21-28/problem_23.hs

8 lines
213 B
Haskell
Raw Normal View History

import Data.List (nub)
import System.Random (getStdGen, randomRs)
2024-05-25 19:28:16 -05:00
rndSelect :: [a] -> Int -> IO [a]
rndSelect ls n = do
gen <- getStdGen
return $ take n [ls !! m | m <- nub $ randomRs (0, length ls - 1) gen]