Round-robin tournament schedule: Difference between revisions

Content added Content deleted

Inline

@@ Line 430: / 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: / Line 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@;
+    Print Using "Round __:  ";c@;
                              ' 1 2 3 4
     For d@ = 1 To a@/2       ' 5 6 7 8
-      Print "("; Show(FUNC(_Nob (a@, @(d@), b@)));" - ";
+      Print Show(Iif (a@ = @(d@) * b@, "( B - ", Str(" (_# -! ", @(d@))));
-      Print Show(FUNC(_Nob (a@, @(d@+a@/2), b@)));") ";
+      Print Show(Iif (a@ = @(d@+a@/2) * b@, " B) ", Str("_#) ", @(d@+a@/2))));
     Next