trackler 2.1.0.33 → 2.1.0.34

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

@@ -4,3 +4,18 @@ plan: 6
 imports: '&is-leap-year'
 tests: |
   is &::('is-leap-year')(.<input>), |.<expected description> for @($c-data<cases>);
+
+unit: module
+example: |
+  sub is-leap-year ($year) is export {
+    is-divisible($year, 400)
+      || is-divisible($year, 4)
+      && !is-divisible($year, 100);
+  }
+  
+  sub is-divisible($year, $number) {
+    $year % $number == 0 ?? True !! False;
+  }
+stub: |
+  sub is-leap-year ($year) is export {
+  }

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

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

data/tracks/perl6/exercises/linked-list/example.yaml

@@ -79,3 +79,54 @@ after_done_testing: |
       ]
     ｣
   }
+
+unit: class
+example: |
+  class ListNode {
+      has $.next     is rw;
+      has $.previous is rw;
+      has $.value;
+  }
+  
+  has $!first;
+  has $!last;
+  
+  method push-list($value) {
+      my $next = ListNode.new( value => $value, previous => $!last );
+      if ( $!last ) {
+          $!last = $!last.next= $next ;
+      }
+      else {
+          $!first = $!last = $next;
+      }
+  }
+  
+  method unshift-list($value) {
+      my $next = ListNode.new( value => $value, next => $!first );
+      if ( $!first ) {
+          $!first = $!first.previous = $next ;
+      }
+      else {
+          $!first = $!last = $next;
+      }
+  }
+  
+  method shift-list() {
+      my $f = $!first;
+  
+      $!first = $!first.next;
+  
+      unless $!first  { $!last = $!first }
+  
+      return $f.value;
+  }
+  
+  method pop-list() {
+      my $f = $!last;
+  
+      $!last = $!last.previous;
+  
+      unless $!.last  { $!first = $!last }
+  
+      return $f.value;
+  }

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

@@ -99,4 +99,3 @@ INIT {
     ]
   ｣
 }
-

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

@@ -4,3 +4,22 @@ plan: 15
 imports: '&is-luhn-valid'
 tests: |
   is .<input>.&is-luhn-valid, |.<expected description> for @($c-data<cases>);
+
+unit: module
+example: |
+  sub is-luhn-valid ($input is copy) is export {
+    $input ~~ s:g/\s+//;
+    return False if $input.chars < 2 || $input ~~ /\D/;
+    my @num = $input.split('', :skip-empty);
+    @num.unshift: 0 if @num % 2;
+    my $sum;
+    for @num -> $a, $b {
+      $sum += $a * 2;
+      $sum -= 9 if $a * 2 > 9;
+      $sum += $b;
+    }
+    return ($sum %% 10).so;
+  }
+stub: |
+  sub is-luhn-valid ($input) is export {
+  }

data/tracks/perl6/exercises/phone-number/example.yaml

@@ -10,3 +10,13 @@ tests: |
       nok clean-number(.<phrase>), .<description>;
     }
   }
+
+unit: module
+example: |
+  sub clean-number ($number is copy) is export {
+    $number ~~ s:g/<:!Nd>//;
+    $number ~~ /^ 1? ( [ <[2..9]> <:Nd> ** 2 ] ** 2 <:Nd> ** 4 ) $/ ?? ~$0 !! Nil;
+  }
+stub: |
+  sub clean-number ($number) is export {
+  }

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

@@ -10,3 +10,18 @@ tests: |
       isa-ok .<number>.&convert, Str;
     }
   }
+
+unit: module
+example: |
+  sub convert (Int:D $num --> Str:D) is export {
+    my $str = '';
+    given $num {
+      when * %% 3 {$str ~= 'Pling'; proceed}
+      when * %% 5 {$str ~= 'Plang'; proceed}
+      when * %% 7 {$str ~= 'Plong'}
+    }
+    return $str ?? $str !! $num.Str;
+  }
+stub: |
+  sub convert ($num) is export {
+  }

data/tracks/perl6/exercises/rna-transcription/example.yaml

@@ -10,3 +10,13 @@ tests: |
       throws-like {.<dna>.&to-rna}, Exception;
     }
   }
+
+unit: module
+example: |
+  sub to-rna ($dna) is export {
+    fail if $dna ~~ /<-[AGCT]>/;
+    $dna.trans(<A G C T> => <U C G A>);
+  }
+stub: |
+  sub to-rna ($dna) is export {
+  }

data/tracks/perl6/exercises/robot-name/example.yaml

@@ -7,14 +7,18 @@ tests: |
   my $robot = ::($exercise).?new;
   my Str $name = $robot.?name;
   like $name, /^^<[A..Z]>**2 <[0..9]>**3$$/, 'Name matches schema';
+  
   srand 2;
   is $robot.?name, $name, 'Name is persistent';
   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';
@@ -23,3 +27,23 @@ tests: |
     isnt @names, @names.sort, 'Names not ordered';
     isnt @names, @names.sort.reverse, 'Names not reverse ordered';
   }
+
+unit: class
+example: |
+  subset Name of Str where * ~~ /^<[A..Z]>**2 <[0..9]>**3$/;
+  has Name $.name = self.reset-name;
+  
+  method reset-name {
+    state Promise:D $promise = start ('AA000'..'ZZ999').pick: *;
+    state Bool:D %record{Name:D};
+    state Int:D $i = 0;
+  
+    if $promise.status ~~ 'Kept' {
+      ($!name = $promise.result[$i++]) or die 'All names used.';
+    } else {
+      $!name = ('A'..'Z').roll(2).join ~ (^10).roll(3).join;
+    }
+    self.reset-name if %record{$!name}:exists;
+    %record{$!name} = True;
+    return $!name;
+  }

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

@@ -26,14 +26,18 @@ srand 1;
 my $robot = ::($exercise).?new;
 my Str $name = $robot.?name;
 like $name, /^^<[A..Z]>**2 <[0..9]>**3$$/, 'Name matches schema';
+
 srand 2;
 is $robot.?name, $name, 'Name is persistent';
 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';

data/tracks/perl6/exercises/scrabble-score/example.yaml

@@ -4,3 +4,24 @@ plan: 13
 imports: '&score'
 tests: |
   is .<input>.&score, |.<expected description> for @($c-data<cases>);
+
+unit: module
+example: |
+  sub score (Str:D $word --> Int:D) is export {
+    my $score = 0;
+    for $word.lc.split('',:skip-empty) -> $letter {
+      given $letter {
+        when * ~~ /<[aeioulnrst]>/ { $score += 1  }
+        when * ~~ /<[dg]>/         { $score += 2  }
+        when * ~~ /<[bcmp]>/       { $score += 3  }
+        when * ~~ /<[fhvwy]>/      { $score += 4  }
+        when * ~~ /k/              { $score += 5  }
+        when * ~~ /<[jx]>/         { $score += 8  }
+        when * ~~ /<[qz]>/         { $score += 10 }
+      }
+    }
+    return $score;
+  }
+stub: |
+  sub score ($word) is export {
+  }

data/tracks/perl6/exercises/space-age/example.yaml

@@ -4,3 +4,55 @@ plan: 10
 imports: Mercury Venus Earth Mars Jupiter Saturn Uranus Neptune
 tests: |
   is (age-on ::(.<planet>): .<seconds>), |.<expected description> for @($c-data<cases>);
+
+unit: module
+example: |
+  role Planet {
+    method age-on ($seconds) {
+      ($seconds / self.orbital-period).round(0.01);
+    }
+  }
+  
+  class Earth does Planet is export {
+    my $.orbital-period = 31557600;
+  }
+  
+  my %planets = (
+    :Mercury(0.2408467),
+    :Venus(0.61519726),
+    :Mars(1.8808158),
+    :Jupiter(11.862615),
+    :Saturn(29.447498),
+    :Uranus(84.016846),
+    :Neptune(164.79132),
+  );
+  for %planets.kv -> $planet, $relative {
+    use MONKEY-SEE-NO-EVAL;
+    OUR::EXPORT::ALL::{$planet} := OUR::EXPORT::DEFAULT::{$planet} := EVAL "class $planet does Planet is export " ~
+    '{ my $.orbital-period = calculate-orbital-period $relative }';
+  }
+  
+  sub calculate-orbital-period ($relative-to-earth) {
+    Earth.orbital-period * $relative-to-earth;
+  }
+stub: |
+  role Planet {
+    method age-on ($seconds) {
+    }
+  }
+  
+  class Earth does Planet is export {
+    my $.orbital-period = 31557600; 
+  }
+  
+  =for comment
+  ---
+  Orbital periods relative to Earth:
+    Mercury: 0.2408467
+    Venus: 0.61519726
+    Mars: 1.8808158
+    Jupiter: 11.862615
+    Saturn: 29.447498
+    Uranus: 84.016846
+    Neptune: 164.79132
+  ...

data/tracks/perl6/exercises/word-count/example.yaml

@@ -4,3 +4,12 @@ plan: 12
 imports: '&count-words'
 tests: |
   is-deeply (% = .<input>.&count-words), |.<expected description> for @($c-data<cases>);
+
+unit: module
+example: |
+  sub count-words (Str:D $str --> Hash:D) is export {
+    $str.lc.comb(/ <alnum>+ (\'<alnum>+)? /).Bag.hash
+  }
+stub: |
+  sub count-words ($str) is export {
+  }

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

@@ -10,3 +10,23 @@ tests: |
       is .<input>.&answer, |.<expected description>;
     }
   }
+
+unit: module
+example: |
+  sub answer ($q is copy) is export { 
+    given $q {
+      s:s:g/^What is|\?$//;
+      s:g/plus/+/;
+      s:g/minus/−/;
+      loop {
+        last unless
+          s:s/(.*) multiplied by/($0)×/
+          or s:s/(.*) divided by/($0)÷/;
+      }
+    }
+    use MONKEY-SEE-NO-EVAL;
+    EVAL $q or fail;
+  }
+stub: |
+  sub answer ($question) is export { 
+  }

data/tracks/perl6/templates/module.mustache

@@ -0,0 +1,4 @@
+{{#unit_comment}}{{&unit_comment}}
+{{/unit_comment}}unit {{&unit}} {{&exercise}}:ver<{{&version}}>;{{#module_file}}
+
+{{&module_file}}{{/module_file}}

data/tracks/perl6/templates/test.mustache

@@ -34,7 +34,8 @@ subtest 'Class methods', {
 }
 #`{{/methods}}#`{{#cdata}}
 my $c-data;#`{{/cdata}}
-#`{{&tests}}#`{{#cdata}}#`{{#cdata_test_comment}}
+#`{{&tests}}
+#`{{#cdata}}#`{{#cdata_test_comment}}
 #`[#`{{&cdata_test_comment}}]#`{{/cdata_test_comment}}
 if %*ENV<EXERCISM> && (my $c-data-file =
   "$dir/../../x-common/exercises/{$dir.IO.resolve.basename}/canonical-data.json".IO.resolve) ~~ :f

data/tracks/plsql/config.json

@@ -18,52 +18,72 @@
     {
       "difficulty": 1,
       "slug": "hamming",
-      "topics": []
+      "topics": [
+
+      ]
     },
     {
       "difficulty": 1,
       "slug": "gigasecond",
-      "topics": []
+      "topics": [
+
+      ]
     },
     {
       "difficulty": 1,
       "slug": "rna-transcription",
-      "topics": []
+      "topics": [
+
+      ]
     },
     {
       "difficulty": 1,
       "slug": "raindrops",
-      "topics": []
+      "topics": [
+
+      ]
     },
     {
       "difficulty": 1,
       "slug": "difference-of-squares",
-      "topics": []
+      "topics": [
+
+      ]
     },
     {
       "difficulty": 1,
       "slug": "roman-numerals",
-      "topics": []
+      "topics": [
+
+      ]
     },
     {
       "difficulty": 1,
       "slug": "nth-prime",
-      "topics": []
+      "topics": [
+
+      ]
     },
     {
       "difficulty": 1,
       "slug": "leap",
-      "topics": []
+      "topics": [
+
+      ]
     },
     {
       "difficulty": 1,
       "slug": "grains",
-      "topics": []
+      "topics": [
+
+      ]
     },
     {
       "difficulty": 1,
       "slug": "binary",
-      "topics": []
+      "topics": [
+
+      ]
     }
   ]
 }