trackler 2.2.1.131 → 2.2.1.132

data/tracks/perl5/exercises/hello-world/.meta/exercise-data.yaml

@@ -1,9 +1,9 @@
 exercise: HelloWorld
-version: 1
-plan: 3
+version: 2
+plan: 2
 subs: hello
 tests: |-
-  is $subs{hello}->($_->{input}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
+  is hello($_->{input}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
 
 exercise_comment: '# The name of this exercise.'
 version_comment: '# The version we will be matching against the exercise.'

data/tracks/perl5/exercises/hello-world/.meta/solutions/HelloWorld.pm

@@ -1,7 +1,9 @@
 # Declare package 'HelloWorld' with version
-package HelloWorld 1;
+package HelloWorld 2;
 use strict;
 use warnings;
+use Exporter 'import';
+our @EXPORT_OK = qw(hello);
 
 sub hello {
   return 'Hello, World!';

data/tracks/perl5/exercises/hello-world/HelloWorld.pm

@@ -1,7 +1,9 @@
 # Declare package 'HelloWorld' with version
-package HelloWorld 1;
+package HelloWorld 2;
 use strict;
 use warnings;
+use Exporter 'import';
+our @EXPORT_OK = qw(hello);
 
 sub hello {
   # Remove the comments and write some code here to pass the test suite.

data/tracks/perl5/exercises/hello-world/hello-world.t

@@ -1,15 +1,14 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
+use JSON::PP;
 use FindBin;
 use lib $FindBin::Bin; # Look for the module inside the same directory as this test file.
-use JSON::PP;
+use HelloWorld qw(hello);
 
 my $exercise = 'HelloWorld'; # The name of this exercise.
-my $test_version = 1; # The version we will be matching against the exercise.
-use Test::More tests => 3; # This is how many tests we expect to run.
-
-use_ok $exercise or BAIL_OUT; # Check that the module can be use-d.
+my $test_version = 2; # The version we will be matching against the exercise.
+use Test::More tests => 2; # This is how many tests we expect to run.
 
 # If the exercise is updated, we want to make sure other people testing
 # your code don't think you've made a mistake if things have changed!
@@ -21,14 +20,10 @@ if ($exercise_version != $test_version) {
   BAIL_OUT if $ENV{EXERCISM};
 }
 
-my %subs;
-foreach ( qw(hello) ) {
-  can_ok $exercise, $_;
-  $subs{$_} = $exercise->can($_);
-}
+can_ok $exercise, 'import' or BAIL_OUT 'Cannot import subroutines from module';
 
 my $C_DATA = do { local $/; decode_json(<DATA>); };
-is $subs{hello}->($_->{input}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
+is hello($_->{input}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
 
 __DATA__
 {

data/tracks/perl5/exercises/leap/.meta/exercise-data.yaml

@@ -1,9 +1,9 @@
 exercise: Leap
-version: 2
-plan: 6
+version: 3
+plan: 5
 subs: is_leap
 tests: |-
-  is $subs{is_leap}->($_->{input}{year}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
+  is is_leap($_->{input}{year}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
 
 exercise_comment: '# The name of this exercise.'
 version_comment: '# The version we will be matching against the exercise.'

data/tracks/perl5/exercises/leap/.meta/solutions/Leap.pm

@@ -1,7 +1,9 @@
 # Declare package 'Leap' with version
-package Leap 2;
+package Leap 3;
 use strict;
 use warnings;
+use Exporter 'import';
+our @EXPORT_OK = qw(is_leap);
 
 sub is_leap {
   my $year = shift;

data/tracks/perl5/exercises/leap/Leap.pm

@@ -1,7 +1,9 @@
 # Declare package 'Leap' with version
-package Leap 2;
+package Leap 3;
 use strict;
 use warnings;
+use Exporter 'import';
+our @EXPORT_OK = qw(is_leap);
 
 sub is_leap {
   my ($year) = @_;

data/tracks/perl5/exercises/leap/leap.t

@@ -1,15 +1,14 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
+use JSON::PP;
 use FindBin;
 use lib $FindBin::Bin; # Look for the module inside the same directory as this test file.
-use JSON::PP;
+use Leap qw(is_leap);
 
 my $exercise = 'Leap'; # The name of this exercise.
-my $test_version = 2; # The version we will be matching against the exercise.
-use Test::More tests => 6; # This is how many tests we expect to run.
-
-use_ok $exercise or BAIL_OUT; # Check that the module can be use-d.
+my $test_version = 3; # The version we will be matching against the exercise.
+use Test::More tests => 5; # This is how many tests we expect to run.
 
 # If the exercise is updated, we want to make sure other people testing
 # your code don't think you've made a mistake if things have changed!
@@ -21,14 +20,10 @@ if ($exercise_version != $test_version) {
   BAIL_OUT if $ENV{EXERCISM};
 }
 
-my %subs;
-foreach ( qw(is_leap) ) {
-  can_ok $exercise, $_;
-  $subs{$_} = $exercise->can($_);
-}
+can_ok $exercise, 'import' or BAIL_OUT 'Cannot import subroutines from module';
 
 my $C_DATA = do { local $/; decode_json(<DATA>); };
-is $subs{is_leap}->($_->{input}{year}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
+is is_leap($_->{input}{year}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
 
 __DATA__
 {

data/tracks/perl5/exercises/luhn/.meta/exercise-data.yaml

@@ -1,9 +1,9 @@
 exercise: Luhn
-version: 2
-plan: 15
+version: 3
+plan: 14
 subs: is_luhn_valid
 tests: |-
-  is $subs{is_luhn_valid}->($_->{input}{value}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
+  is is_luhn_valid($_->{input}{value}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
 
 example: |-
   sub is_luhn_valid {

data/tracks/perl5/exercises/luhn/.meta/solutions/Luhn.pm

@@ -1,6 +1,8 @@
-package Luhn 2;
+package Luhn 3;
 use strict;
 use warnings;
+use Exporter 'import';
+our @EXPORT_OK = qw(is_luhn_valid);
 
 sub is_luhn_valid {
   my ($input) = @_;

data/tracks/perl5/exercises/luhn/Luhn.pm

@@ -1,6 +1,8 @@
-package Luhn 2;
+package Luhn 3;
 use strict;
 use warnings;
+use Exporter 'import';
+our @EXPORT_OK = qw(is_luhn_valid);
 
 sub is_luhn_valid {
   my ($input) = @_;

data/tracks/perl5/exercises/luhn/luhn.t

@@ -1,15 +1,14 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
+use JSON::PP;
 use FindBin;
 use lib $FindBin::Bin;
-use JSON::PP;
+use Luhn qw(is_luhn_valid);
 
 my $exercise = 'Luhn';
-my $test_version = 2;
-use Test::More tests => 15;
-
-use_ok $exercise or BAIL_OUT;
+my $test_version = 3;
+use Test::More tests => 14;
 
 my $exercise_version = $exercise->VERSION // 0;
 if ($exercise_version != $test_version) {
@@ -19,14 +18,10 @@ if ($exercise_version != $test_version) {
   BAIL_OUT if $ENV{EXERCISM};
 }
 
-my %subs;
-foreach ( qw(is_luhn_valid) ) {
-  can_ok $exercise, $_;
-  $subs{$_} = $exercise->can($_);
-}
+can_ok $exercise, 'import' or BAIL_OUT 'Cannot import subroutines from module';
 
 my $C_DATA = do { local $/; decode_json(<DATA>); };
-is $subs{is_luhn_valid}->($_->{input}{value}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
+is is_luhn_valid($_->{input}{value}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
 
 __DATA__
 {

data/tracks/perl5/exercises/phone-number/.meta/exercise-data.yaml

@@ -1,10 +1,10 @@
 exercise: PhoneNumber
-version: 3
-plan: 16
+version: 4
+plan: 15
 subs: clean_number
 tests: |-
   foreach my $subcases (@{$C_DATA->{cases}}) {
-    is $subs{clean_number}->($_->{input}{phrase}), $_->{expected}, $_->{description} foreach @{$subcases->{cases}};
+    is clean_number($_->{input}{phrase}), $_->{expected}, $_->{description} foreach @{$subcases->{cases}};
   }
 
 example: |

data/tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm

@@ -1,6 +1,8 @@
-package PhoneNumber 3;
+package PhoneNumber 4;
 use strict;
 use warnings;
+use Exporter 'import';
+our @EXPORT_OK = qw(clean_number);
 
 sub clean_number {
   my ($number) = @_;

data/tracks/perl5/exercises/phone-number/PhoneNumber.pm

@@ -1,5 +1,7 @@
-package PhoneNumber 3;
+package PhoneNumber 4;
 use strict;
 use warnings;
+use Exporter 'import';
+our @EXPORT_OK = qw(clean_number);
 
 1;

data/tracks/perl5/exercises/phone-number/phone-number.t

@@ -1,15 +1,14 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
+use JSON::PP;
 use FindBin;
 use lib $FindBin::Bin;
-use JSON::PP;
+use PhoneNumber qw(clean_number);
 
 my $exercise = 'PhoneNumber';
-my $test_version = 3;
-use Test::More tests => 16;
-
-use_ok $exercise or BAIL_OUT;
+my $test_version = 4;
+use Test::More tests => 15;
 
 my $exercise_version = $exercise->VERSION // 0;
 if ($exercise_version != $test_version) {
@@ -19,15 +18,11 @@ if ($exercise_version != $test_version) {
   BAIL_OUT if $ENV{EXERCISM};
 }
 
-my %subs;
-foreach ( qw(clean_number) ) {
-  can_ok $exercise, $_;
-  $subs{$_} = $exercise->can($_);
-}
+can_ok $exercise, 'import' or BAIL_OUT 'Cannot import subroutines from module';
 
 my $C_DATA = do { local $/; decode_json(<DATA>); };
 foreach my $subcases (@{$C_DATA->{cases}}) {
-  is $subs{clean_number}->($_->{input}{phrase}), $_->{expected}, $_->{description} foreach @{$subcases->{cases}};
+  is clean_number($_->{input}{phrase}), $_->{expected}, $_->{description} foreach @{$subcases->{cases}};
 }
 
 __DATA__

data/tracks/perl5/templates/module.mustache

@@ -1,7 +1,9 @@
 {{#package_comment}}{{&package_comment}}
 {{/package_comment}}package {{&exercise}} {{&version}};
 use strict;
-use warnings;{{#module_file}}
+use warnings;{{#subs}}
+use Exporter 'import';
+our @EXPORT_OK = qw({{&subs}});{{/subs}}{{#module_file}}
 
 {{&module_file}}{{/module_file}}
 

data/tracks/perl5/templates/test.mustache

@@ -1,16 +1,15 @@
 #!/usr/bin/env perl
 use strict;
-use warnings;
+use warnings;{{#cdata}}
+use JSON::PP;{{/cdata}}
 use FindBin;
-use lib $FindBin::Bin;{{#lib_comment}} {{&lib_comment}}{{/lib_comment}}{{#cdata}}
-use JSON::PP;{{/cdata}}{{#modules}}
+use lib $FindBin::Bin;{{#lib_comment}} {{&lib_comment}}{{/lib_comment}}
+use {{&exercise}} {{#subs}}qw{{/subs}}({{&subs}});{{#modules}}
 use {{&use}};{{/modules}}
 
 my $exercise{{#exercise}} = '{{&exercise}}'{{/exercise}};{{#exercise_comment}} {{&exercise_comment}}{{/exercise_comment}}
 my $test_version{{#version}} = {{&version}}{{/version}};{{#version_comment}} {{&version_comment}}{{/version_comment}}
 use Test::More{{#plan}} tests => {{&plan}}{{/plan}};{{#plan_comment}} {{&plan_comment}}{{/plan_comment}}
-
-use_ok $exercise or BAIL_OUT;{{#use_test_comment}} {{&use_test_comment}}{{/use_test_comment}}
 {{#version_test_comment}}
 {{&version_test_comment}}{{/version_test_comment}}
 my $exercise_version = $exercise->VERSION // 0;
@@ -22,12 +21,9 @@ if ($exercise_version != $test_version) {
 }
 {{#subs}}
 
-my %subs;
-foreach ( qw({{&subs}}) ) {
-  can_ok $exercise, $_;
-  $subs{$_} = $exercise->can($_);
-}
-{{/subs}}{{#cdata}}
+can_ok $exercise, 'import' or BAIL_OUT 'Cannot import subroutines from module';{{/subs}}{{#methods}}
+can_ok $exercise, qw({{&methods}});{{/methods}}{{#cdata}}
+
 my $C_DATA = do { local $/; decode_json(<DATA>); };{{/cdata}}
 {{&tests}}
 {{#cdata}}

data/tracks/typescript/config.json

@@ -587,6 +587,23 @@
       ],
       "uuid": "32e79fd7-f002-4bdc-b6bd-7a91d8c1af61"
     },
+    {
+      "core": false,
+      "difficulty": 6,
+      "slug": "custom-set",
+      "topics": [
+        "control_flow_conditionals",
+        "control_flow_loops",
+        "data_structures",
+        "arrays",
+        "lists",
+        "sets",
+        "equality",
+        "recursion"
+      ],
+      "unlocked_by": "linked-list",
+      "uuid": "e2cfc3b4-5c71-4344-a692-5d55609f097b"
+    },
     {
       "core": true,
       "difficulty": 7,

data/tracks/typescript/exercises/custom-set/README.md

@@ -0,0 +1,36 @@
+# Custom Set
+
+Create a custom set type.
+
+Sometimes it is necessary to define a custom data structure of some
+type, like a set. In this exercise you will define your own set. How it
+works internally doesn't matter, as long as it behaves like a set of
+unique elements.
+
+## Setup
+
+Go through the setup instructions for TypeScript to
+install the necessary dependencies:
+
+http://exercism.io/languages/typescript
+
+## Requirements
+
+Install assignment dependencies:
+
+```bash
+$ yarn install
+```
+
+## Making the test suite pass
+
+Execute the tests with:
+
+```bash
+$ yarn test
+```
+
+
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/typescript/exercises/custom-set/custom-set.example.ts

@@ -0,0 +1,79 @@
+export default class CustomSet<T> {
+    data: Set<T>
+
+    constructor(data: T[] = []) {
+        this.data = new Set<T>()
+        data.forEach((el) => this.add(el))
+    }
+
+    add(el: T) {
+        this.data.add(el)
+        return this
+    }
+
+    delete(el: T) {
+        this.data.delete(el)
+        return this
+    }
+
+    size() {
+        return this.data.size
+    }
+
+    empty() {
+        return this.data.size === 0
+    }
+
+    contains(el: T) {
+        return this.data.has(el)
+    }
+
+    eql(other: CustomSet<T>) {
+        if (this.data.size !== other.data.size) {
+            return false
+        }
+        for (const item of this.data) {
+            if (!other.data.has(item)) {
+                return false
+            }
+        }
+        return true
+    }
+
+    difference(other: CustomSet<T>) {
+        const result = new CustomSet<T>()
+        for (const item of this.data) {
+            if (!other.data.has(item)) {
+                result.add(item)
+            }
+        }
+        return result
+    }
+
+    disjoint(other: CustomSet<T>) {
+        return this.size() === 0 || this.difference(other).size() === this.size()
+    }
+
+    intersection(other: CustomSet<T>) {
+        return this.difference(this.difference(other))
+    }
+
+    union(other: CustomSet<T>) {
+        const result = new CustomSet<T>()
+        for (const item of this.data) {
+            result.add(item)
+        }
+        for (const item of other.data) {
+            result.add(item)
+        }
+        return result
+    }
+
+    subset(other: CustomSet<T>) {
+        return this.eql(this.intersection(other))
+    }
+
+    toList() {
+        return Object.values(this.data)
+    }
+}