Elixir Rock Paper Scissors Golf

rps-golf.exs

import Enum
t = 'rps'
c = fn(s)-> into(s,HashSet.new) end
s = (IO.gets'') |> String.strip |> String.to_char_list
case count(Set.difference(c.(s),c.(t))) do
 0 when length(s)==3-> ->
    e = for x<-s, do: {x,random(t)}
    x = sum(map(e,fn(x) -> case x do {x,x}->0;{?r,?s}->1;{?p,?r}->1;{?s,?p}->1;_->-1 end end))
    IO.puts map(e,&(elem(&1,1)))
    IO.puts(x<0&&"Lose"||x>0&&"Win"||"Draw")
 _ ->
end