8 lines
185 B
Haskell
8 lines
185 B
Haskell
|
import Data.List
|
||
|
|
import System.Random
|
||
|
|
|
||
|
|
rndSelect :: [a] -> Int -> IO [a]
|
||
|
|
rndSelect ls n = do
|
||
|
|
gen <- getStdGen
|
||
|
|
return $ take n [ls !! m | m <- nub $ randomRs (0, length ls - 1) gen]
|