Skip to content

Instantly share code, notes, and snippets.

@deque-blog

deque-blog/rapid_check_4_tree_join.hs

Last active February 10, 2017 11:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save deque-blog/865769300f7e81f6ab84bf40b5b119ba to your computer and use it in GitHub Desktop.
Save deque-blog/865769300f7e81f6ab84bf40b5b119ba to your computer and use it in GitHub Desktop.
Download ZIP
Raw
rapid_check_4_tree_join.hs
joinTree :: Tree (Tree Result) -> Tree Result
joinTree (Tree (Tree innerArgResult innerArgShrinks) outerArgShrinks) =
Tree innerArgResult
(map joinTree outerArgShrinks ++ innerArgShrinks)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment