File Coverage

lib/Games/Nonogram/BruteForce.pm

Criterion	Covered	Total	%
statement	9	53	16.9
branch	0	14	0.0
condition	0	8	0.0
subroutine	3	6	50.0
pod	1	1	100.0
total	13	82	15.8

package Games::Nonogram::BruteForce;

use strict;
use warnings;
use Storable ();

sub run {
  my ($class, $grid) = @_;

  my $data = _freeze( $grid );

  return if $grid->stash->{bruteforce}->{$data};

  $grid->stash->{bruteforce}->{$data} = 1;

  $grid->log( "Start brute forcing" );

  my ($target, $free);
  foreach my $clue ( $grid->clues ) {
    next if $clue->is_done;
    if ( !$free or $free > $clue->{free} ) {
      $free   = $clue->{free};
      $target = $clue;
    }
  }
  return unless $target;  # should be solved already

  $grid->log( "target: ", $target->id );

  my @candidates = $target->candidates;

  foreach my $candidate ( @candidates ) {
    $target->line->as_vec( $candidate );
    $grid->update;

    eval {
      my $str = '';
      my $prev = $grid->as_string;
      while( $str ne $prev and !$grid->is_done ) {
        $grid->update;
        $prev = $str;
        $str  = $grid->as_string;
        $grid->log( $str ) if $grid->debug;
      }
      if ( $grid->is_done ) {
        $grid->log( "Found an answer" );
        push @{ $grid->stash->{answers} ||= [] }, $str;
      }
      else {
        $class->run( $grid );
      }
    };
    if ( $@ ) {
      $grid->log( "Skip" );
    }

    _thaw( $grid, $data );
  }
}

sub _freeze {
  my $grid = shift;

  my @data;
  foreach my $clue ( $grid->clues ) {
    push @data, $clue->line->as_vec;
  }
  return Storable::freeze( \@data );
}

sub _thaw {
  my ($grid, $data) = @_;

  my @data = @{ Storable::thaw( $data ) };

  foreach my $clue ( $grid->clues ) {
    $clue->reset_blocks;
    $clue->line->as_vec( shift @data );
  }
}

1;

__END__