realhaidinh

input = System.argv()
  |> List.first()
if input != nil do
  lines = File.stream!(input)
  |> Stream.map(&String.trim/1)

  output = lines
  |> Enum.reduce(%{}, fn (line, result)->
      [_, team_a, score_a, team_b, score_b] = Regex.run(~r{^([\w\s]+)(\d+), ([\w\s]+)(\d+)$}, line)
      [team_a, team_b, score_a, score_b] = [String.trim(team_a), String.trim(team_b), String.to_integer(score_a), String.to_integer(score_b)]

realhaidinh

program bangsolieu;
uses crt;
var  x,y,i,j,k,m,l:integer;
a:array[1..100,1..100] of integer;
b:array[1..10] of integer;
khong,mot,hai,ba,bon,nam,sau,bay,tam,chin:boolean;
BEGIN
        clrscr;
        repeat
        begin