Anton Shestakov <engored@ya.ru>, Sat, 08 Mar 2014 23:37:19 +0900
rps_rules:why/3, use it in rps3 and rps5.
src/rps_rules.erl
Permissions: -rw-r--r--
-export([parse/1, winning_hand/2, why/3]). -include("rps_rules.hrl"). add_unique(Elem, List) -> case lists:member(Elem, List) of Tokens = lists:map(fun list_to_atom/1, string:tokens(Text, " ")), parse(Tokens, #ruleinfo{}). parse([H1,Label,H2|T], #ruleinfo{hands=Hands, beats=Beats, loses=Loses, why=Why}) -> hands=add_unique(H1, Hands), beats=dict:append(H1, H2, Beats), loses=dict:append(H2, H1, Loses), why=dict:store({H1, H2}, Label, Why)}, % rock, rock, rock -> rock % rock, paper, scissors -> undefined % rock, paper, paper -> paper % rock, rock, paper -> paper winning_hand(Hands, State=#ruleinfo{}) -> HSet = sets:from_list(Hands), Loses = dict:fetch(Hand, State#ruleinfo.loses), case sets:is_disjoint(sets:from_list(Loses), HSet) of why(H1, H2, State=#ruleinfo{}) when is_atom(H2) -> atom_to_list(dict:fetch({H1, H2}, State#ruleinfo.why)); why(H1, Hands, State=#ruleinfo{}) when is_list(Hands) -> F = fun(H2) -> why(H1, H2, State) ++ " " ++ atom_to_list(H2) end, atom_to_list(H1) ++ " " ++ string:join(lists:map(F, Hands), ", ").