github/riichi
1
0
Fork 0
mirror of https://github.com/correl/riichi.git synced 2024-11-23 19:19:55 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fixed hand scoring

Browse source
This commit is contained in:
Correl Roush 2012-05-08 10:41:32 -04:00
parent e727679729
commit a50d5d3087
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/riichi.erl
View file

@ -106,14 +106,14 @@ score_hand(#hand{}=Hand, BaseFu, Limit) ->
_Kokushi_Musou = fun(#hand{}=H) -> _Kokushi_Musou = fun(#hand{}=H) ->
Sets = find_sets(H#hand.tiles), Sets = find_sets(H#hand.tiles),
Terminals = not lists:any(fun(#tile{value=V}) -> lists:member(V, lists:seq(2,8)) end, H#hand.tiles), Terminals = not lists:any(fun(#tile{value=V}) -> lists:member(V, lists:seq(2,8)) end, H#hand.tiles),
Orphans = 13 == length([C || {C, _T} <- Sets, C == 1]), Orphans = 12 == length([C || {C, _T} <- Sets, C == 1]),
case Terminals and Orphans of case Terminals and Orphans of
true -> 13; true -> 13;
_ -> 0 _ -> 0
end end
end end
], ],
score(lists:sum(Fu), [F(Hand) || F <- Yakuman], Limit). score(lists:sum(Fu), lists:sum([F(Hand) || F <- Yakuman]), Limit).
find_sets(Tiles) -> find_sets(Tiles) ->
Unique = sets:to_list(sets:from_list(Tiles)), Unique = sets:to_list(sets:from_list(Tiles)),