fork download
copy 
  1. program arena2;
  2. const
  3.     MAXE = 1000000;
  4. var
  5.     N, E, i : longint;
  6.     X, Y, P : array[0..MAXE-1] of longint;
  7.     F : array[0..MAXE-1] of boolean;
  8.  
  9. procedure capture(N, E: longint; var X, Y, points: array of longint);
  10. begin
  11.     for i:=E-1 downto 0 do
  12.                begin
  13.                    if X[i] = Y[i] then F[X[i]]:= true
  14.                                   else 
  15.                                     begin
  16.                                       if F[Y[i]]= true then  F[Y[i]] := false
  17.                                                        else  inc(points[X[i]]);
  18.                                     end;
  19.                end;
  20. end;
  21.  
  22.  
  23. begin
  24.     readln(N, E);
  25.     for i:=0 to E-1 do
  26.         readln(X[i], Y[i]);
  27.     for i:=0 to E-1 do P[i]:=0;
  28.     for i:=0 to E-1 do F[i]:=false;
  29.     capture(N, E, X, Y, P);
  30.     for i:=0 to N-1 do
  31.         write(P[i], ' ');
  32.     writeln;
  33. end.
  34.  
Success #stdin #stdout 0s 6344KB
comments (?)
stdin
copy 
2 7
0 1
1 0
1 1
0 0
1 0
0 1
0 1
stdout
copy 
2 1
https://ideone.com/6h0GsN
language:
Pascal (fpc 3.0.4)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!