trackler 2.2.1.47 → 2.2.1.48

data/tracks/lua/exercises/transpose/README.md

@@ -4,14 +4,14 @@ Given an input text output it transposed.
 
 Roughly explained, the transpose of a matrix:
 
-```
+```text
 ABC
 DEF
 ```
 
 is given by:
 
-```
+```text
 AD
 BE
 CF
@@ -26,14 +26,14 @@ If the input has rows of different lengths, this is to be solved as follows:
 
 Therefore, transposing this matrix:
 
-```
+```text
 ABC
 DE
 ```
 
 results in:
 
-```
+```text
 AD
 BE
 C
@@ -41,21 +41,21 @@ C
 
 And transposing:
 
-```
+```text
 AB
 DEF
 ```
 
 results in:
 
-```
+```text
 AD
 BE
  F
 ```
 
 In general, all characters from the input should also be present in the transposed output.
-That means that if a column in the input text contains only spaces on its bottom-most row(s), 
+That means that if a column in the input text contains only spaces on its bottom-most row(s),
 the corresponding output row should contain the spaces in its right-most column(s).
 
 ## Running the tests

data/tracks/lua/exercises/triangle/README.md

@@ -2,23 +2,26 @@
 
 Determine if a triangle is equilateral, isosceles, or scalene.
 
-An _equilateral_ triangle has all three sides the same length.<br/>
+An _equilateral_ triangle has all three sides the same length.
+
 An _isosceles_ triangle has at least two sides the same length. (It is sometimes
 specified as having exactly two sides the same length, but for the purposes of
-this exercise we'll say at least two.)<br/>
+this exercise we'll say at least two.)
+
 A _scalene_ triangle has all sides of different lengths.
 
 ## Note
 
-For a shape to be a triangle at all, all sides have to be of length > 0, and 
-the sum of the lengths of any two sides must be greater than or equal to the 
+For a shape to be a triangle at all, all sides have to be of length > 0, and
+the sum of the lengths of any two sides must be greater than or equal to the
 length of the third side. See [Triangle Inequality](https://en.wikipedia.org/wiki/Triangle_inequality).
 
 ## Dig Deeper
 
-The case where the sum of the lengths of two sides _equals_ that of the 
-third is known as a _degenerate_ triangle - it has zero area and looks like 
+The case where the sum of the lengths of two sides _equals_ that of the
+third is known as a _degenerate_ triangle - it has zero area and looks like
 a single line. Feel free to add your own code/tests to check for degenerate triangles.
+
 ## Running the tests
 
 To run the tests, run the command `busted .` from within the exercise directory.

data/tracks/lua/exercises/variable-length-quantity/README.md

@@ -5,18 +5,17 @@ Implement variable length quantity encoding and decoding.
 The goal of this exercise is to implement [VLQ](https://en.wikipedia.org/wiki/Variable-length_quantity) encoding/decoding.
 
 In short, the goal of this encoding is to encode integer values in a way that would save bytes.
-Only the first 7 bits of each byte is significant (right-justified; sort of like an ASCII byte). 
-So, if you have a 32-bit value, you have to unpack it into a series of 7-bit bytes. 
-Of course, you will have a variable number of bytes depending upon your integer. 
+Only the first 7 bits of each byte is significant (right-justified; sort of like an ASCII byte).
+So, if you have a 32-bit value, you have to unpack it into a series of 7-bit bytes.
+Of course, you will have a variable number of bytes depending upon your integer.
 To indicate which is the last byte of the series, you leave bit #7 clear.
-In all of the preceding bytes, you set bit #7. 
+In all of the preceding bytes, you set bit #7.
 
-So, if an integer is between `0-127`, it can be represented as one byte. 
+So, if an integer is between `0-127`, it can be represented as one byte.
 Although VLQ can deal with numbers of arbitrary sizes, for this exercise we will restrict ourselves to only numbers that fit in a 32-bit unsigned integer.
 Here are examples of integers as 32-bit values, and the variable length quantities that they translate to:
 
-
-```
+```text
  NUMBER        VARIABLE QUANTITY
 00000000              00
 00000040              40

data/tracks/lua/exercises/word-count/README.md

@@ -4,14 +4,13 @@ Given a phrase, count the occurrences of each word in that phrase.
 
 For example for the input `"olly olly in come free"`
 
-```plain
+```text
 olly: 2
 in: 1
 come: 1
 free: 1
 ```
 
-
 ## Running the tests
 
 To run the tests, run the command `busted .` from within the exercise directory.

data/tracks/lua/exercises/word-search/README.md

@@ -5,7 +5,7 @@ words in them.
 
 For example:
 
-```
+```text
 jefblpepre
 camdcimgtc
 oivokprjsm

data/tracks/perl6/exercises/leap/Example.pm6

@@ -1,4 +1,4 @@
-unit module Leap:ver<1>;
+unit module Leap:ver<2>;
 
 sub is-leap-year ($year) is export {
   is-divisible($year, 400)

data/tracks/perl6/exercises/leap/Leap.pm6

@@ -1,4 +1,4 @@
-unit module Leap:ver<1>;
+unit module Leap:ver<2>;
 
 sub is-leap-year ($year) is export {
 }

data/tracks/perl6/exercises/leap/example.yaml

@@ -1,5 +1,5 @@
 exercise: Leap
-version: 1
+version: 2
 plan: 6
 imports: '&is-leap-year'
 tests: |

data/tracks/perl6/exercises/leap/leap.t

@@ -5,7 +5,7 @@ use lib my $dir = $?FILE.IO.dirname;
 use JSON::Fast;
 
 my Str:D $exercise := 'Leap';
-my Version:D $version = v1;
+my Version:D $version = v2;
 my Str $module //= $exercise;
 INIT {
   plan 6;
@@ -33,7 +33,7 @@ $c-data := from-json q:to/END/;
 
 {
   "exercise": "leap",
-  "version": "1.0.0",
+  "version": "1.1.0",
   "cases": [
     {
       "description": "year not divisible by 4: common year",
@@ -44,7 +44,7 @@ $c-data := from-json q:to/END/;
     {
       "description": "year divisible by 4, not divisible by 100: leap year",
       "property": "leapYear",
-      "input": 2016,
+      "input": 2020,
       "expected": true
     },
     {

data/tracks/php/exercises/transpose/example.php

@@ -9,22 +9,44 @@
  */
 function transpose($text)
 {
+    $findMaxLength = function ($lines) {
+        return array_reduce($lines, function ($max, $line) {
+            return max($max, strlen($line));
+        }, 0);
+    };
+
+    $pad = function ($lines, $length) {
+        return array_map(function ($line) use ($length) {
+            return str_pad($line, $length, ' ', STR_PAD_RIGHT);
+        }, $lines);
+    };
+
+    if ($text === ['']) {
+        return $text;
+    }
+
+    $maxLength = $findMaxLength($text);
+
+    $lines = $pad($text, $maxLength);
+
     $result = [];
-    if (!empty($text)) {
-        $lines = (strpos($text, '\n') !== false ? explode('\n', $text) : [$text]);
-        foreach ($lines as $lineNumber => $line) {
-            $characters = str_split($line);
-            array_walk_recursive(
-                $characters,
-                function ($character, $key) use (&$result, $lineNumber) {
-                    $defaultValue = str_pad($character, $lineNumber + 1, " ", STR_PAD_LEFT);
-                    if (isset($result[$key])) {
-                        $defaultValue = $result[$key] . $character;
-                    }
-                    $result[$key] = $defaultValue;
-                }
-            );
+
+    foreach ($lines as $lineNumber => $line) {
+        $characters = str_split($line);
+        foreach ($characters as $index => $character) {
+            if (isset($result[$index])) {
+                $result[$index] .= $character;
+            } else {
+                $result[$index] = $character;
+            }
         }
     }
-    return implode($result, '\n');
+
+    $trimLastLine = function ($lines) {
+        $lastLine = array_pop($lines);
+        array_push($lines, rtrim($lastLine));
+        return $lines;
+    };
+
+    return $trimLastLine($result);
 }

data/tracks/php/exercises/transpose/transpose_test.php

@@ -6,111 +6,271 @@ class TransposeTest extends PHPUnit\Framework\TestCase
 {
     public function testEmptyString()
     {
-        $input = "";
-        $expected = "";
+        $input = [""];
+        $expected = [""];
         $this->assertEquals($expected, transpose($input));
     }
 
     public function testTwoCharactersInARow()
     {
         $this->markTestSkipped();
-        $input = "A1";
-        $expected = 'A\n1';
+        $input = [
+            "A1"
+        ];
+        $expected = [
+            "A",
+            "1"
+        ];
         $this->assertEquals($expected, transpose($input));
     }
 
     public function testTwoCharactersInAColumn()
     {
         $this->markTestSkipped();
-        $input = 'A\n1';
-        $expected = "A1";
+        $input = [
+            "A",
+            "1"
+        ];
+        $expected = [
+            "A1"
+        ];
         $this->assertEquals($expected, transpose($input));
     }
 
     public function testSimple()
     {
         $this->markTestSkipped();
-        $input = 'ABC\n123';
-        $expected = 'A1\nB2\nC3';
+        $input = [
+            "ABC",
+            "123"
+        ];
+        $expected = [
+            "A1",
+            "B2",
+            "C3"
+        ];
         $this->assertEquals($expected, transpose($input));
     }
 
     public function testSingleLine()
     {
         $this->markTestSkipped();
-        $input = "Single line.";
-        $expected = 'S\ni\nn\ng\nl\ne\n \nl\ni\nn\ne\n.';
+        $input = [
+            "Single line."
+        ];
+        $expected = [
+            "S",
+            "i",
+            "n",
+            "g",
+            "l",
+            "e",
+            " ",
+            "l",
+            "i",
+            "n",
+            "e",
+            ".",
+        ];
         $this->assertEquals($expected, transpose($input));
     }
 
     public function testFirstLineLongerThanSecondLine()
     {
         $this->markTestSkipped();
-        $input = 'The fourth line.\nThe fifth line.';
-        $expected = 'TT\nhh\nee\n  \nff\noi\nuf\nrt\nth\nh \n l\nli\nin\nne\ne.\n.';
+        $input = [
+            "The fourth line.",
+            "The fifth line."
+        ];
+        $expected = [
+            "TT",
+            "hh",
+            "ee",
+            "  ",
+            "ff",
+            "oi",
+            "uf",
+            "rt",
+            "th",
+            "h ",
+            " l",
+            "li",
+            "in",
+            "ne",
+            "e.",
+            "."
+        ];
         $this->assertEquals($expected, transpose($input));
     }
 
     public function testSecondLineLongerThanFirstLine()
     {
         $this->markTestSkipped();
-        $input = 'The first line.\nThe second line.';
-        $expected = 'TT\nhh\nee\n  \nfs\nie\nrc\nso\ntn\n d\nl \nil\nni\nen\n.e\n .';
+        $input = [
+            "The first line.",
+            "The second line."
+        ];
+        $expected = [
+            "TT",
+            "hh",
+            "ee",
+            "  ",
+            "fs",
+            "ie",
+            "rc",
+            "so",
+            "tn",
+            " d",
+            "l ",
+            "il",
+            "ni",
+            "en",
+            ".e",
+            " ."
+        ];
         $this->assertEquals($expected, transpose($input));
     }
 
     public function testSquare()
     {
         $this->markTestSkipped();
-        $input = 'HEART\nEMBER\nABUSE\nRESIN\nTREND';
-        $expected = 'HEART\nEMBER\nABUSE\nRESIN\nTREND';
+        $input = [
+            "HEART",
+            "EMBER",
+            "ABUSE",
+            "RESIN",
+            "TREND"
+        ];
+        $expected = [
+            "HEART",
+            "EMBER",
+            "ABUSE",
+            "RESIN",
+            "TREND"
+        ];
         $this->assertEquals($expected, transpose($input));
     }
 
     public function testRectangle()
     {
         $this->markTestSkipped();
-        $input = 'FRACTURE\nOUTLINED\nBLOOMING\nSEPTETTE';
-        $expected = 'FOBS\nRULE\nATOP\nCLOT\nTIME\nUNIT\nRENT\nEDGE';
+        $input = [
+            "FRACTURE",
+            "OUTLINED",
+            "BLOOMING",
+            "SEPTETTE"
+        ];
+        $expected = [
+            "FOBS",
+            "RULE",
+            "ATOP",
+            "CLOT",
+            "TIME",
+            "UNIT",
+            "RENT",
+            "EDGE"
+        ];
         $this->assertEquals($expected, transpose($input));
     }
 
     public function testTriangle()
     {
         $this->markTestSkipped();
-        $input = 'T\nEE\nAAA\nSSSS\nEEEEE\nRRRRRR';
-        $expected = 'TEASER\n EASER\n  ASER\n   SER\n    ER\n     R';
+        $input = [
+            "T",
+            "EE",
+            "AAA",
+            "SSSS",
+            "EEEEE",
+            "RRRRRR"
+        ];
+        $expected = [
+            "TEASER",
+            " EASER",
+            "  ASER",
+            "   SER",
+            "    ER",
+            "     R"
+        ];
         $this->assertEquals($expected, transpose($input));
     }
 
     public function testManyLines()
     {
         $this->markTestSkipped();
-        $input = 'Chor. Two households, both alike in dignity,\nIn fair Verona, ';
-        $input .= 'where we lay our scene,\nFrom ancient grudge break to new mutiny';
-        $input .= ',\nWhere civil blood makes civil hands unclean.\nFrom forth';
-        $input .= ' the fatal loins of these two foes\nA pair of star-cross\'d ';
-        $input .= 'lovers take their life;\nWhose misadventur\'d piteous overthrows';
-        $input .= '\nDoth with their death bury their parents\' strife.\nThe fear';
-        $input .= 'ful passage of their death-mark\'d love,\nAnd the continuance';
-        $input .= ' of their parents\' rage,\nWhich, but their children\'s end, ';
-        $input .= 'naught could remove,\nIs now the two hours\' traffic of our ';
-        $input .= 'stage;\nThe which if you with patient ears attend,\nWhat ';
-        $input .= 'here shall miss, our toil shall strive to mend.';
-        $expected = 'CIFWFAWDTAWITW\nhnrhr hohnhshh\no oeopotedi ea\nrfmrmash';
-        $expected .= '  cn t\n.a e ie fthow \n ia fr weh,whh\nTrnco miae  ie\nw';
-        $expected .= ' ciroitr btcr\noVivtfshfcuhhe\n eeih a uote  \nhrnl sdtln';
-        $expected .= '  is\noot ttvh tttfh\nun bhaeepihw a\nsaglernianeoyl\ne,ro';
-        $expected .= ' -trsui ol\nh uofcu sarhu \nowddarrdan o m\nlhg to\'egccuwi\n';
-        $expected .= 'deemasdaeehris\nsr als t  ists\n,ebk \'phool\'h,\n  reldi ffd';
-        $expected .= '   \nbweso tb  rtpo\noea ileutterau\nt kcnoorhhnatr\nhl ';
-        $expected .= 'isvuyee\'fi \n atv es iisfet\nayoior trr ino\nl  lfsoh  ecti';
-        $expected .= '\nion   vedpn  l\nkuehtteieadoe \nerwaharrar,fas\n   nekt te ';
-        $expected .= ' rh\nismdsehphnnosa\nncuse ra-tau l\n et  tormsural\n';
-        $expected .= 'dniuthwea\'g t \niennwesnr hsts\ng,ycoitkrttet\nn,l rs\'a anr';
-        $expected .= '\nief \'dgcgdi\ntaol  eoe,v\nyneisl,u;e\n,.sftol \n     ervdt';
-        $expected .= '\n     ;ie o\n       f,r \n       eem\n       .me\n          ';
-        $expected .= 'on\n          vd\n          e.\n          ,';
+        $input = [
+            "Chor. Two households, both alike in dignity,",
+            "In fair Verona, where we lay our scene,",
+            "From ancient grudge break to new mutiny,",
+            "Where civil blood makes civil hands unclean.",
+            "From forth the fatal loins of these two foes",
+            "A pair of star-cross'd lovers take their life;",
+            "Whose misadventur'd piteous overthrows",
+            "Doth with their death bury their parents' strife.",
+            "The fearful passage of their death-mark'd love,",
+            "And the continuance of their parents' rage,",
+            "Which, but their children's end, naught could remove,",
+            "Is now the two hours' traffic of our stage;",
+            "The which if you with patient ears attend,",
+            "What here shall miss, our toil shall strive to mend."
+        ];
+
+        $expected = [
+            "CIFWFAWDTAWITW",
+            "hnrhr hohnhshh",
+            "o oeopotedi ea",
+            "rfmrmash  cn t",
+            ".a e ie fthow ",
+            " ia fr weh,whh",
+            "Trnco miae  ie",
+            "w ciroitr btcr",
+            "oVivtfshfcuhhe",
+            " eeih a uote  ",
+            "hrnl sdtln  is",
+            "oot ttvh tttfh",
+            "un bhaeepihw a",
+            "saglernianeoyl",
+            "e,ro -trsui ol",
+            "h uofcu sarhu ",
+            "owddarrdan o m",
+            "lhg to'egccuwi",
+            "deemasdaeehris",
+            "sr als t  ists",
+            ",ebk 'phool'h,",
+            "  reldi ffd   ",
+            "bweso tb  rtpo",
+            "oea ileutterau",
+            "t kcnoorhhnatr",
+            "hl isvuyee'fi ",
+            " atv es iisfet",
+            "ayoior trr ino",
+            "l  lfsoh  ecti",
+            "ion   vedpn  l",
+            "kuehtteieadoe ",
+            "erwaharrar,fas",
+            "   nekt te  rh",
+            "ismdsehphnnosa",
+            "ncuse ra-tau l",
+            " et  tormsural",
+            "dniuthwea'g t ",
+            "iennwesnr hsts",
+            "g,ycoi tkrttet",
+            "n ,l r s'a anr",
+            "i  ef  'dgcgdi",
+            "t  aol   eoe,v",
+            "y  nei sl,u; e",
+            ",  .sf to l   ",
+            "     e rv d  t",
+            "     ; ie    o",
+            "       f, r   ",
+            "       e  e  m",
+            "       .  m  e",
+            "          o  n",
+            "          v  d",
+            "          e  .",
+            "          ,"
+        ];
+
         $this->assertEquals($expected, transpose($input));
     }
 }