Create quicksolve module for quick exercise generation (#410)

* Create quicksolve module for quick exercise generation

* Update exercises/practice/difference-of-squares/.meta/exercise-data.yaml

Co-authored-by: Victor Goff <[email protected]>

* Update exercises/practice/minesweeper/.meta/exercise-data.yaml

Co-authored-by: Victor Goff <[email protected]>

* Update exercises/practice/ocr-numbers/.meta/exercise-data.yaml

Co-authored-by: Victor Goff <[email protected]>

* Generate additional exercises with quicksolve

Co-authored-by: Victor Goff <[email protected]>

Author: m-dango

exercises/practice/all-your-base/.meta/exercise-data.yaml

@@ -1,21 +1,31 @@
 subs: rebase
 tests: |-
   for my $case (@test_cases) {
-    is(
-      rebase($case->{input}{digits}),
-      $case->{expected},
-      $case->{description},
-    );
+    if ( ref $case->{expected} ne 'HASH' ) {
+      is(
+        rebase($case->{input}),
+        $case->{expected},
+        $case->{description},
+      );
+    }
+    else {
+      like dies( sub { rebase($case->{input}) } ),
+      qr/$case->{expected}{error}/, $case->{description};
+    }
   }
 
 example: |-
+  use lib 'lib';
+  use Exercism::QuickSolve;
+
   sub rebase {
-    my ($digits) = @_;
-    return (grep { $_->{input}{digits} eq $digits } @main::test_cases)[0]->{expected};
+    my ($input) = @_;
+
+    quicksolve( input => $input );
   }
 
 stub: |-
   sub rebase {
-    my ($digits) = @_;
+    my ($input) = @_;
     return undef;
   }

exercises/practice/all-your-base/.meta/solutions/AllYourBase.pm

@@ -4,10 +4,13 @@ use warnings;
 use Exporter qw<import>;
 our @EXPORT_OK = qw<rebase>;
 
+use lib 'lib';
+use Exercism::QuickSolve;
+
 sub rebase {
-  my ($digits) = @_;
-  return ( grep { $_->{input}{digits} eq $digits } @main::test_cases )
-    [0]->{expected};
+  my ($input) = @_;
+
+  quicksolve( input => $input );
 }
 
 1;

exercises/practice/all-your-base/.meta/solutions/all-your-base.t

@@ -13,8 +13,14 @@ our @test_cases = do { local $/; @{ JSON->decode(<DATA>) }; };
 imported_ok qw<rebase> or bail_out;
 
 for my $case (@test_cases) {
-  is( rebase( $case->{input}{digits} ),
-    $case->{expected}, $case->{description}, );
+  if ( ref $case->{expected} ne 'HASH' ) {
+    is( rebase( $case->{input} ),
+      $case->{expected}, $case->{description}, );
+  }
+  else {
+    like dies( sub { rebase( $case->{input} ) } ),
+      qr/$case->{expected}{error}/, $case->{description};
+  }
 }
 
 done_testing;

exercises/practice/all-your-base/AllYourBase.pm

@@ -5,7 +5,7 @@ use Exporter qw<import>;
 our @EXPORT_OK = qw<rebase>;
 
 sub rebase {
-  my ($digits) = @_;
+  my ($input) = @_;
   return undef;
 }
 

exercises/practice/all-your-base/all-your-base.t

@@ -13,8 +13,14 @@ my @test_cases = do { local $/; @{ JSON->decode(<DATA>) }; };
 imported_ok qw<rebase> or bail_out;
 
 for my $case (@test_cases) {
-  is( rebase( $case->{input}{digits} ),
-    $case->{expected}, $case->{description}, );
+  if ( ref $case->{expected} ne 'HASH' ) {
+    is( rebase( $case->{input} ),
+      $case->{expected}, $case->{description}, );
+  }
+  else {
+    like dies( sub { rebase( $case->{input} ) } ),
+      qr/$case->{expected}{error}/, $case->{description};
+  }
 }
 
 done_testing;

exercises/practice/binary-search-tree/.meta/exercise-data.yaml

@@ -9,9 +9,16 @@ tests: |-
   }
 
 example: |-
+  use lib 'lib';
+  use Exercism::QuickSolve;
+
   sub tree {
     my ($data) = @_;
-    return (grep { $_->{input}{treeData} eq $data } @main::test_cases)[0]->{expected};
+
+    quicksolve(
+      input => $data,
+      input_key => 'treeData',
+    );
   }
 
 stub: |-

exercises/practice/binary-search-tree/.meta/solutions/BinarySearchTree.pm

@@ -4,10 +4,16 @@ use warnings;
 use Exporter qw<import>;
 our @EXPORT_OK = qw<tree>;
 
+use lib 'lib';
+use Exercism::QuickSolve;
+
 sub tree {
   my ($data) = @_;
-  return ( grep { $_->{input}{treeData} eq $data } @main::test_cases )
-    [0]->{expected};
+
+  quicksolve(
+    input     => $data,
+    input_key => 'treeData',
+  );
 }
 
 1;

exercises/practice/crypto-square/.meta/exercise-data.yaml

@@ -9,9 +9,16 @@ tests: |-
   }
 
 example: |-
+  use lib 'lib';
+  use Exercism::QuickSolve;
+
   sub cipher {
     my ($text) = @_;
-    return (grep { $_->{input}{plaintext} eq $text } @main::test_cases)[0]->{expected};
+
+    quicksolve(
+      input => $text,
+      input_key => 'plaintext',
+    );
   }
 
 stub: |-

exercises/practice/crypto-square/.meta/solutions/CryptoSquare.pm

@@ -4,10 +4,16 @@ use warnings;
 use Exporter qw<import>;
 our @EXPORT_OK = qw<cipher>;
 
+use lib 'lib';
+use Exercism::QuickSolve;
+
 sub cipher {
   my ($text) = @_;
-  return ( grep { $_->{input}{plaintext} eq $text }
-      @main::test_cases )[0]->{expected};
+
+  quicksolve(
+    input     => $text,
+    input_key => 'plaintext',
+  );
 }
 
 1;

exercises/practice/difference-of-squares/.meta/exercise-data.yaml

@@ -20,19 +20,37 @@ tests: |-
   }
 
 example: |-
+  use lib 'lib';
+  use Exercism::QuickSolve;
+
   sub square_of_sum {
     my ($number) = @_;
-    return (grep { $_->{property} eq 'squareOfSum' && $_->{input}{number} eq $number } @main::test_cases)[0]->{expected};
+
+    quicksolve(
+      input => $number,
+      input_key => 'number',
+      property => 'squareOfSum',
+    );
   }
 
   sub sum_of_squares {
     my ($number) = @_;
-    return (grep { $_->{property} eq 'sumOfSquares' && $_->{input}{number} eq $number } @main::test_cases)[0]->{expected};
+
+    quicksolve(
+      input => $number,
+      input_key => 'number',
+      property => 'sumOfSquares',
+    );
   }
 
   sub difference_of_squares {
     my ($number) = @_;
-    return (grep { $_->{property} eq 'differenceOfSquares' && $_->{input}{number} eq $number } @main::test_cases)[0]->{expected};
+
+    quicksolve(
+      input     => $number,
+      input_key => 'number',
+      property  => 'differenceOfSquares',
+    );
   }
 
 stub: |-