hakelimopu

type choice = Rock | Scissors | Paper
type result = First | Tie | Second

let choices = [Rock; Scissors; Paper]

let combinations = [
    ((Rock, Rock), Tie);
    ((Scissors, Scissors), Tie);
    ((Paper, Paper), Tie);
    ((Rock, Scissors), First);