1 files changed, 21 insertions, 0 deletions

diff --git a/src/lisp/number.rs b/src/lisp/number.rs
index 23d7997..0ce5ac0 100644
--- a/src/lisp/number.rs
+++ b/src/lisp/number.rs
@@ -1,4 +1,5 @@
 use std::{
+    cmp::{Eq, Ord, Ordering, PartialEq, PartialOrd},
     fmt,
     ops::{Add, Mul, Sub},
 };
@@ -78,6 +79,26 @@ impl PartialEq for LispNumber {
     }
 }
 
+impl Eq for LispNumber {}
+
+impl Ord for LispNumber {
+    fn cmp(&self, other: &Self) -> Ordering {
+        use LispNumber::*;
+        match (*self, *other) {
+            (Integer(a), Integer(b)) => a.cmp(&b),
+            (Float(a), Integer(b)) => (a as i64).cmp(&b),
+            (Integer(a), Float(b)) => a.cmp(&(b as i64)),
+            (Float(a), Float(b)) => (a as i64).cmp(&(b as i64)),
+        }
+    }
+}
+
+impl PartialOrd for LispNumber {
+    fn partial_cmp(&self, other: &Self) -> Option<Ordering> {
+        Some(self.cmp(other))
+    }
+}
+
 impl fmt::Display for LispNumber {
     fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {
         match self {