ac1151.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 20 行

program tju1151;
var
  count:array[0..63]of longint;
  n,i,j,c:longint;
  s:string;
  ans:int64;
begin
  readln(n);
  for i:=1 to n do begin
    readln(s);
    c:=0;
    for j:=2 to 7 do
      c:=c*2+ord(s[j]<>s[j-1]);
    inc(count[c]);
  end;
  for i:=0 to 63 do
    ans:=ans+int64(count[i])*(count[i]-1) shr 1;
  writeln(ans);
end.