From e1f4d26f3ee2e765c87b02c96950c9e0cb1d8bde Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Fri, 10 May 2019 14:11:45 +0100
Subject: int:compare

---
 gen/src/int.erl | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'gen/src')

diff --git a/gen/src/int.erl b/gen/src/int.erl
index d3b5939..21ad7d3 100644
--- a/gen/src/int.erl
+++ b/gen/src/int.erl
@@ -1,7 +1,7 @@
 -module(int).
 -compile(no_auto_import).
 
--export([parse/1, to_string/1, to_base_string/2]).
+-export([parse/1, to_string/1, to_base_string/2, compare/2]).
 
 parse(A) ->
     gleam__stdlib:parse_int(A).
@@ -11,3 +11,18 @@ to_string(A) ->
 
 to_base_string(A, B) ->
     erlang:integer_to_binary(A, B).
+
+compare(A, B) ->
+    case A =:= B of
+        true ->
+            eq;
+
+        false ->
+            case A < B of
+                true ->
+                    lt;
+
+                false ->
+                    gt
+            end
+    end.
-- 
cgit v1.2.3