#!/usr/bin/perl -w

# $Id$

use strict;
use warnings;
use Sudoku;

if (@ARGV != 2) {
    print STDERR "Usage: $0 <puzzle-file> <solution-file>\n";
    exit 1;
}

my $puzzle = new Sudoku($ARGV[0]);
my $solution = new Sudoku($ARGV[1]);
print $solution->check_subset($puzzle);