basdirks

tbl=:3 4 $ 0; 2; 'A'; 'B'; 3; 1; 'B'; 'C'; 1; 1; 'C'; 'A'

init=:((~. @: , @: (2&}."1)) ; (0 #~ #)) tbl
NB. given a table of team scores, score a game and return new team score
score =: 4 : 0
    'allteams scores'=. > y
    diff =. - / (> @: (2&{.)) > x
    teams=. 2&}. > x
    allteamIdx=. allteams i. teams