diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2016-02-08 17:29:22 -0700 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2016-02-08 17:29:22 -0700 |
| commit | 9a9206e0cbfba6073786a98096c6e5467ebaa86b (patch) | |
| tree | 40665faeef770d42c90cb912369252c6691c2d92 /src/Mahjong/Point.hs | |
| parent | 60b703b09db6830122e054bd5b1bd6c560791e7a (diff) | |
| download | hmj-9a9206e0cbfba6073786a98096c6e5467ebaa86b.tar.gz hmj-9a9206e0cbfba6073786a98096c6e5467ebaa86b.tar.bz2 hmj-9a9206e0cbfba6073786a98096c6e5467ebaa86b.zip | |
stage for new xps 13
Diffstat (limited to 'src/Mahjong/Point.hs')
| -rw-r--r-- | src/Mahjong/Point.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Mahjong/Point.hs b/src/Mahjong/Point.hs new file mode 100644 index 0000000..d2ae679 --- /dev/null +++ b/src/Mahjong/Point.hs @@ -0,0 +1,9 @@ +module Point where + +calPoint (han,fu) + | han < 6 = if med > 2000 then 2000 else med + where med = fu*(2**(han+2)) + | han < 8 = 3000 + | han < 11 = 4000 + | han < 13 = 6000 + | otherwise = 8000 |