H24.hs


1
2
3
4
5
6
7

import System.Random
import Data.List
diffSelect :: Int -> Int -> IO [Int]
diffSelect c to = do
    gen <- getStdGen
    return $ take c . nub $ randomRs (1,to) gen