src/Mahjong/Point.hs


1
2
3
4
5
6
7
8
9

module Mahjong.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