diff options
| -rw-r--r-- | dist/setup-config.ghc-mod.cabal-components | bin | 1276 -> 1264 bytes | |||
| -rw-r--r-- | dist/setup-config.ghc-mod.package-options | bin | 307 -> 295 bytes | |||
| -rw-r--r-- | dist/setup-config.ghc-mod.resolved-components | bin | 2478 -> 2533 bytes | |||
| -rw-r--r-- | src/Mahjong/Point.hs | 9 |
4 files changed, 9 insertions, 0 deletions
diff --git a/dist/setup-config.ghc-mod.cabal-components b/dist/setup-config.ghc-mod.cabal-components Binary files differindex 6b6a23b..17ef2f7 100644 --- a/dist/setup-config.ghc-mod.cabal-components +++ b/dist/setup-config.ghc-mod.cabal-components diff --git a/dist/setup-config.ghc-mod.package-options b/dist/setup-config.ghc-mod.package-options Binary files differindex 0bc2770..d350fa1 100644 --- a/dist/setup-config.ghc-mod.package-options +++ b/dist/setup-config.ghc-mod.package-options diff --git a/dist/setup-config.ghc-mod.resolved-components b/dist/setup-config.ghc-mod.resolved-components Binary files differindex 984c6cf..daf12e2 100644 --- a/dist/setup-config.ghc-mod.resolved-components +++ b/dist/setup-config.ghc-mod.resolved-components 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 |