From 6e8ab5e994b89cc746c1b1be8902f935af160cf4 Mon Sep 17 00:00:00 2001
From: Correl Roush <correl@gmail.com>
Date: Tue, 8 May 2012 00:45:41 -0400
Subject: [PATCH] Corrected 13-han scores

---
 src/riichi.erl        | 2 +-
 test/riichi_tests.erl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/riichi.erl b/src/riichi.erl
index f09b26b..f6ad0c3 100644
--- a/src/riichi.erl
+++ b/src/riichi.erl
@@ -58,7 +58,7 @@ score(_Fu, Han, Limit) when (Han >= 5) and (Limit == true) ->
             3000;
         Han < 11 ->
             4000;
-        Han < 14 ->
+        Han < 13 ->
             6000;
         true ->
             8000
diff --git a/test/riichi_tests.erl b/test/riichi_tests.erl
index 21913df..3ac0e24 100644
--- a/test/riichi_tests.erl
+++ b/test/riichi_tests.erl
@@ -71,7 +71,7 @@ score_yaku_limit_test_() ->
                 {10, 4000},
                 {11, 6000},
                 {12, 6000},
-                {13, 6000},
+                {13, 8000},
                 {14, 8000},
                 {1000, 8000}
             ]