Skip to content

Instantly share code, notes, and snippets.

@deque-blog
Created February 4, 2017 17:51
Show Gist options
  • Save deque-blog/15b77b694c785faaa5f95a835710d94c to your computer and use it in GitHub Desktop.
Save deque-blog/15b77b694c785faaa5f95a835710d94c to your computer and use it in GitHub Desktop.
instance CoArbitrary [Int] where
coarbitrary gen xs =
Gen $ \rand ->
runGen gen (foldr perturb (perturb 0 rand) xs)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment