Round-robin tournament schedule: Difference between revisions
→Program
Cyril Nocton (talk | contribs) No edit summary |
Cyril Nocton (talk | contribs) |
||
Line 123:
(labels ((tour (sac &optional (lst ()) &aux (duo ()))
(unless (intersection lst stop :test #'equal)
(cond (
(
(setf stop (nconc stop lst))▼
(t (dolist (i sac)▼
(dolist (j (rest (member i sac)))
(setf duo (list i j))
▲ (setf stop (nconc stop lst)))))))
(tour joueurs)))</syntaxhighlight>
| |||