Add strain to generator (#417)

exercises/practice/binary/Binary.pm

@@ -0,0 +1,18 @@
+package Binary;
+
+use strict;
+use warnings;
+
+sub new {
+  my ( $class, $binary ) = @_;
+
+  return undef;
+}
+
+sub to_decimal {
+  my $self = shift;
+
+  return undef;
+}
+
+__PACKAGE__;

exercises/practice/etl/.meta/config.json

@@ -3,13 +3,13 @@
   "authors": [],
   "files": {
     "solution": [
-      "Etl.pm"
+      "ETL.pm"
     ],
     "test": [
       "etl.t"
     ],
     "example": [
-      ".meta/solutions/Etl.pm"
+      ".meta/solutions/ETL.pm"
     ]
   },
   "source": "The Jumpstart Lab team",

exercises/practice/hexadecimal/Hexadecimal.pm

@@ -0,0 +1,18 @@
+package Hexadecimal;
+
+use strict;
+use warnings;
+
+sub new {
+  my ( $class, $hexadecimal ) = @_;
+
+  return undef;
+}
+
+sub to_decimal {
+  my $self = shift;
+
+  return undef;
+}
+
+__PACKAGE__;

exercises/practice/linked-list/.meta/config.json

@@ -3,13 +3,13 @@
   "authors": [],
   "files": {
     "solution": [
-      "LinkedList.pm"
+      "Deque.pm"
     ],
     "test": [
-      "linked-list.t"
+      "deque.t"
     ],
     "example": [
-      ".meta/solutions/LinkedList.pm"
+      ".meta/solutions/Deque.pm"
     ]
   },
   "source": "Classic computer science topic"

exercises/practice/linked-list/Deque.pm

@@ -0,0 +1,46 @@
+package Deque;
+use strict;
+use warnings;
+
+sub new {
+  my ($class) = @_;
+
+  return undef;
+}
+
+sub push {
+  my ( $self, $value ) = @_;
+
+  return undef;
+}
+
+sub pop {
+  my ($self) = @_;
+
+  return undef;
+}
+
+sub shift {
+  my ($self) = @_;
+
+  return undef;
+}
+
+sub unshift {
+  my ( $self, $value ) = @_;
+
+  return undef;
+}
+
+package Element;
+use strict;
+use warnings;
+
+sub new {
+  my ( $class, %data ) = @_;
+
+  return undef;
+}
+
+1;
+

exercises/practice/list-ops/ListOps.pm

@@ -0,0 +1,24 @@
+package ListOps;
+
+use strict;
+use warnings;
+
+sub map {
+  my ( $func, $list ) = @_;
+
+  return undef;
+}
+
+sub reduce {
+  my ( $func, $list ) = @_;
+
+  return undef;
+}
+
+sub length {
+  my $list = shift;
+
+  return undef;
+}
+
+1;

exercises/practice/ocr-numbers/.meta/config.json

@@ -3,13 +3,13 @@
   "authors": [],
   "files": {
     "solution": [
-      "OcrNumbers.pm"
+      "OCRNumbers.pm"
     ],
     "test": [
       "ocr-numbers.t"
     ],
     "example": [
-      ".meta/solutions/OcrNumbers.pm"
+      ".meta/solutions/OCRNumbers.pm"
     ]
   },
   "source": "Inspired by the Bank OCR kata",

exercises/practice/palindrome-products/.meta/config.json

@@ -3,13 +3,13 @@
   "authors": [],
   "files": {
     "solution": [
-      "PalindromeProducts.pm"
+      "Palindrome.pm"
     ],
     "test": [
-      "palindrome-products.t"
+      "palindrome.t"
     ],
     "example": [
-      ".meta/solutions/PalindromeProducts.pm"
+      ".meta/solutions/Palindrome.pm"
     ]
   },
   "source": "Problem 4 at Project Euler",

exercises/practice/palindrome-products/Palindrome.pm

@@ -0,0 +1,24 @@
+package Palindrome;
+
+use strict;
+use warnings;
+
+sub new {
+  my ( $class, $min_max ) = @_;
+
+  return undef;
+}
+
+sub largest {
+  my $self = shift;
+
+  return undef;
+}
+
+sub smallest {
+  my $self = shift;
+
+  return undef;
+}
+
+1;

exercises/practice/point-mutations/.meta/config.json

@@ -3,13 +3,13 @@
   "authors": [],
   "files": {
     "solution": [
-      "PointMutations.pm"
+      "DNA.pm"
     ],
     "test": [
-      "point-mutations.t"
+      "dna.t"
     ],
     "example": [
-      ".meta/solutions/PointMutations.pm"
+      ".meta/solutions/DNA.pm"
     ]
   },
   "source": "The Calculating Point Mutations problem at Rosalind",

exercises/practice/point-mutations/DNA.pm

@@ -0,0 +1,18 @@
+package DNA;
+
+use strict;
+use warnings;
+
+sub new {
+  my ( $class, $strand ) = @_;
+
+  return undef;
+}
+
+sub hamming_distance {
+  my ( $self, $strand ) = @_;
+
+  return undef;
+}
+
+__PACKAGE__;

exercises/practice/prime-factors/.meta/config.json

@@ -3,13 +3,13 @@
   "authors": [],
   "files": {
     "solution": [
-      "PrimeFactors.pm"
+      "Prime.pm"
     ],
     "test": [
-      "prime-factors.t"
+      "prime.t"
     ],
     "example": [
-      ".meta/solutions/PrimeFactors.pm"
+      ".meta/solutions/Prime.pm"
     ]
   },
   "source": "The Prime Factors Kata by Uncle Bob",

exercises/practice/prime-factors/Prime.pm

@@ -0,0 +1,12 @@
+package Prime;
+use strict;
+use warnings;
+
+sub factors {
+  my ($num) = @_;
+
+  return undef;
+}
+
+1;
+

exercises/practice/proverb/Proverb.pm

@@ -0,0 +1,12 @@
+package Proverb;
+
+use strict;
+use warnings;
+
+sub proverb {
+  my ( $items, $qualifier ) = @_;
+
+  return undef;
+}
+
+__PACKAGE__;

exercises/practice/pythagorean-triplet/.meta/config.json

@@ -3,13 +3,13 @@
   "authors": [],
   "files": {
     "solution": [
-      "PythagoreanTriplet.pm"
+      "Triplet.pm"
     ],
     "test": [
-      "pythagorean-triplet.t"
+      "triplet.t"
     ],
     "example": [
-      ".meta/solutions/PythagoreanTriplet.pm"
+      ".meta/solutions/Triplet.pm"
     ]
   },
   "source": "Problem 9 at Project Euler",

exercises/practice/pythagorean-triplet/Triplet.pm

@@ -0,0 +1,36 @@
+package Triplet;
+
+use strict;
+use warnings;
+
+sub new {
+  my ( $class, @args ) = @_;
+
+  return undef;
+}
+
+sub is_pythagorean {
+  my $self = shift;
+
+  return undef;
+}
+
+sub sum {
+  my $self = shift;
+
+  return undef;
+}
+
+sub product {
+  my $self = shift;
+
+  return undef;
+}
+
+sub products {
+  my $self = shift;
+
+  return undef;
+}
+
+1;

exercises/practice/queen-attack/.meta/config.json

@@ -3,13 +3,13 @@
   "authors": [],
   "files": {
     "solution": [
-      "QueenAttack.pm"
+      "Queens.pm"
     ],
     "test": [
-      "queen-attack.t"
+      "queen.t"
     ],
     "example": [
-      ".meta/solutions/QueenAttack.pm"
+      ".meta/solutions/Queens.pm"
     ]
   },
   "source": "J Dalbey's Programming Practice problems",

exercises/practice/queen-attack/Queens.pm

@@ -0,0 +1,36 @@
+package Queens;
+use strict;
+use warnings;
+
+sub new {
+  my ( $class, %data ) = @_;
+
+  return undef;
+}
+
+sub white {
+  my ($self) = @_;
+
+  return undef;
+}
+
+sub black {
+  my ($self) = @_;
+
+  return undef;
+}
+
+sub to_string {
+  my ($self) = @_;
+
+  return undef;
+}
+
+sub can_attack {
+  my ($self) = @_;
+
+  return undef;
+}
+
+1;
+