mirror of
https://github.com/correl/riichi.git
synced 2024-11-14 11:09:36 +00:00
Iipeikou
This commit is contained in:
parent
11e2a20eeb
commit
217dfb2252
2 changed files with 34 additions and 6 deletions
32
src/yaku.erl
32
src/yaku.erl
|
@ -9,12 +9,13 @@
|
|||
-include("../include/riichi.hrl").
|
||||
|
||||
-export([yakuhai/2,
|
||||
tanyao/2,
|
||||
pinfu/2,
|
||||
chiitoitsu/2,
|
||||
kokushi_musou/2,
|
||||
ryuu_iisou/2,
|
||||
dai_san_gen/2]).
|
||||
tanyao/2,
|
||||
pinfu/2,
|
||||
iipeikou/2,
|
||||
chiitoitsu/2,
|
||||
kokushi_musou/2,
|
||||
ryuu_iisou/2,
|
||||
dai_san_gen/2]).
|
||||
|
||||
%% @doc Counts the pons/kans of value tiles in a player's hand.
|
||||
%% Value tiles include all of the dragons, plus the round wind and the player's seat wind.
|
||||
|
@ -67,6 +68,25 @@ pinfu(#game{round=Round}, #player{seat=Seat, hand=Hand=#hand{melds=Melds}, drawn
|
|||
andalso HeadTile#tile.suit =/= dragon,
|
||||
Closed and OpenWait and Chiis and NonValuePair.
|
||||
|
||||
%% @doc Counts unique elements in a list
|
||||
-spec count_unique(list()) -> list({term(), integer()}).
|
||||
count_unique(L) ->
|
||||
Unique = sets:to_list(sets:from_list(L)),
|
||||
[{I, length(lists:filter(fun (X) ->
|
||||
X == I
|
||||
end,
|
||||
L))}
|
||||
|| I <- Unique].
|
||||
|
||||
%% @doc Returns true for a hand containing two identical straights in the same suit
|
||||
%% Will NOT return true if there are more than two, as this yaku and ryanpeikou
|
||||
%% are mutually exclusive.
|
||||
-spec iipeikou(game(), player()) -> boolean().
|
||||
iipeikou(#game{}, #player{hand=#hand{melds=Melds}}) ->
|
||||
Chiis = [M || M = #meld{type=chii} <- Melds],
|
||||
Counts = [C || {_, C} <- count_unique(Chiis)],
|
||||
lists:max(Counts) > 1 andalso lists:max(Counts) < 4.
|
||||
|
||||
%% @doc Returns true for a 7-pair hand.
|
||||
-spec chiitoitsu(game(), player()) -> boolean().
|
||||
chiitoitsu(#game{}, #player{hand=#hand{tiles=[], melds=Melds}})
|
||||
|
|
|
@ -36,6 +36,14 @@ pinfu_test() ->
|
|||
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [6,7,8]]}]},
|
||||
?assertEqual(true, yaku:pinfu(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=sou, value=6}}})).
|
||||
|
||||
iipeikou_test() ->
|
||||
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
||||
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]},
|
||||
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
||||
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
||||
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [6,7,8]]}]},
|
||||
?assertEqual(true, yaku:iipeikou(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=sou, value=6}}})).
|
||||
|
||||
chiitoitsu_test() ->
|
||||
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=pin, value=V})} || V <- lists:seq(1,7)]},
|
||||
?assertEqual(true, yaku:chiitoitsu(#game{}, #player{hand=Hand})).
|
||||
|
|
Loading…
Reference in a new issue