diff options
Diffstat (limited to 'lib/concepts/Ordering.ml')
| -rw-r--r-- | lib/concepts/Ordering.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/concepts/Ordering.ml b/lib/concepts/Ordering.ml new file mode 100644 index 0000000..42b20e5 --- /dev/null +++ b/lib/concepts/Ordering.ml @@ -0,0 +1,4 @@ +type ordering = Equal | Smaller | Greater + +let of_int x = + if x < 0 then Smaller else if x > 0 then Greater else Equal |