trackler 2.0.8.20 → 2.0.8.21

data/tracks/perl6/exercises/linked-list/Example.pm6

@@ -1,51 +1,50 @@
+unit class LinkedList:ver<1>;
+
 class ListNode {
     has $.next     is rw;
     has $.previous is rw;
     has $.value;
 }
 
-class LinkedList is export {
-    has $!first;
-    has $!last;
-
-    method push($value) {
-        my $next = ListNode.new( value => $value, previous => $!last );
-        if ( $!last ) {
-            $!last = $!last.next= $next ;
-        }
-        else {
-            $!first = $!last = $next;
-        }
-    }
+has $!first;
+has $!last;
 
-    method unshift($value) {
-        my $next = ListNode.new( value => $value, next => $!first );
-        if ( $!first ) {
-            $!first = $!first.previous = $next ;
-        }
-        else {
-            $!first = $!last = $next;
-        }
+method push-list($value) {
+    my $next = ListNode.new( value => $value, previous => $!last );
+    if ( $!last ) {
+        $!last = $!last.next= $next ;
+    }
+    else {
+        $!first = $!last = $next;
     }
+}
 
-    method shift() {
-        my $f = $!first;
+method unshift-list($value) {
+    my $next = ListNode.new( value => $value, next => $!first );
+    if ( $!first ) {
+        $!first = $!first.previous = $next ;
+    }
+    else {
+        $!first = $!last = $next;
+    }
+}
 
-        $!first = $!first.next;
+method shift-list() {
+    my $f = $!first;
 
-        unless $!first  { $!last = $!first }
+    $!first = $!first.next;
 
-        return $f.value;
-    }
+    unless $!first  { $!last = $!first }
 
-    method pop() {
-        my $f = $!last;
+    return $f.value;
+}
 
-        $!last = $!last.previous;
+method pop-list() {
+    my $f = $!last;
 
-        unless $!.last  { $!first = $!last }
+    $!last = $!last.previous;
 
-        return $f.value;
-    }
-};
+    unless $!.last  { $!first = $!last }
 
+    return $f.value;
+}

data/tracks/perl6/exercises/linked-list/LinkedList.pm6

@@ -0,0 +1 @@
+unit class LinkedList:ver<1>;

data/tracks/perl6/exercises/linked-list/linked-list.t

@@ -1,35 +1,45 @@
 #!/usr/bin/env perl6
-
+use v6;
 use Test;
+use lib $?FILE.IO.dirname;
 use JSON::Tiny;
 
-use lib IO::Path.new($?FILE).parent.path;
-
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'LinkedList';
-require ::($module) <LinkedList>;
+my $exercise = 'LinkedList';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 7;
 
-my @cases; # defined in INIT
+use-ok $module or bail-out;
+require ::($module);
+if ::($exercise).^ver !~~ $version {
+  warn "\nExercise version mismatch. Further tests may fail!"
+    ~ "\n$exercise is $(::($exercise).^ver.gist). "
+    ~ "Test is $($version.gist).\n";
+  bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
+}
 
-plan 0 + @cases;
+subtest "Class method(s)", {
+   plan 4;
+   ok ::($exercise).can($_), $_ for <push-list pop-list shift-list unshift-list>;
+}
 
-for @cases -> $c {
-    subtest $c.<name>, sub {
-        my $ll = LinkedList.new;
-        for  |$c.<set> -> %s {
-            for %s {
-                my $v = $_.value;
-                given $_.key  {
-                    when 'push'    { $ll.push( $v );    pass 'push ' ~ $v    }
-                    when 'unshift' { $ll.unshift( $v ); pass 'unshift ' ~ $v }
-                    when 'pop'     { is $ll.pop,   $v, 'pop'   }
-                    when 'shift'   { is $ll.shift, $v, 'shift' }
-                }
-            }
+for my @cases -> $case {
+  subtest $case.<name>, sub {
+    my $linkedlist = ::($exercise).new;
+    for  |$case.<set> -> %set {
+      for %set {
+        my $value = $_.value;
+        given $_.key  {
+          when 'push'    { $linkedlist.?push-list( $value ) }
+          when 'unshift' { $linkedlist.?unshift-list( $value ) }
+          when 'pop'     { is $linkedlist.?pop-list, $value, 'pop' }
+          when 'shift'   { is $linkedlist.?shift-list, $value, 'shift' }
         }
-    };
+      }
+    }
+  }
 }
 
-
 done-testing;
 
 INIT {

data/tracks/perl6/exercises/robot-name/Example.pm

@@ -1,19 +1,12 @@
-class Robot is export {
-    has $.name is rw = self.reset_name;
+unit class Robot:ver<1>;
 
-    method rand_letter {
-        ['A'..'Z'].pick;
-    }
+state %record;
 
-    method rand_suffix {
-        100 + 900.rand.truncate;
-    }
+has Str:D $.name = self.reset-name;
 
-    method new_name {
-        self.rand_letter ~ self.rand_letter ~ self.rand_suffix;
-    }
-
-    method reset_name {
-        self.name = self.new_name;
-    }
+method reset-name {
+  $!name = ('AA'..'ZZ').roll ~ ('000'..'999').roll;
+  self.reset-name if %record{$!name}:exists;
+  %record{$!name} = True;
+  return $!name;
 }

data/tracks/perl6/exercises/robot-name/Robot.pm6

@@ -0,0 +1 @@
+unit class Robot:ver<1>;

data/tracks/perl6/exercises/robot-name/robot-name.t

@@ -1,23 +1,48 @@
 #!/usr/bin/env perl6
 use v6;
 use Test;
-use lib IO::Path.new($?FILE).parent.path;
+use lib $?FILE.IO.dirname;
 
-plan 7;
-my $module = %*ENV<EXERCISM> ?? 'Example' !! 'Robot';
-use-ok $module;
-require ::($module) <Robot>;
+my $exercise = 'Robot';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 8;
 
-ok Robot.can('name'), 'Robot class has name attribute';
-ok Robot.can('reset_name'), 'Robot class has reset_name method';
+use-ok $module or bail-out;
+require ::($module);
+if ::($exercise).^ver !~~ $version {
+  warn "\nExercise version mismatch. Further tests may fail!"
+    ~ "\n$exercise is $(::($exercise).^ver.gist). "
+    ~ "Test is $($version.gist).\n";
+  bail-out 'Example must match test.' if %*ENV<EXERCISM>;
+}
 
-my $robot = Robot.new;
-my $name = $robot.name;
+subtest 'Class method(s)', {
+  plan 2;
+  ok ::($exercise).can($_), $_ for <name reset-name>;
+}
 
-like $name, /^^<[A..Z]>**2 <[0..9]>**3$$/, 'Name should match schema';
-is $name, $robot.name, 'Name should be persistent';
-ok $robot.name ne Robot.new.name, 'Robots should have different names';
+srand 1;
+my $robot = ::($exercise).?new;
+my Str $name = $robot.?name;
 
-$robot.reset_name;
+like $name, /^^<[A..Z]>**2 <[0..9]>**3$$/, 'Name matches schema';
+srand 2;
+is $robot.?name, $name, 'Name is persistent';
 
-ok $robot.name ne $name, 'reset_name should change the robot name';
+srand 1;
+isnt ::($exercise).new.?name, $name, 'New Robot cannot claim previous Robot name';
+
+srand 1;
+$robot.?reset-name;
+$robot.?reset_name; # Allows next test to still pass for older solutions
+isnt $robot.?name, $name, "'reset-name' cannot use previous Robot name";
+
+diag "\nCreating 100 robots...";
+push my @names, ::($exercise).new.name for 1..100;
+is @names, @names.unique, 'All names are unique';
+subtest 'Randomness', {
+  plan 2;
+  isnt @names, @names.sort, 'Names not ordered';
+  isnt @names, @names.sort.reverse, 'Names not reverse ordered';
+}

data/tracks/php/config.json

@@ -362,6 +362,11 @@
     "topics": [
       "Arrays"
     ]
+  },
+  {
+    "slug": "luhn",
+    "difficulty": 4,
+    "topics": []
   }
   ]
 }

data/tracks/php/exercises/luhn/example.php

@@ -0,0 +1,26 @@
+<?php
+
+function isValid($candidate)
+{
+    $sanitizedCandidate = str_replace(" ", "", $candidate) ;
+
+    if (strlen($sanitizedCandidate) <= 1 || !ctype_digit($sanitizedCandidate)) {
+        return false ;
+    }
+
+    $reversseCandidate = strrev($sanitizedCandidate) ;
+    $sum = 0 ;
+
+    for ($i = 1; $i < strlen($reversseCandidate); $i+=2) {
+        $digit = 2 * intval($reversseCandidate{$i}) ;
+
+        if ($digit > 9) {
+            $digit -= 9 ;
+        }
+
+        $sum += $digit ;
+        $sum += intval($reversseCandidate{$i-1}) ;
+    }
+
+    return $sum % 10 == 0 ;
+}

data/tracks/php/exercises/luhn/luhn_test.php

@@ -0,0 +1,95 @@
+<?php
+
+require "luhn.php";
+
+class LuhnValidatorTest extends PHPUnit\Framework\TestCase
+{
+    public function testSingleDigitInvalid()
+    {
+        $this->assertFalse(isValid("1"));
+    }
+
+    public function testSingleZeroInvalid()
+    {
+        $this->markTestSkipped();
+
+        $this->assertFalse(isValid("0"));
+    }
+
+    public function testSimpleValidNumber()
+    {
+        $this->markTestSkipped();
+
+        $this->assertTrue(isValid("59"));
+    }
+
+    public function testSpaceHandling()
+    {
+        $this->markTestSkipped();
+
+        $this->assertTrue(isValid(" 5 9 "));
+    }
+
+    public function testValidCanadianSocialInsuranceNumber()
+    {
+        $this->markTestSkipped();
+
+        $this->assertTrue(isValid("046 454 286"));
+    }
+
+    public function testInvalidCanadianSocialInsuranceNumber()
+    {
+        $this->markTestSkipped();
+
+        $this->assertFalse(isValid("046 454 287"));
+    }
+
+    public function testInvalidCreditCard()
+    {
+        $this->markTestSkipped();
+
+        $this->assertFalse(isValid("8273 1232 7352 0569"));
+    }
+
+    public function testNonDigitCharacterInValidStringInvalidatesTheString()
+    {
+        $this->markTestSkipped();
+
+        $this->assertFalse(isValid("046a 454 286"));
+    }
+
+    public function testThatStringContainingSymbolsIsInvalid()
+    {
+        $this->markTestSkipped();
+
+        $this->assertFalse(isValid("055£ 444$ 285"));
+    }
+
+    public function testThatStringContainingPunctuationIsInvalid()
+    {
+        $this->markTestSkipped();
+
+        $this->assertFalse(isValid("055-444-285"));
+    }
+
+    public function testSpaceAndSingleZeroIsInvalid()
+    {
+        $this->markTestSkipped();
+
+        $this->assertFalse(isValid(" 0"));
+    }
+
+    public function testMultipleZerosIsValid()
+    {
+        $this->markTestSkipped();
+
+        $this->assertTrue(isValid(" 00000"));
+    }
+
+    public function testThatDoublingNineIsHandledCorrectly()
+    {
+        $this->markTestSkipped();
+
+        $this->assertTrue(isValid("091"));
+    }
+}

data/tracks/purescript/README.md

@@ -2,13 +2,76 @@
 
 Exercism problems in PureScript.
 
-## TODO
+## How to contribute
 
-_Document how to contribute to the PureScript track._
+Thank you so much for contributing! :tada:
 
-## Contributing Guide
+- [Asking for help](#asking-for-help)
+- [How to contribute](#how-to-contribute)
+  * [Reporting or fixing bugs](#reporting-or-fixing-bugs)
+  * [Reviewing issues and pull requests](#reviewing-issues-and-pull)
+  * [Porting exercises](#porting-exercises)
+- [Repository structure and conventions](#repository-structure-and-conventions)
+- [Writing a pull request](#writing-a-pull-request)
+
+
+### Asking for help
+
+When in doubt just [open a GitHub issue][new-issue] and ask! In any case,
+don't be afraid or shy! We promise to be friendly and as helpful as possible.
+
+[new-issue]: https://github.com/exercism/xpurescript/issues/new
+
+
+### How to contribute
+
+As a first step we recommend you read the [contributing guide][cont-guide].
+
+[cont-guide]: https://github.com/exercism/x-common/blob/master/CONTRIBUTING.md
+
+#### Reporting or fixing bugs
+
+Typical examples for a bug: A typo, a missing test case, an unclear or
+ambiguous problem description.
+
+- If you are unsure whether you have really found a bug [just ask](#asking-for-help).
+- To report a bug you can [write an issue][new-issue]
+- If you already have a fix for it you may [write a pull request](#writing-a-pull-request).
+
+#### Reviewing issues and pull requests
+
+If you have an opinion or feedback on work currently being done on this track
+please do [write a comment][write-comment] for an [issue][issue] or a
+[pull request][prs]. Feedback is extremely useful to us.
+
+[write-comment]: https://help.github.com/articles/commenting-on-a-pull-request/
+[issues]: https://github.com/exercism/xpurescript/issue
+[prs]: https://github.com/exercism/xpurescript/pull
+
+Please be detailed and include any links or arguments to support your
+opinion.
+
+#### Porting exercises
+
+Here is the [list of missing exercises][missing]. See here for more
+information about [porting an exercise][porting]. Of course you can also add a
+totally new exercise, but it might be a good idea to first discuss it in one
+of [our forums](#asking-for-help).
+
+[missing]: http://exercism.io/languages/purescript/todo
+[porting]: https://github.com/exercism/x-common/blob/master/CONTRIBUTING.md#porting-an-exercise-to-another-language-track
+
+
+### Repository structure and conventions
+
+[Here](https://github.com/exercism/x-common/blob/master/CONTRIBUTING.md#track-anatomy)
+is a general description of all the files and directories that are not
+explicitly described below.
+
+
+### Writing a pull request
+To fix a bug you should [create a pull request from a fork](https://help.github.com/articles/creating-a-pull-request-from-a-fork/) [here](https://github.com/exercism/xpurescript/pull). See also [here](https://github.com/exercism/x-common/blob/master/CONTRIBUTING.md#git-basics) for more information.
 
-Please see the [contributing guide](https://github.com/exercism/x-api/blob/master/CONTRIBUTING.md#the-exercise-data)
 
 ## License
 

data/tracks/python/docs/LEARNING.md

@@ -16,3 +16,4 @@ With this premise, a good, beginner friendly, starting point for those who don't
 - [Offical Python3 **Documentation** and **Reference**](https://docs.python.org/3/)
 - [Learn X in Y minutes (where X = Python3)](https://learnxinyminutes.com/docs/python3/)
 - [The Hitchhiker’s Guide to Python](http://docs.python-guide.org/en/latest/)
+- [PyCharm EDU **IDE** and **Courses**](https://www.jetbrains.com/pycharm-edu/)

data/tracks/python/exercises/acronym/acronym_test.py

@@ -3,8 +3,9 @@ import unittest
 from acronym import abbreviate
 
 
-class AcronymTest(unittest.TestCase):
+# test cases adapted from `x-common//canonical-data.json` @ version: 1.0.0
 
+class AcronymTest(unittest.TestCase):
     def test_basic(self):
         self.assertEqual('PNG', abbreviate('Portable Network Graphics'))
 
@@ -20,6 +21,9 @@ class AcronymTest(unittest.TestCase):
     def test_all_caps_words(self):
         self.assertEqual('PHP', abbreviate('PHP: Hypertext Preprocessor'))
 
+    def test_non_acronym_all_caps_word(self):
+        self.assertEqual('GIMP', abbreviate('GNU Image Manipulation Program'))
+
     def test_hyphenated(self):
         self.assertEqual('CMOS', abbreviate('Complementary metal-oxide semiconductor'))
 

data/tracks/python/exercises/atbash-cipher/atbash_cipher_test.py

@@ -3,6 +3,8 @@ import unittest
 from atbash_cipher import decode, encode
 
 
+# test cases adapted from `x-common//canonical-data.json` @ version: 1.0.0
+
 class AtbashCipherTest(unittest.TestCase):
 
     def test_encode_no(self):
@@ -48,6 +50,12 @@ class AtbashCipherTest(unittest.TestCase):
             decode("gvhgr mt123 gvhgr mt")
         )
 
+    def test_decode_all_the_letters(self):
+        ciphertext = "gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt"
+        plaintext = "thequickbrownfoxjumpsoverthelazydog"
+        self.assertMultiLineEqual(plaintext, decode(ciphertext))
+
+    # additional track specific test
     def test_encode_decode(self):
         self.assertMultiLineEqual(
             "testing123testing",

data/tracks/python/exercises/hello-world/hello_world_test.py

@@ -1,48 +1,14 @@
-# -*- coding: utf-8 -*-
-
-from __future__ import unicode_literals
 import unittest
 
 import hello_world
 
 
-class HelloWorldTests(unittest.TestCase):
-
-    def test_hello_without_name(self):
-        self.assertEqual(
-            'Hello, World!',
-            hello_world.hello()
-        )
-
-    def test_hello_with_sample_name(self):
-        self.assertEqual(
-            'Hello, Alice!',
-            hello_world.hello('Alice')
-        )
+# test cases adapted from `x-common//canonical-data.json` @ version: 1.0.0
 
-    def test_hello_with_other_sample_name(self):
-        self.assertEqual(
-            'Hello, Bob!',
-            hello_world.hello('Bob')
-        )
-
-    def test_hello_with_umlaut_name(self):
-        self.assertEqual(
-            'Hello, Jürgen!',
-            hello_world.hello('Jürgen')
-        )
-
-    def test_hello_with_blank_name(self):
-        self.assertEqual(
-            'Hello, World!',
-            hello_world.hello('')
-        )
+class HelloWorldTests(unittest.TestCase):
 
-    def test_hello_with_none_name(self):
-        self.assertEqual(
-            'Hello, World!',
-            hello_world.hello(None)
-        )
+    def test_hello(self):
+        self.assertEqual('Hello, World!', hello_world.hello())
 
 
 if __name__ == '__main__':

data/tracks/python/exercises/run-length-encoding/run_length_encoding_test.py

@@ -1,6 +1,3 @@
-# -*- coding: utf-8 -*-
-from __future__ import unicode_literals
-
 import unittest
 
 from run_length_encoding import encode, decode
@@ -8,30 +5,48 @@ from run_length_encoding import encode, decode
 
 class WordCountTests(unittest.TestCase):
 
-    def test_encode(self):
-        self.assertMultiLineEqual('2A3B4C', encode('AABBBCCCC'))
+    def test_encode_empty_string(self):
+        self.assertMultiLineEqual('', encode(''))
 
-    def test_decode(self):
-        self.assertMultiLineEqual('AABBBCCCC', decode('2A3B4C'))
+    def test_encode_single_characters_only_are_encoded_without_count(self):
+        self.assertMultiLineEqual('XYZ', encode('XYZ'))
+
+    def test_encode_string_with_no_single_characters(self):
+        self.assertMultiLineEqual('2A3B4C', encode('AABBBCCCC'))
 
-    def test_encode_with_single(self):
+    def test_encode_single_characters_mixed_with_repeated_characters(self):
         self.assertMultiLineEqual(
             '12WB12W3B24WB',
             encode('WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWB'))
 
-    def test_decode_with_single(self):
+    def test_encode_multiple_whitespace_mixed_in_string(self):
+        self.assertMultiLineEqual('2 hs2q q2w2 ', encode('  hsqq qww  '))
+
+    def test_encode_lowercase_characters(self):
+        self.assertMultiLineEqual('2a3b4c', encode('aabbbcccc'))
+
+    def test_decode_empty_string(self):
+        self.assertMultiLineEqual('', decode(''))
+
+    def test_decode_single_characters_only(self):
+        self.assertMultiLineEqual('XYZ', decode('XYZ'))
+
+    def test_decode_string_with_no_single_characters(self):
+        self.assertMultiLineEqual('AABBBCCCC', decode('2A3B4C'))
+
+    def test_decode_single_characters_with_repeated_characters(self):
         self.assertMultiLineEqual(
             'WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWB',
             decode('12WB12W3B24WB'))
 
-    def test_combination(self):
-        self.assertMultiLineEqual('zzz ZZ  zZ', decode(encode('zzz ZZ  zZ')))
+    def test_decode_multiple_whitespace_mixed_in_string(self):
+        self.assertMultiLineEqual('  hsqq qww  ', decode('2 hs2q q2w2 '))
 
-    def test_encode_unicode_s(self):
-        self.assertMultiLineEqual('⏰3⚽2⭐⏰', encode('⏰⚽⚽⚽⭐⭐⏰'))
+    def test_decode_lower_case_string(self):
+        self.assertMultiLineEqual('aabbbcccc', decode('2a3b4c'))
 
-    def test_decode_unicode(self):
-        self.assertMultiLineEqual('⏰⚽⚽⚽⭐⭐⏰', decode('⏰3⚽2⭐⏰'))
+    def test_combination(self):
+        self.assertMultiLineEqual('zzz ZZ  zZ', decode(encode('zzz ZZ  zZ')))
 
 
 if __name__ == '__main__':