--- a/rps.erl	Sun Feb 23 00:23:54 2014 +0900
+++ b/rps.erl	Sun Feb 23 00:29:31 2014 +0900
@@ -61,14 +61,14 @@
     room(Players, []).
 
 room(Players, Choices) when length(Players) =:= length(Choices) ->
-    Best = winner(Choices),
+    Winner = winner(Choices),
     Msg = if
-              Best =:= undefined ->
+              Winner =:= undefined ->
                   io:format("draw: ~w.~n", [Choices]),
                   draw;
               true ->
-                  io:format("the winner is ~w.~n", [Best]),
-                  {winner, Best}
+                  io:format("the winner is ~w.~n", [Winner]),
+                  {winner, Winner}
           end,
     lists:foreach(fun(Player) -> Player ! Msg end, Players),
     room(Players);