fork download 
  1. program catchem;
  2. const MAXN=5000;
  3. var N,i,j, lung, somma, ans :Longint;
  4.     S : array[0..MAXN] of string[25];
  5.     uguale :array of Longint;
  6.     visto : array[0..maxN] of boolean;
  7. begin
  8. 	readln(N);
  9. 	for i:=0 to N-1 do begin readln(S[i]); visto[i]:=false; end;
  10. 	somma:=0; lung:=0;
  11. 	for i:=0 to N-1 do
  12. 	          begin
  13. 	              if visto[i]=false then
  14. 	                             begin 
  15. 	                                SetLength(uguale,lung +1);
  16. 	                                lung:=Length(uguale);
  17. 	                                uguale[lung-1]:=1; 
  18. 	                                for j:=i+1 to N do
  19. 	                                                if  S[i]=S[j] then begin  uguale[lung-1]:=uguale[lung-1]+1; visto[j]:=true; end;
  20.  
  21. 	                             end
  22. 	                          else continue; 
  23. 	          end;
  24. 	for i:=0 to lung-1  do somma:=somma+uguale[i];    
  25. 	ans:= (N - somma) + lung +1;
  26. 	writeln(ans);
  27. end.
Success #stdin #stdout 0s 5312KB
comments (?)
stdin 
7
magikarp
magikarp
magikarp
magikarp
magikarp
magikarp
magikarp
stdout 
2
https://ideone.com/REbnyy
language:
Pascal (fpc 3.0.4)
created:
18 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!