Add strain to generator (#417)

Author: m-dango

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",