From 9a9206e0cbfba6073786a98096c6e5467ebaa86b Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Mon, 8 Feb 2016 17:29:22 -0700 Subject: stage for new xps 13 --- dist/setup-config.ghc-mod.cabal-components | Bin 1276 -> 1264 bytes dist/setup-config.ghc-mod.package-options | Bin 307 -> 295 bytes dist/setup-config.ghc-mod.resolved-components | Bin 2478 -> 2533 bytes src/Mahjong/Point.hs | 9 +++++++++ 4 files changed, 9 insertions(+) create mode 100644 src/Mahjong/Point.hs diff --git a/dist/setup-config.ghc-mod.cabal-components b/dist/setup-config.ghc-mod.cabal-components index 6b6a23b..17ef2f7 100644 Binary files a/dist/setup-config.ghc-mod.cabal-components and b/dist/setup-config.ghc-mod.cabal-components differ diff --git a/dist/setup-config.ghc-mod.package-options b/dist/setup-config.ghc-mod.package-options index 0bc2770..d350fa1 100644 Binary files a/dist/setup-config.ghc-mod.package-options and b/dist/setup-config.ghc-mod.package-options differ diff --git a/dist/setup-config.ghc-mod.resolved-components b/dist/setup-config.ghc-mod.resolved-components index 984c6cf..daf12e2 100644 Binary files a/dist/setup-config.ghc-mod.resolved-components and b/dist/setup-config.ghc-mod.resolved-components differ 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 -- cgit v1.2.3-70-g09d2