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 | |
| parent | 60b703b09db6830122e054bd5b1bd6c560791e7a (diff) | |
| download | hmj-9a9206e0cbfba6073786a98096c6e5467ebaa86b.tar.gz hmj-9a9206e0cbfba6073786a98096c6e5467ebaa86b.tar.bz2 hmj-9a9206e0cbfba6073786a98096c6e5467ebaa86b.zip | |
stage for new xps 13
| -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 |