<div class="gmail_quote">On Sun, Sep 9, 2012 at 1:29 AM, Iain Nicol <span dir="ltr"><<a href="mailto:iain@thenicols.net" target="_blank">iain@thenicols.net</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<br>
mixIntersperse :: Gen String -> Gen String -> Gen [String]<br>
mixIntersperse genSep genWord =<br>
sized (sequence . intersperse genSep . (`replicate` genWord))<br>
<br>
</blockquote></div><br>Very nice :-) (And stupid of me not to think of creating a list of Gen directly !)<br><br>-- <br>Jedaï<br>