domain :: Finite a => [a]domain = toList . execWriter . assemble $ tell . return
toList
If you are unable to use this captcha for any reason, please contact us by email at support@dreamwidth.org
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
chimingchimingchimingchiming
no subject
Date: 2013-01-18 02:55 am (UTC)From:domain :: Finite a => [a]domain = toList . execWriter . assemble $ tell . return
Where
toListis from DList and brings the runtime down to O(n) instead of O(n^2) due to the writer monad always appending to the right.