From d20ec35a96dc969d2e474457fc38e05e9d4b300a Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Tue, 10 Nov 2020 12:37:01 +0100
Subject: Sudokus could be any size (assuming a square size)

---
 challenge-086/abigail/perl/ch-2.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/challenge-086/abigail/perl/ch-2.pl b/challenge-086/abigail/perl/ch-2.pl
index 7763d1ea76..ce25f5dcab 100644
--- a/challenge-086/abigail/perl/ch-2.pl
+++ b/challenge-086/abigail/perl/ch-2.pl
@@ -12,20 +12,24 @@ use experimental 'lexical_subs';
 
 #
 # Read the puzzle; set unsolved squares to 0.
+# This read any sized sudoku.
 #
-my @sudoku   = map {[map {/_/ ? 0 : $_} /[_1-9]/g]} <>;
+my @sudoku   = map {[map {/_/ ? 0 : $_} /\b(?:_|[1-9][0-9]*)\b/g]} <>;
 my $SIZE     = @sudoku;
 my @INDICES  = (0 .. $SIZE - 1);
 my @ELEMENTS = (1 .. $SIZE);
 my $sqrtSIZE =  sqrt $SIZE;
 
 #
-# Sanity check
+# Sanity checks
 #
 die "Sudoku width not a square\n"
      unless int (sqrt $SIZE) ** 2 == $SIZE;
 die "All rows should be the same length as the columns"
      if grep {@$_ != $SIZE} @sudoku;
+foreach my $row (@sudoku) {
+    die "Elements should not exceed $SIZE" if grep {$_ > $SIZE} @$row;
+}
 
 #
 # Given a square with coordinates ($x, $y), return all the
-- 
cgit