From 3803d7be41afd2665d4e29850bf6327173a19ddd Mon Sep 17 00:00:00 2001
From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Wed, 25 Jul 2012 11:00:19 -0400
Subject: [PATCH] Explicit sort function.

---
 001/src/life_time.erl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/001/src/life_time.erl b/001/src/life_time.erl
index 851aa05..1b639a7 100644
--- a/001/src/life_time.erl
+++ b/001/src/life_time.erl
@@ -99,7 +99,10 @@ handle_cast({tock, {ID, CellState}},
     case NewRepliesPending of
         0 ->
             NewGenCount = GenCount + 1,
-            SortedStatePairs = lists:sort(NewStatePairs),
+            SortedStatePairs = lists:sort(
+                fun({A, _}, {B, _}) -> A < B end,
+                NewStatePairs
+            ),
             StateChars = [state_to_char(S) || {_, S} <- SortedStatePairs],
 
             ok = io:format(
-- 
2.20.1