fork download 
  1. program paradox;
  2. var n, i, j, count:integer;
  3.     S: array[1..325] of string;
  4.     A,B,SY: array [1..325] of char;
  5.     lettere : array[1..26,1..26] of boolean;
  6.     visited : array [1..26] of char;
  7.     risposta: string;
  8.     ciclo : boolean;
  9.  
  10. procedure DFS(u: Integer);
  11. var v: Integer;
  12. begin
  13.   ciclo:=false;
  14.   visited[u]:='2';  write ('u  ',u, ' ');
  15.   for v:=1 to 26 do   if (lettere[u,v] = true) then begin  if visited[v]='1' then DFS(v)
  16.                                                                              else  if visited[v]='3' then ciclo:=true; end;
  17.  
  18.   visited[u]:='3';                                                                       
  19.  
  20.  
  21. writeln(ciclo); 
  22. end;
  23.  
  24. begin
  25.     readln(N);
  26.     for i:=1 to  N  do readln(S[i]);
  27.     for i:=1 to N do begin A[i]:=S[i][1]; SY[i]:=S[i][3]; B[i]:=S[i][5];end;
  28.     for i:=1 to 26 do 
  29.                  for j:=1 to 26 do lettere[i, j]:=false;
  30.     for i:=1 to 26 do visited[i]:='1';
  31.     ciclo := false;
  32.     for i:=1 to N do 
  33.                     begin
  34.                       if SY[i]='<' then lettere[ord(A[i])-96, ord(B[i])-96]  := true
  35.                                    else if SY[i]='>' then lettere[ord(B[i])-96, ord(A[i])-96] :=true;
  36.                     end;
  37.     DFS(1);
  38.     if ciclo=true then risposta:=':('
  39.                   else risposta:=':)';
  40.     writeln(risposta);
  41.     end.
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin 
3
a > b
c < b
a < c
stdout 
u  1 u  3 u  2 FALSE
FALSE
FALSE
:)
https://ideone.com/Wiobee
language:
Pascal (fpc 3.0.4)
created:
17 days 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!