#!c:\programme\perl\bin\perl.exe 
use strict;
use warnings;
use Time::Local;
use POSIX qw(strftime);
 
##### V A R I A B L E N #####
my $DEBUG = 1;
my $a=0;
my $b=0;
my $c=0;
my $e=0;
my $h=0;
my $l=0;
my $m=0;
my $n=0;
my $o=0;
my $s=0;
my $y=0;
my $ergebnis=0;
 
my $start_date=strftime('%Y%m%d %H:%M:%S',localtime());
&log("Start ... $start_date");
 
# ($a,$b,$e,$h,$l,$m,$n,$o,$s,$y)
# H ist [1,..,9] alle anderen [0,..,9]
 
for ($a=0;$a<10;$a++) {
  next if ( grep {$_ == $a}  ("$b","$e","$h","$l","$m","$n","$o","$s","$y") );
  for ($b=0;$b<10;$b++) {
    next if ( grep {$_ == $b}  ("$a","$e","$h","$l","$m","$n","$o","$s","$y") );
    for ($e=0;$e<10;$e++) {
      next if ( grep {$_ == $e}  ("$a","$b","$h","$l","$m","$n","$o","$s","$y") );
      for ($h=1;$h<10;$h++) {
        next if ( grep {$_ == $h}  ("$a","$b","$e","$l","$m","$n","$o","$s","$y") );
        for ($l=0;$l<10;$l++) {
          next if ( grep {$_ == $l}  ("$a","$b","$e","$h","$m","$n","$o","$s","$y") );
          for ($m=0;$m<10;$m++) {
            next if ( grep {$_ == $m}  ("$a","$b","$e","$h","$l","$n","$o","$s","$y") );
            for ($n=0;$n<10;$n++) {
              next if ( grep {$_ == $n}  ("$a","$b","$e","$h","$l","$m","$o","$s","$y") );
              for ($o=0;$o<10;$o++) {
                next if ( grep {$_ == $o}  ("$a","$b","$e","$h","$l","$m","$n","$s","$y") );
                for ($s=0;$s<10;$s++) {
                  next if ( grep {$_ == $s}  ("$a","$b","$e","$h","$l","$m","$n","$o","$y") );
                  for ($y=0;$y<10;$y++) {
                    next if ( grep {$_ == $y}  ("$a","$b","$e","$h","$l","$m","$n","$o","$s") );
                    $ergebnis=&pruefe_gleichung($a,$b,$e,$h,$l,$m,$n,$o,$s,$y);
                  };
                };
              };
            };
          };
        };
      };
    };
  };
};
 
my $end_date=strftime('%Y%m%d %H:%M:%S',localtime());
&log("Ende ... $end_date");
exit 0;
 
 
##### SUB PRUEFE_GLEICHUNG #####
sub pruefe_gleichung() {
  my $a = $_[0];
  my $b = $_[1];
  my $e = $_[2];
  my $h = $_[3];
  my $l = $_[4];
  my $m = $_[5];
  my $n = $_[6];
  my $o = $_[7];
  my $s = $_[8];
  my $y = $_[9];
 
  my $str_summand1 = $l.$e.$s.$e.$n;
  my $str_summand2 = $m.$a.$l.$e.$n;
  my $str_summe    = $h.$o.$b.$b.$y.$s;
 
  my $int_summand1 = int($str_summand1);
  my $int_summand2 = int($str_summand2);
  my $int_summe    = int($str_summe);
 
  my $test_summe = $int_summand1 + $int_summand2;
 
  if ($test_summe == $int_summe) {
      &log("gefunden: $str_summand1");
      &log("        + $str_summand2");
      &log("       = $str_summe");
      &log("H=$h O=$o B=$b B=$b Y=$y S=$s");
      my $hb = $h + $b;
      my $bb = $b + $b;
      my $hy = $h + $y;
      my $hs = $h + $s;
      &log("N 51.".$o.$s.".".$hb.$bb.$hy);
      &log("E 06.".$y.$hy.".".$hb.$h.$hs);
      &log(" ");
      return 0;
  };
  return 9;
};
 
##### SUB LOG #####
sub log() {
 
  my $text = $_[0];
  my $LOGFILE = "lesen_plus_malen.log";
 
  $text .="\n" unless ($text=~/\n$/);
 
  if ($DEBUG) {
    print $text;
  }else{
    open(LOG,">>$LOGFILE");
    print LOG $text;
    close(LOG);
    };
 
  return 0;
};