-module(rps3).
-export([get_rules/0, beats/1, test_beats/0]).
get_rules() -> [rock, paper, scissors].
beats(H) ->
    beats(H, get_rules()).
beats(H, [H|Tail]) ->
    lists:last(Tail);
beats(H, [B,H|_]) ->
    B;
beats(H, [_|T]) ->
    beats(H, T).
test_beats() ->
    lists:foreach(
        fun(C) ->
            io:format("~w beats ~w.~n", [C, beats(C)])
        end,
        get_rules()).