From 8cfa606f3834cf7d05f5011bc68295a9d84263dc Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sun, 14 Apr 2019 13:03:24 +0000
Subject: stdlib: Split out tests

---
 gen/src/order.erl | 73 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 gen/src/order.erl

(limited to 'gen/src/order.erl')

diff --git a/gen/src/order.erl b/gen/src/order.erl
new file mode 100644
index 0000000..7921740
--- /dev/null
+++ b/gen/src/order.erl
@@ -0,0 +1,73 @@
+-module(order).
+-compile(no_auto_import).
+
+-export([reverse/1, to_int/1, compare/2, max/2, min/2]).
+
+reverse(Order) ->
+    case Order of
+        lt ->
+            gt;
+
+        eq ->
+            eq;
+
+        gt ->
+            lt
+    end.
+
+to_int(Order) ->
+    case Order of
+        lt ->
+            -1;
+
+        eq ->
+            0;
+
+        gt ->
+            1
+    end.
+
+compare(A, B) ->
+    case {A, B} of
+        {lt, lt} ->
+            eq;
+
+        {lt, _} ->
+            lt;
+
+        {eq, eq} ->
+            eq;
+
+        {gt, gt} ->
+            eq;
+
+        {eq, gt} ->
+            lt;
+
+        _ ->
+            gt
+    end.
+
+max(A, B) ->
+    case {A, B} of
+        {gt, _} ->
+            gt;
+
+        {eq, lt} ->
+            eq;
+
+        _ ->
+            B
+    end.
+
+min(A, B) ->
+    case {A, B} of
+        {lt, _} ->
+            lt;
+
+        {eq, gt} ->
+            eq;
+
+        _ ->
+            B
+    end.
-- 
cgit v1.2.3