#!/usr/bin/perl -w

# $Id$

use strict;
use warnings;
use Sudoku;

my $render = 0;
if (@ARGV && $ARGV[0] eq "-r") {
    $render = 1;
    shift();
}

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

my $sol = new Sudoku($ARGV[0]);
if ($render) {
    print $sol->render();
} else {
    print $sol->check();
}