Swiss system pairs participants by similar records each round.
Examples
# Swiss system followed by top-cut playoffs
teams <- paste("Team", LETTERS[1:16])
trn <- tournament(teams) |>
swiss("open", rounds = 5) |>
single_elim("playoffs", take = top_n(8))
