Skip to content

Instantly share code, notes, and snippets.

@kunishi

kunishi/find_in_btree.sml

Created January 29, 2014 09:56
Show Gist options
  • Save kunishi/8684866 to your computer and use it in GitHub Desktop.
Save kunishi/8684866 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
find_in_btree.sml
datatype 'a btree = Empty | Node of 'a * 'a btree * 'a btree;
fun find_in_btree(x, Empty) = false
| find_in_btree(x, Node(a, l, r)) =
x = a orelse find_in_btree(x, l) orelse find_in_btree(x, r);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment