1 files changed, 126 insertions, 0 deletions
diff --git a/gen/order.erl b/gen/order.erl
new file mode 100644
index 0000000..10b5dd7
--- /dev/null
+++ b/gen/order.erl
@@ -0,0 +1,126 @@
+-module(order).
+-include_lib("eunit/include/eunit.hrl").
+
+-export([reverse/1, to_int/1, compare/2, max/2, min/2]).
+
+reverse(Order) ->
+    case Order of
+        lt ->
+            gt;
+
+        eq ->
+            eq;
+
+        gt ->
+            lt
+    end.
+
+-ifdef(TEST).
+reverse_test() ->
+    _ = fun(Capture1) -> expect:equal(Capture1, gt) end(reverse(lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, eq) end(reverse(eq)),
+    fun(Capture1) -> expect:equal(Capture1, lt) end(reverse(gt)).
+-endif.
+
+to_int(Order) ->
+    case Order of
+        lt ->
+            -1;
+
+        eq ->
+            0;
+
+        gt ->
+            1
+    end.
+
+-ifdef(TEST).
+to_int_test() ->
+    _ = fun(Capture1) -> expect:equal(Capture1, -1) end(to_int(lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, 0) end(to_int(eq)),
+    fun(Capture1) -> expect:equal(Capture1, 1) end(to_int(gt)).
+-endif.
+
+compare(A, B) ->
+    case {A, B} of
+        {lt, lt} ->
+            eq;
+
+        {lt, _} ->
+            lt;
+
+        {eq, eq} ->
+            eq;
+
+        {gt, gt} ->
+            eq;
+
+        {eq, gt} ->
+            lt;
+
+        _ ->
+            gt
+    end.
+
+-ifdef(TEST).
+compare_test() ->
+    _ = fun(Capture1) -> expect:equal(Capture1, eq) end(compare(lt, lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, lt) end(compare(lt, eq)),
+    _ = fun(Capture1) -> expect:equal(Capture1, lt) end(compare(lt, gt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, gt) end(compare(eq, lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, eq) end(compare(eq, eq)),
+    _ = fun(Capture1) -> expect:equal(Capture1, lt) end(compare(eq, gt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, gt) end(compare(gt, lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, gt) end(compare(gt, eq)),
+    fun(Capture1) -> expect:equal(Capture1, eq) end(compare(gt, gt)).
+-endif.
+
+max(A, B) ->
+    case {A, B} of
+        {gt, _} ->
+            gt;
+
+        {eq, lt} ->
+            eq;
+
+        _ ->
+            B
+    end.
+
+-ifdef(TEST).
+max_test() ->
+    _ = fun(Capture1) -> expect:equal(Capture1, lt) end(max(lt, lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, eq) end(max(lt, eq)),
+    _ = fun(Capture1) -> expect:equal(Capture1, gt) end(max(lt, gt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, eq) end(max(eq, lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, eq) end(max(eq, eq)),
+    _ = fun(Capture1) -> expect:equal(Capture1, gt) end(max(eq, gt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, gt) end(max(gt, lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, gt) end(max(gt, eq)),
+    fun(Capture1) -> expect:equal(Capture1, gt) end(max(gt, gt)).
+-endif.
+
+min(A, B) ->
+    case {A, B} of
+        {lt, _} ->
+            lt;
+
+        {eq, gt} ->
+            eq;
+
+        _ ->
+            B
+    end.
+
+-ifdef(TEST).
+min_test() ->
+    _ = fun(Capture1) -> expect:equal(Capture1, lt) end(min(lt, lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, lt) end(min(lt, eq)),
+    _ = fun(Capture1) -> expect:equal(Capture1, lt) end(min(lt, gt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, lt) end(min(eq, lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, eq) end(min(eq, eq)),
+    _ = fun(Capture1) -> expect:equal(Capture1, eq) end(min(eq, gt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, lt) end(min(gt, lt)),
+    _ = fun(Capture1) -> expect:equal(Capture1, eq) end(min(gt, eq)),
+    fun(Capture1) -> expect:equal(Capture1, gt) end(min(gt, gt)).
+-endif.