
8 Sep
2012
8 Sep
'12
11:46 a.m.
On Sat, Sep 8, 2012 at 5:40 PM, Chaddaï Fouché
listOfN n g = replicateM n g
mixIntersperse genSep genWord = do n <- arbitrary
Probably you should rather use
Positive n <- arbitrary
No reason to waste your time checking empty lists after all...
ws <- listOfN n genWord ss <- listOfN (n-1) genSep return $ interlace ws ss