fork download
  1. program paradox;
  2. var n, i, countinizio, countfine:integer;
  3. S: array[1..325] of string;
  4. A,B,SY: array [1..325] of char;
  5. lettere : array[1..26, 1..2] of integer;
  6.  
  7. begin
  8. readln(N);
  9. for i:=1 to N do readln(S[i]);
  10. for i:=1 to N do begin A[i]:=S[i][1]; SY[i]:=S[i][3]; B[i]:=S[i][5];end;
  11. for i:=1 to 26 do begin lettere[i][1]:=0; lettere[i][2]:=0; end;
  12. for i:=1 to N do begin if SY[i]='<' then begin lettere[ord(A[i])-96][1]:=lettere[ord(A[i])-96][1]+1;lettere[ord(B[i])-96][2]:=lettere[ord(B[i])-96][2]+1; end
  13. else begin lettere[ord(B[i])-96][1]:=lettere[ord(B[i])-96][1]+1; lettere[ord(A[i])-96][2]:=lettere[ord(A[i])-96][2]+1; end; end;
  14. countinizio:=0; countfine:=0;
  15. for i:=1 to 26 do if (lettere[i][1]=2) and (lettere[i][2]=0) then countinizio:=countinizio+1;
  16. for i:=1 to 26 do if (lettere[i][1]=0) and (lettere[i][2]=2) then countfine:=countfine+1;
  17. if countinizio=countfine then writeln(':)')
  18. else writeln(':(');
  19. end.
Success #stdin #stdout 0s 5316KB
stdin
5
a > f
b > c
a < d
d < c
f < b
stdout
:)