Secret Santa Puzzle in R