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