10:aa2a22dbe1e7
Anton Shestakov <engored@ya.ru>, Wed, 26 Feb 2014 01:46:12 +0900
Use lists:keymember for testing if player has already made his choice.
next change 12:23a27ec9f362
previous change 9:4b4d65b99174

rps3.erl

Permissions: -rw-r--r--

File Latest Revisions Annotate Diff Comparison
Other formats:
JSON Raw
Feeds:
Atom RSS 
-module(rps3).
-export([get_rules/0, beats/1, test_beats/0]).
get_rules() -> [rock, paper, scissors].
beats(C) ->
    beats(C, get_rules()).
beats(C, [C|Tail]) ->
    lists:last(Tail);
beats(C, [B,C|_]) ->
    B;
beats(C, [_|T]) ->
    beats(C, T).
test_beats() ->
    lists:foreach(
        fun(C) ->
            io:format("~w beats ~w.~n", [C, beats(C)])
        end,
        get_rules()).