Round-robin tournament schedule: Difference between revisions

 

=={{header|AWK}}==

# syntax: GAWK -f ROUND-ROBIN_TOURNAMENT_SCHEDULE.AWK

BEGIN {

}

}

{{out}}

<pre>

</pre>

=={{header|FreeBASIC}}==

'helper function to allow byes to be printed intelligently

dim as string pad

print "Nine teams with byes"

roundrob(9)

{{out}}<pre>

Twelve teams

=={{header|Go}}==

{{trans|Wren}}

 

import "fmt"

fmt.Println("\n\nRound robin for 5 players (0 denotes a bye) :\n")

roundRobin(5)

 

{{out}}

 

=={{header|Julia}}==

 

function schurig(N, verbose = true)

print("\n\nSchurig table for round robin with 7 players:")

schurig(7)

<pre>

Schurig table for round robin with 12 players:

=={{header|Perl}}==

===Even===

 

use strict; # https://rosettacode.org/wiki/Round-robin_tournament_schedule

@teams[0,$n-1,1..$n-2] = @teams;

printf 'Round %2d:' . '%4d vs %2d'x($n/2) . "\n", $_, @teams[ map { $_, $n-1-$_} 0..($n/2)-1 ];

{{out}}

<pre>

</pre>

===Even and Odd===

use warnings;

use feature 'say';

say join '', round_robin 12;

say '';

{{out}}

<pre>Round 1: 1 vs 12 2 vs 11 3 vs 10 4 vs 9 5 vs 8 6 vs 7

=={{header|Phix}}==

Based on the circle with rotor diagrams on the wikipedia page, and implements home/away.

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>

{{out}}

<pre>

While I "optimised away" the need for a physical rotate, obviously not because I was concerned with performance but more in the hope of creating shorter and more elegant code, in the end it made little difference.

Should it be more to your taste, you can remove "l" and replace the inner loop above with:

<span style="color: #004080;">sequence</span> <span style="color: #000000;">circle</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">n</span><span style="color: #0000FF;">)</span>

<span style="color: #008080;">for</span> <span style="color: #000000;">rownd</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">n</span> <span style="color: #008080;">do</span> <span style="color: #000080;font-style:italic;">-- (since "round" is a bultin)</span>

<span style="color: #000000;">circle</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">circle</span><span style="color: #0000FF;">[</span><span style="color: #000000;">2</span><span style="color: #0000FF;">..$]&</span><span style="color: #000000;">circle</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span> <span style="color: #000080;font-style:italic;">-- (physically rotate it)</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>

 

=={{header|Picat}}==

===Constraint modelling===

 

main =>

nl

end,

 

{{out}}

* 7 vs 12 must be played in the last round

 

nolog,

N = 12,

[7,12,N-1]],

tournament_cp(N, NumRounds,NumPairs,Extras,X,Bye),

 

{{out}}

Here the cp solver is used since it's faster than the sat solver for generating all solutions.

 

 

main =>

Count = count_all(tournament_cp(N, _NumRounds,_NumPairs,_Extras,_X,_Bye)),

println(N=Count)

 

{{out}}

 

=={{header|Raku}}==

my $half = +@players div 2;

my $round = 0;

@players[1..*].=rotate(-1);

last if [<] @players;

{{out}}

<pre>Round 1: ( 1 vs 12) ( 2 vs 11) ( 3 vs 10) ( 4 vs 9 ) ( 5 vs 8 ) ( 6 vs 7 )

 

=={{header|Ruby}}==

rotating_players = (2..n).map(&:to_s) #player 1 to be added later

rotating_players << "bye" if n.odd?

puts

end

{{out}}

<pre>Round 1

=={{header|Wren}}==

{{libheader|Wren-fmt}}

 

var rotate = Fn.new { |lst|

roundRobin.call(12)

System.print("\n\nRound robin for 5 players (0 denotes a bye) :\n")

 

{{out}}

 

=={{header|XPL0}}==

int I, Player(N+1), Round, Temp;

[for I:= 1 to N do Player(I):= I;

Player(2):= Temp;

];

 

{{out}}