Anonymous user
World Cup group stage: Difference between revisions
m
→version 2, generated game sets: aligned some statements.
m (→version 2, generated game sets: added whitespace.) |
m (→version 2, generated game sets: aligned some statements.) |
||
Line 984:
if win=='' | win=="," then win= 3 /* " " " " " " */
sets= 0; gs= /*the number of sets (so far). */
do j=1 for teams
do k=j+1 to teams;
games.sets= j || k;
end /*j*/
end /*k*/
z= 1; setLimit= copies(2, sets) /*Z: max length of any number shown. */
say teams ' teams, ' sets " game sets: " gs /*display what's being used for calcs. */
Line 995:
do until \nextResult(results); @.= 0
do j=1 for sets; r= substr( results, j, 1)
parse var games.j A +1 B /*get the A and B teams*/
if r==0 then @.B= @.B + win /*win for right─most team.*/
if r==1 then do; @.A= @.A + 1; @.B= @.B + 1; end /*draw for both teams*/
| |||