view release on metacpan or  search on metacpan

t/Test.pm  view on Meta::CPAN

        }
        print "\n";
    }
    say "    # ";
}

sub run_sudoku ($file) {
    #
    # First, slurp in the file
    #
    my $test = do {local (@ARGV, $/) = ($file); <>};
    my @chunks = split /\n==\n/ => $test;

    #
    # First one is always the sudoku.
    #
    my $clues = shift @chunks;

    #
    # Find a solution
    #