Round-robin tournament schedule: Difference between revisions

Content added Content deleted

Inline

@@ Line 11: / Line 11: @@
 <br>
+=={{header|AWK}}==
+<lang AWK>
+# syntax: GAWK -f ROUND-ROBIN_TOURNAMENT_SCHEDULE.AWK
+BEGIN {
+    main(1)
+    main(2)
+    main(5,"The Bizzaros")
+    main(12)
+    exit(0)
+}
+function main(n,description,  arr,i,j,leng,tmp) {
+    if (n < 2) {
+      printf("\n%d is too few participants\n",n)
+      return
+    }
+    printf("\n%d players  %s\n",n,description)
+    for (i=1; i<=n; i++) {
+      arr[i] = i
+    }
+    if (n % 2 == 1) {
+      arr[++n] = 0 # a "bye"
+    }
+    leng = length(n-1)
+    for (i=1; i<n; i++) {
+      printf("\nround %*d:",leng,i)
+      for (j=1; j<=n/2; j++) {
+        printf("%4s",arr[j]==0?"bye":arr[j])
+      }
+      printf("\n%*s",leng+7,"")
+      for (j=n; j>n/2; j--) {
+        printf("%4s",arr[j]==0?"bye":arr[j])
+      }
+      printf("\n")
+      tmp = arr[n]
+      for (j=n; j>2; j--) {
+        arr[j] = arr[j-1]
+      }
+      arr[2] = tmp
+    }
+}
+</lang>
+{{out}}
+<pre>
+is too few participants
+players
+round 1:   1
+players  The Bizzaros
+round 1:   1   2   3
+         bye   5   4
+round 2:   1 bye   2
+4   3
+round 3:   1   5 bye
+3   2
+round 4:   1   4   5
+2 bye
+round 5:   1   3   4
+bye   5
+players
+round  1:   1   2   3   4   5   6
+11  10   9   8   7
+round  2:   1  12   2   3   4   5
+10   9   8   7   6
+round  3:   1  11  12   2   3   4
+9   8   7   6   5
+round  4:   1  10  11  12   2   3
+8   7   6   5   4
+round  5:   1   9  10  11  12   2
+7   6   5   4   3
+round  6:   1   8   9  10  11  12
+6   5   4   3   2
+round  7:   1   7   8   9  10  11
+5   4   3   2  12
+round  8:   1   6   7   8   9  10
+4   3   2  12  11
+round  9:   1   5   6   7   8   9
+3   2  12  11  10
+round 10:   1   4   5   6   7   8
+2  12  11  10   9
+round 11:   1   3   4   5   6   7
+12  11  10   9   8
+</pre>
 =={{header|FreeBASIC}}==
 <lang freebasic>function nob( n as uinteger, i as uinteger, bye as boolean ) as string