Return to Answer

added 76 characters in body

edited Jul 9, 2018 at 14:20

Haskell, 7474 71 bytes

^{-3 bytes by actually doing what the specs say it should do.}

import System.Random f 0=pure[]0=pure[0] f x=do y<-randomRIOx=randomRIO(0::Int,x-1);>>=fmap(yx:)<$>f y.f

import System.Random f 0=pure[] f x=do y<-randomRIO(0::Int,x-1);(y:)<$>f y

^{-3 bytes by actually doing what the specs say it should do.}

import System.Random f 0=pure[0] f x=randomRIO(0::Int,x-1)>>=fmap(x:).f

answered Jul 9, 2018 at 14:07

import System.Random f 0=pure[] f x=do y<-randomRIO(0::Int,x-1);(y:)<$>f y