Jump to content

Round-robin tournament schedule: Difference between revisions

Round-robin tournament schedule (view source)

Revision as of 11:13, 10 November 2023

18 bytes removed ,  6 months ago
→‎{{header|uBasic/4tH}}
(Added BASIC256 and Yabasic. Grouping BASIC dialects)
imported>Thebeez
Line 430:
 
End
 
' helper function to allow byes to be printed intelligently
_Nob Param (3) : Return (Iif (a@ = b@ * c@, Dup(" B"), Str("_#", b@)))
 
_Roundrob
Line 447 ⟶ 444:
 
For c@ = 1 To a@-1 ' print the pairings according to the scheme
For c@ = 1 To a@-1 ' print the pairings according to the scheme
Print Using "Round __: ";c@;
' 1 2 3 4
For d@ = 1 To a@/2 ' 5 6 7 8
Print "("; Show(FUNC(_NobIif (a@, = @(d@), * b@)));, "( B - ", Str(" (_# -! ", @(d@))));
Print Show(FUNC(_NobIif (a@, = @(d@+a@/2), * b@, " B))); ", Str("_#) ", @(d@+a@/2))));
Next
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/355192"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information