fork download
copy 
  1. program arena;
  2. var
  3.     N, E, L, i , P, Q, vivi, ricordaL   : longint;
  4.     t   : char;
  5.     Live : array[0..100000] of longint;
  6.  
  7. begin
  8.     readln(N, E, L);
  9.     for i:=0 to N-1 do Live[i]:=L;
  10.     vivi:=0; ricordaL:=L;
  11.     for i:=0 to E-1 do 
  12.       begin
  13.         read(P, t, t);
  14.         if t = 'f' then readln(Q)
  15.                    else begin
  16.                        assert(t='e');
  17.                        readln;
  18.                      end;
  19.         if t='e' then 
  20.                     begin
  21.                       Live[P]:=Live[P]-1;
  22.                       L:=L-1;
  23.                     end
  24.                  else
  25.                     inc(Live[Q]);
  26.       end;
  27.      for i:=0 to E-1 do write(Live[i],' ') ; writeln;
  28.     for i:=0 to E-1 do if Live[i]>=ricordaL then inc(vivi);
  29.     writeln(vivi); (* printing solution *)
  30.  
  31. end.
  32.  
Success #stdin #stdout 0s 5276KB
comments (?)
stdin
copy 
4 4 2
0 f 3
1 e
2 f 1
0 f 2
stdout
copy 
2 2 3 3 
4
https://ideone.com/qsUns0
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!