Round-robin tournament schedule: Difference between revisions
→APL
Cyril Nocton (talk | contribs) No edit summary |
Cyril Nocton (talk | contribs) (→APL) |
||
Line 11:
<br>
=={{header|APL}}==
<syntaxhighlight lang="APL">
∇ SCHEDULER N;R;I
R←(⍳N),(2|N)⍴'-'
I←0 ⋄ N←⍴(R)
L:⎕←'ROUND',I←I+1
⎕←((N÷2)↑R),[0.5]⌽(N÷2)↓R
R←(1↑R),1⌽1↓R
→(I<N-1)/L
∇
</syntaxhighlight>
{{out}}
<pre>
SCHEDULER 4
ROUND 1
1 2
4 3
ROUND 2
1 3
2 4
ROUND 3
1 4
3 2
</pre>
=={{header|AWK}}==
<syntaxhighlight lang="awk">
Line 113 ⟶ 137:
2 12 11 10 9 8
</pre>
=={{header|FreeBASIC}}==
<syntaxhighlight lang="freebasic">function nob( n as uinteger, i as uinteger, bye as boolean ) as string
| |||