Word Puzzle (solution without answer)

[BCS]

Reply to wyverex,

> static char[][50] states =
> ["alabama","alaska","arizona","arkansas","california","colorado",
> "connecticut","delaware","florida","georgia","hawaii","idaho",
> "illinois","indiana","iowa","kansas","kentucky","louisiana",
> "maine","maryland","massachusetts","michigan","minnesota",
> "mississippi","missouri","montana","nebraska","nevada",
> "newhampshire","newjersey","newmexico","newyork","northcarolina",
> "northdakota","ohio","oklahoma","oregon","pennsylvania","rhodeisland",
> "southcarolina","southdakota","tennessee","texas","utah","vermont",
> "virginia","washington","westvirginia","wisconsin","wyoming"];
> 

import std.stdio;
void main()
{
  alias byte[26] alpha;
  alpha[50][50] set;

  foreach(int i1, char[] state1; states)
  foreach(int i2, char[] state2; states)
  {
    foreach(ref b; set[i1][i2]) b=0;
    foreach(char c; state1) set[i1][i2][c-'a']++;
    foreach(char c; state2) set[i1][i2][c-'a']++;
  }

  for(int i = 0; i < 50*50; i++)
  {
    int a = i % 50;
    int b = i / 50;
    for(int j = i+1; j < 50*50; j++)
    {
      int c = j % 50;
      int d = j / 50;
      if(c == b && a == d) continue;
      if(set[a][b][] == set[c][d][])
        writef("%s/%s == %s/%s\n", states[a], states[b], states[c], states[d]);
    }
  }
}