#!/usr/bin/perl

$usage = <<EOF ;
for i in \\
D790CEA1-E7F2-99DF-329CB6E13DC00B0A \\
6C396C27-E7F2-99DF-32458D9B506F6C51 \\
6C2B3C42-E7F2-99DF-3FA34C372E310432 \\
488285C2-E7F2-99DF-3317065E78D9B349 \\
4BE56B5A-E7F2-99DF-386B04305E1E40DA \\
4BD90FF6-E7F2-99DF-3ED2511720CAC593 \\
4BC8C7B0-E7F2-99DF-3D797E9F900E5830 \\
4BBBE0D4-E7F2-99DF-3EB74E8BA6AB241C \\
4BB07752-E7F2-99DF-31D62577329A9888 \\
4BA4CA20-E7F2-99DF-34573600EA4CBFFE \\
68DFFBC1-E7F2-99DF-3A2B77D008A65A1C \\
68DA5E12-E7F2-99DF-35C8C646C2158AFC \\
68976878-E7F2-99DF-3C676F910C54BB18 \\
688FCD43-E7F2-99DF-3904F9A245D786AD \\
64BD266A-E7F2-99DF-3E50BC5A7F90F189 \\
64BACCCA-E7F2-99DF-31B982D20780AC86 \\
328B26FC-E7F2-99DF-349E8EA1AD1004E3 \\
3595A7AE-E7F2-99DF-379E1FCBEE6E0043 \\
328A11A4-E7F2-99DF-34B15F9B9BA88175 \\
; do
  perl sudoku-2.pl sciam 'http://sciam.com/page.cfm?section=scidoku&puzzle_id='\$i
done
EOF

if ($ARGV[0] eq "") {
  print $usage; exit 1;
}

if ($ARGV[0] eq "1") {
  $data = "1";
} elsif ($ARGV[0] eq "2") {
  $data = "
3  1
 4  
  2 
    
";
} elsif ($ARGV[0] eq "3") {
  $data = "
25 8     
    9 8 2
9  4 7   
64     9 
 9 1 3 4 
 7     21
   5 4  7
7 6 8    
     1 83
";
} else { # 4
  $data = "
  7      C   D  
     4 CB9 15A8 
 D 30    24 B6 9
9   7628  3DECF 
B0    F D3   EA 
  F 4D90 BA6C   
  9 3EB71  2F8 D
  D  8 6F  03  B
6  95  42 B  F  
5 28C  E7A14 9  
   D218 96FC 3  
 B3   7F 8    CA
 9ECB7  3F5A   2
7 4A 06    81 5 
 3869 E54 0     
  0   1      4  
";

$data = "
  D01    9    7 
6 5 03 E     9B 
17   5 2  4 D 06
  9  8 DC  F54  
4 C2   3 6D  58 
   647AB9 8  D  
 13D      7  F  
    8C F  2 6 4E
CA 8 D  1 E2    
  2  B      FAE 
  0  2 1743DB   
 47  6E A   31 8
  F92  05 C  7  
BD C 1  2 A   94
 31     4 69 2 B
 2    B    38C  
";

$data = "
 3 F56   7      
 89 3  F  D 6 C 
E1           A  
  D    A258 9 47
 40 1 9  E 2A   
2  8 F5 B1   63 
BA D08234  5   1
       D 0  2 B 
 5 6  E 8       
A   F  B63508 E9
 E1   65 BC 4  F
   39 7  4 F 16 
3D 5 9CE7    2  
  7           95
 F A 5  0  D E7 
      8   1CB A 
";

$data = "
 4     16
9 68   3 
  5   7  
    5438 
 2 7 6 9 
 1493    
  1   9  
 3   96 8
4      2 
";

$data = "
 1     8 
537   9 8
 5     7 
         
    3    
         
 4     1 
9 5   132
 2     6 
";

#EINTRUPOJ
#123456789

$data = "
 1  23  4
 2  5  67
      8 3
 8 39    
54     36
    76 1 
2 4      
86  3  5 
3  91  4 
";

$data = "
 E  IN  T
 I  R  UP
      O N
 O NJ    
RT     NU
    PU E 
I T      
OU  N  R 
N  JE  T 
";

$data = $ARGV[0];

}

if ($ARGV[0] eq "sciam") {
  $data = `wget -O - '$ARGV[1]' 2> /dev/null -O - | 
             tr '\r' '\n' |
             grep '^setCell' |
             sed -e "s/''/' '/" |
             cut -d"'" -f2 |
             tr -d '\n'`;
}

$data2 = $data;
$data2 =~ s/\n//gs;
@array = split(//, $data2);
$order=sqrt(sqrt($#array+1));
$ordln=length($order**4);
print "order: $order\n";

for my $a (0 .. $#array) {
  $array[$a] = &valueize($array[$a]);
  $charset{$array[$a]} = 1;
}

&printdata;

# initialize possibilities array
for my $a (0 .. $#array) {
  if ($array[$a] eq " ") {
    for my $m (keys %charset) {
      $poss[$a][$m] = 1;
    }
  } else {
    $poss[$a][$array[$a]] = 1; # start aware
  }
}

while (1) {
  &cullposs;
  &printposs;
  &findnewnums;
}


sub cullposs {
  for my $a (0 .. $#array) {
    if ($array[$a] eq " ") {
      for my $m (keys %charset) {
        ### check vertical columns
        for (my $b = $a%($order**2); $b <= $#array; $b+=($order**2)) {
          if ($array[$b] == $m) { $poss[$a][$m] = undef; }
        }
        ### check horizontal rows
        $rowstart = int($a/($order**2))*($order**2);
        for (my $b = $rowstart; $b < $rowstart+($order**2); $b++) {
          if ($array[$b] == $m) { $poss[$a][$m] = undef; }
        }
        ### check box
        $boxrow = int($a/($order**3))*($order**3);
        $boxcolumn = int(($a%($order**2))/$order)*$order;
        $boxstart = $boxcolumn + $boxrow;
        # for each row
        for (my $c = $boxstart; $c < $boxstart+($order**3); $c+=($order**2)) {
          # $order sequential columns
          for (my $b = $c; $b < $c+$order; $b++) {
            if ($array[$b] == $m) { $poss[$a][$m] = undef; }
          }
        }
      }
    }
  }
}

sub findnewnums {
  $newnum = 0;
  for my $a (0 .. $#array) {
    if ($array[$a] eq " ") {
      # this finds instances where there's only one value in the possibilities list.
      $found = 0;
      $foundval = undef;
      for my $m (keys %charset) {
        if ($poss[$a][$m]) { $found++; $foundval = $m; }
      }
      if ($found == 1) {
        $array[$a] = $foundval; $poss[$a] = undef; $poss[$a][$foundval] = 1;
        print &padval($a) . " is " . &digitize($foundval) . " by one possibility left\n";
        $newnum++;
      }
      # this finds instances where a number in the possibilities list doesn't show up
      # in the possibilities list for any horizontal, vertical, or box-style area.
      for my $m (keys %charset) {
        if($poss[$a][$m]) {
          ### check vertical columns
          $found = 0;
          $foundval = undef;
          for (my $b = $a%($order**2); $b <= $#array; $b+=($order**2)) {
            if ($poss[$b][$m]) { $found++; $foundval = $m; }
          }
          if ($found == 1) {
            $array[$a] = $foundval; $poss[$a] = undef; $poss[$a][$foundval] = 1;
            # &cullposs;
            print &padval($a) . " is " . &digitize($foundval) . " by a possibility not possible elsewhere vertically\n";
            $newnum++;
          }
          ### check horizontal rows
          $found = 0;
          $foundval = undef;
          $rowstart = int($a/($order**2))*($order**2);
          for (my $b = $rowstart; $b < $rowstart+($order**2); $b++) {
            if ($poss[$b][$m]) { $found++; $foundval = $m; }
          }
          if ($found == 1) {
            $array[$a] = $foundval; $poss[$a] = undef; $poss[$a][$foundval] = 1;
            # &cullposs;
            print &padval($a) . " is " . &digitize($foundval) . " by a possibility not possible elsewhere horizontally\n";
            $newnum++;
          }
          ### check box
          $found = 0;
          $foundval = undef;
          $boxrow = int($a/($order**3))*($order**3);
          $boxcolumn = int(($a%($order**2))/$order)*$order;
          $boxstart = $boxcolumn + $boxrow;
          # for each row
          for (my $c = $boxstart; $c < $boxstart+($order**3); $c+=($order**2)) {
            # $order sequential columns
            for (my $b = $c; $b < $c+$order; $b++) {
              if ($poss[$b][$m]) { $found++; $foundval = $m; }
            }
          }
          if ($found == 1) {
            $array[$a] = $foundval; $poss[$a] = undef; $poss[$a][$foundval] = 1;
            # &cullposs;
            print &padval($a) . " is " . &digitize($foundval) . " by a possibility not possible elsewhere in the same box\n";
            $newnum++;
          }
        }
      }
    } else {
      # just to be sure the possibilities table matches up
      $poss[$a] = undef; $poss[$a][$array[$a]] = 1;
    }
  }
  if ($newnum > 0) { &printdata; } else { exit 1;}
}

sub printdata {
  $width = 2;
  print "+" . scalar(("-" x $width . "+") x $order) x $order;
  for my $v (0 .. $order-1) {
    for my $w (0 .. $order-1) {
      print "\n|";
      for my $x (0 .. $order-1) {
        for my $y (0 .. $order-1) {
          $char = digitize($array[$v*($order**3) + $w*($order**2) + $x*$order + $y]);
          print $char . scalar(" " x ($width - length($char))). "|";
        }
      }
    }
    print "\n+" . scalar(("-" x $width . "+") x $order) x $order;
  }
  print "\n";
}

sub printposs {
  $width = $order**2;
  print "+" . scalar(("-" x $width . "+") x $order) x $order;
  for my $v (0 .. $order-1) {
    for my $w (0 .. $order-1) {
      print "\n|" . scalar((" " x $width . "|") x $order) x $order;
      print "\n|";
      for my $x (0 .. $order-1) {
        for my $y (0 .. $order-1) {
          $char = "";
          $cell = $v*($order**3) + $w*($order**2) + $x*$order + $y;
          if ($array[$cell] eq " ") {
            for my $m (1 .. ($order**2)) {
              if ($poss[$cell][$m]) { $char .= &digitize($m); } else { $char .= " "; }
            }
          } else {
            if ($order > 1) {
              $subchar = "[" . &digitize($array[$cell]) . "]";
            } else {
              $subchar = &digitize($array[$cell]);
            }
            $char = (" " x (int($order**2-3)/2)) . $subchar;
          }
          print $char . scalar(" " x ($width - length($char))). "|";
        }
      }
      print "\n|" . scalar(("_" x $width . "|") x $order) x $order;
    }
    print "\n+" . scalar(("-" x $width . "+") x $order) x $order;
  }
  print "\n";
}

sub digitize {
  my $val = shift;
  @charray = split(//,' 123456789ABCDEF0GHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz#%');
  return $charray[$val];
}

sub valueize {
  my $dig = shift;
  $dig =~ s/0/16/;
  $dig =~ s/[A-F]/scalar(ord($&)-64+9)/e;
  $dig =~ s/[G-Z]/scalar(ord($&)-64+10)/e;
  $dig =~ s/[a-z]/scalar(ord($&)-96+10+26)/e;
  $dig =~ s/\#/63/;
  $dig =~ s/\%/64/;
  return $dig;
}

sub padval {
  my $val = shift;
  return "0" x ($ordln - length($val)) . $val;
}