Round-robin tournament schedule: Difference between revisions

Content added Content deleted
imported>Thebeez
imported>Thebeez
Line 1,426: Line 1,426:
Next
Next


For c@ = 1 To a@-1
For c@ = 1 To a@-1 ' print the pairings according to the scheme
Print Using "Round __: ";c@;
Print Using "Round __: ";c@;
For d@ = 1 To a@/2 ' print the pairings according to the scheme
' 1 2 3 4
' 1 2 3 4
' 5 6 7 8
For d@ = 1 To a@/2 ' 5 6 7 8
Print "("; Show(FUNC(_Nob (a@, @(d@), b@)));" - ";
Print "("; Show(FUNC(_Nob (a@, @(d@), b@)));" - ";
Print Show(FUNC(_Nob (a@, @(d@+a@/2), b@)));") ";
Print Show(FUNC(_Nob (a@, @(d@+a@/2), b@)));") ";
Next
Next

Print
' now move positions 2-n around clockwise
Print ' now move positions 2-n around clockwise
e@ = @(a@/2) ' need to track two temporary variables
e@ = @(a@/2) ' need to track two temporary variables
f@ = @(a@/2+1)
f@ = @(a@/2+1)