Skip to content

Instantly share code, notes, and snippets.

@deque-blog

deque-blog/arithmetic_simple_generator.hs

Last active February 12, 2017 13:35
Show Gist options
  • Save deque-blog/d1d8f1a93586ca442bfc3ee6d77f3866 to your computer and use it in GitHub Desktop.
Save deque-blog/d1d8f1a93586ca442bfc3ee6d77f3866 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
arithmetic_simple_generator.hs
genCst :: Gen Expr
genCst = fmap cst arbitrary
varNames :: [String]
varNames = [[v] | v <- ['a'..'z']]
genVar :: Gen Expr
genVar = fmap var (elements varNames)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment