0.9.2

Author: coke

Changes

@@ -2,6 +2,9 @@ Revision history for App:SudokuHelper
 
 {{$NEXT}}
 
+0.9.2  2025-02-10T21:51:18-05:00
+    - Support sandwich with reduced digit set
+
 0.9.1  2023-04-07T16:18:35-04:00
     - Add tests
     - Extract script functionality to helper lib

META6.json

@@ -16,10 +16,10 @@
   },
   "resources": [
   ],
-  "source-url": "git://github.com/coke/sudoku-helper.git",
+  "source-url": "https://github.com/coke/sudoku-helper.git",
   "tags": [
   ],
   "test-depends": [
   ],
-  "version": "0.9.1"
+  "version": "0.9.2"
 }

lib/App/SudokuHelper.rakumod

@@ -7,11 +7,12 @@ unit class App::SudokuHelper;
 # :x - sequence must contain the number of digits present as a digit.
 
 our sub MAIN-handler-combo(Int $sum, Int $count?, Str :$n is copy = "", Bool :s(:$sandwich)=False, Bool :$sequence, Bool :$x=False) is export  {
-    $n = $n ~ "19" if $sandwich;
-
     my @counts = $count ?? [$count] !! 1..9;
 
     my @digits = (1..9).grep({ not $n.comb.grep($_)});
+    if $sandwich {
+        @digits = @digits[1..*-2];
+    }
 
     my @retvals;
 

t/basic.t

@@ -1,7 +1,7 @@
 use Test;
 use App::SudokuHelper;
 
-plan 8;
+plan 9;
 
 is MAIN-handler-combo(13), chomp(q:to/EOS/), "combo, any length";
 4 9
@@ -51,6 +51,11 @@ is MAIN-handler-combo(13, 2, :s), chomp(q:to/EOS/), "combo, sandwich, specific l
 6 7
 EOS
 
+is MAIN-handler-combo(9, :s, :n<789>), chomp(q:to/EOS/), "combo, sandwich, 1..6";
+4 5
+2 3 4
+EOS
+
 is MAIN-handler-combo(13, :x), chomp(q:to/EOS/), "combo, x-sums, any length";
 3 1 9
 3 2 8
@@ -63,3 +68,4 @@ is MAIN-handler-combo(13, 4, :x), chomp(q:to/EOS/), "combo, x-sums, specific len
 4 1 2 6
 4 1 3 5
 EOS
+