Anonymous user
World Cup group stage: Difference between revisions
m
→version 2, generated game sets: changed a comment and some whitespace.
m (→version 2, generated game sets: aligned some statements.) |
m (→version 2, generated game sets: changed a comment and some whitespace.) |
||
Line 1,001:
end /*j*/
call sort teams
do t=1 for teams; tm= t - 1; _= @.t
points.tm._ = points.tm._ + 1;
end /*t*/
end /*until*/
$.=
▲ end /*j*/
say /* [↓] build grid line for the box*/
L= length($.1) -2; $$= translate( translate( left($.1, L), , 0123456789), '─', " ")
Line 1,014 ⟶ 1,013:
say left('', 15) "╔"translate($$, '═╤', "─│")'╗' /*display the bottom sep for title.*/
p= 0
do m=teams-1 by -1 for teams; p = p + 1 /*bump the place holder (counter)*/
say right('('th(p) "place)", 14) " ║"left($.m, L)'║'
if m>0 then say right(' ', 14) " ╟"translate($$, '┼', "│")'╢'
Line 1,023 ⟶ 1,022:
nextResult: if results==setLimit then return 0 /* [↓] do arithmetic in base three. */
res= 0; do k=1 for sets; res= res * 3 + substr( results, k, 1)
end /*
results=; res= res + 1
do sets; results= res // 3 || results; res= res % 3
|