trackler 2.2.1.53 → 2.2.1.54

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

@@ -2,7 +2,7 @@ exercise: Bob
 version: 1
 plan: 28
 methods: hey
-tests: |
+tests: |-
   # Go through the cases and check that Bob gives us the correct responses.
   is ::($exercise).?hey(.<input>), |.<expected description> for @($c-data<cases>);
 
@@ -17,12 +17,12 @@ methods_comment: "Check that the class 'Bob' can use all of the methods\nneeded
 exercism_comment: "Don't worry about the stuff below here for your exercise.\nThis is for Exercism folks to check that everything is in order."
 
 unit: class
-unit_comment: |
+unit_comment: |-
   #`[
     Declare class 'Bob' with version and unit-scope the class
     i.e. everything in this file is part of 'Bob'.
   ]
-example: |
+example: |-
   method hey ($msg) {
     given $msg.trim {
       when !*                        { 'Fine. Be that way!' }
@@ -31,7 +31,7 @@ example: |
       default                        { 'Whatever.'          }
     }
   }
-stub: |
+stub: |-
   method hey ($msg) {
     #`[
       Remove the comments and write some code here to pass the test suite.

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

@@ -2,7 +2,7 @@ exercise: Clock
 version: 1
 methods: time add-minutes
 plan: 54
-tests: |
+tests: |-
   for @($c-data<cases>) {
     for @(.<cases>) -> $case {
       given $case<property> {
@@ -23,22 +23,22 @@ tests: |
       }
     }
   }
-  
+
   todo 'optional test' unless %*ENV<EXERCISM>;
   is ::($exercise).new(:0hour,:0minute).?add-minutes(65).?time, '01:05', 'add-minutes method can be chained';
 
 unit: class
-example: |
+example: |-
   has Int:D $.hour = 0;
   has Int:D $.minute = 0;
-  
+
   method time {
     sprintf '%02d:%02d', ($!hour + $!minute div 60) % 24, $!minute % 60;
   }
-  
+
   method add-minutes (Int:D $min) {
     $!minute += $min and return self;
   }
-stub: |
+stub: |-
   has $.hour;
   has $.minute;

data/tracks/perl6/exercises/flatten-array/example.yaml

@@ -2,15 +2,15 @@ exercise: FlattenArray
 version: 1
 plan: 8
 imports: '&flatten-array'
-tests: |
+tests: |-
   is-deeply flatten-array(.<input>), |.<expected description> for @($c-data<cases>);
 
 unit: module
-example: |
+example: |-
   sub flatten-array(@input --> Array) is export {
     @input.&denest;
     return my @result;
-  
+
     sub denest(@array) {
       for @array {
         .&denest when Array;
@@ -18,6 +18,6 @@ example: |
       }
     }
   }
-stub: |
+stub: |-
   sub flatten-array(@input) is export {
   }

data/tracks/perl6/exercises/grade-school/example.yaml

@@ -2,7 +2,7 @@ exercise: GradeSchool
 version: 1
 plan: 10
 imports: Roster
-tests: |
+tests: |-
   subtest "Roster class methods", {
     plan 3;
     ok ::('Roster').can($_), $_ for <add-student list-grade list-all>;
@@ -23,23 +23,23 @@ tests: |
   is $roster.?list-all, ('Grade 1', <Anna Barb Charlie>, 'Grade 2', <Alex Jim Zoe>, 'Grade 3', <Dick Harry Tom>), 'List all';
 
 unit: module
-example: |
+example: |-
   class Roster is export {
     has %!roster;
-  
+
     method add-student (Str:D :$name!, Int:D :$grade!) {
       %!roster.append($grade, $name);
     }
-  
+
     method list-grade (Int:D $grade --> Seq:D) {
       %!roster{$grade}.sort;
     }
-  
+
     method list-all {
       my @list.append("Grade $_", %!roster{$_}.sort) for %!roster.keys.sort;
       return @list;
     }
   }
-stub: |
+stub: |-
   class Roster is export {
   }

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

@@ -2,7 +2,7 @@ exercise: Grains
 version: 1
 plan: 13
 imports: '&grains-on-square &total-grains'
-tests: |
+tests: |-
   for @($c-data<cases>[0]<cases>) {
     if .<expected> == -1 {
       throws-like { grains-on-square(.<input>) }, Exception, .<description>;
@@ -13,12 +13,12 @@ tests: |
   is total-grains, |$c-data<cases>[1]<expected description>;
 
 unit: module
-example: |
+example: |-
   sub grains-on-square ($number) is export {
     die if $number < 1 or $number > 64;
     2**($number-1);
   }
-  
+
   sub total-grains is export {
     my Int $total;
     for  1..64 { $total += grains-on-square($_) }

data/tracks/perl6/exercises/hello-world/example.yaml

@@ -2,7 +2,7 @@ exercise: HelloWorld
 version: 2
 plan: 3
 imports: '&hello'
-tests: |
+tests: |-
   # Go through the cases and check that &hello gives us the correct response.
   is hello, |.<expected description> for @($c-data<cases>);
 
@@ -17,21 +17,21 @@ imports_comment: Import '&hello' from 'HelloWorld'
 exercism_comment: "Don't worry about the stuff below here for your exercise.\nThis is for Exercism folks to check that everything is in order."
 
 unit: module
-unit_comment: |
+unit_comment: |-
   #`(
     This is a 'stub' file. It's a little start on your solution.
     It is not a complete solution though; you will have to write some code.
-  
+
     The ':ver<>' adverb defines the version of a module or class.
     The version is checked in the test suite to ensure the exercise
     and test suite line up. If the test is updated, it will indicate
     to others who test your code that some tests may no longer pass.
   )
-example: |
+example: |-
   sub hello is export {
     'Hello, World!'
   }
-stub: |
+stub: |-
   sub hello is export {
     # Write your solution to pass the test suite here.
     # Be sure to remove all stock comments once you are done!

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

@@ -2,20 +2,20 @@ exercise: Leap
 version: 2
 plan: 6
 imports: '&is-leap-year'
-tests: |
+tests: |-
   is is-leap-year(.<input>), |.<expected description> for @($c-data<cases>);
 
 unit: module
-example: |
+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: |
+stub: |-
   sub is-leap-year ($year) is export {
   }

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

@@ -4,7 +4,7 @@ plan: 7
 modules:
   - use: JSON::Fast
 methods: 'push-list pop-list shift-list unshift-list'
-tests: |
+tests: |-
   my $cases = from-json $=pod.pop.contents;
   for $cases.values -> $case {
     subtest $case.<name>, sub {
@@ -22,7 +22,7 @@ tests: |
       }
     }
   }
-  
+
   =head2 Test Data
   =begin code
   [
@@ -81,16 +81,16 @@ tests: |
   =end code
 
 unit: class
-example: |
+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 ) {
@@ -100,7 +100,7 @@ example: |
           $!first = $!last = $next;
       }
   }
-  
+
   method unshift-list($value) {
       my $next = ListNode.new( value => $value, next => $!first );
       if ( $!first ) {
@@ -110,23 +110,23 @@ example: |
           $!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/luhn/example.yaml

@@ -2,11 +2,11 @@ exercise: Luhn
 version: 1
 plan: 15
 imports: '&is-luhn-valid'
-tests: |
+tests: |-
   is .<input>.&is-luhn-valid, |.<expected description> for @($c-data<cases>);
 
 unit: module
-example: |
+example: |-
   sub is-luhn-valid ($input is copy) is export {
     $input ~~ s:g/\s+//;
     return False if $input.chars < 2 || $input ~~ /\D/;
@@ -20,6 +20,6 @@ example: |
     }
     return ($sum %% 10).so;
   }
-stub: |
+stub: |-
   sub is-luhn-valid ($input) is export {
   }

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

@@ -2,7 +2,7 @@ exercise: Phone
 version: 3
 plan: 14
 imports: '&clean-number'
-tests: |
+tests: |-
   for @($c-data<cases>[0]<cases>) {
     if .<expected> {
       is clean-number(.<phrase>), |.<expected description>;
@@ -12,11 +12,11 @@ tests: |
   }
 
 unit: module
-example: |
+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: |
+stub: |-
   sub clean-number ($number) is export {
   }

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

@@ -2,7 +2,7 @@ exercise: Raindrops
 version: 1
 plan: 20
 imports: '&convert'
-tests: |
+tests: |-
   for @($c-data<cases>) {
     subtest {
       plan 2;
@@ -12,7 +12,7 @@ tests: |
   }
 
 unit: module
-example: |
+example: |-
   sub convert (Int:D $num --> Str:D) is export {
     my $str = '';
     given $num {
@@ -22,6 +22,6 @@ example: |
     }
     return $str ?? $str !! $num.Str;
   }
-stub: |
+stub: |-
   sub convert ($num) is export {
   }

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

@@ -2,7 +2,7 @@ exercise: RNA
 version: 1
 plan: 10
 imports: '&to-rna'
-tests: |
+tests: |-
   for @($c-data<cases>) {
     if .<expected> {
       is .<dna>.&to-rna, |.<expected description>;
@@ -12,11 +12,11 @@ tests: |
   }
 
 unit: module
-example: |
+example: |-
   sub to-rna ($dna) is export {
     fail if $dna ~~ /<-[AGCT]>/;
     $dna.trans(<A G C T> => <U C G A>);
   }
-stub: |
+stub: |-
   sub to-rna ($dna) is export {
   }

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

@@ -2,23 +2,23 @@ exercise: Robot
 version: 1
 methods: name reset-name
 plan: 8
-tests: |
+tests: |-
   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';
@@ -29,15 +29,15 @@ tests: |
   }
 
 unit: class
-example: |
+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 {

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

@@ -2,11 +2,11 @@ exercise: Scrabble
 version: 1
 plan: 13
 imports: '&score'
-tests: |
+tests: |-
   is .<input>.&score, |.<expected description> for @($c-data<cases>);
 
 unit: module
-example: |
+example: |-
   sub score (Str:D $word --> Int:D) is export {
     my $score = 0;
     for $word.lc.split('',:skip-empty) -> $letter {
@@ -22,6 +22,6 @@ example: |
     }
     return $score;
   }
-stub: |
+stub: |-
   sub score ($word) is export {
   }