trackler 2.2.1.49 → 2.2.1.50

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

@@ -21,7 +21,7 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&clean-number>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 for @($c-data<cases>[0]<cases>) {
   if .<expected> {
     is clean-number(.<phrase>), |.<expected description>;
@@ -30,21 +30,8 @@ for @($c-data<cases>[0]<cases>) {
   }
 }
 
-unless %*ENV<EXERCISM> {
-  skip-rest 'exercism tests';
-  exit;
-}
-
-subtest 'canonical-data' => {
-  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
-    $dir.IO.resolve.basename
-  }/canonical-data.json".IO.resolve) ~~ :f ??
-    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
-    flunk 'problem-specifications file not found';
-}
-
-INIT {
-$c-data := from-json q:to/END/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "phone-number",
@@ -135,7 +122,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
 }
+
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

data/tracks/perl6/exercises/raindrops/raindrops.t

@@ -21,7 +21,7 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&convert>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 for @($c-data<cases>) {
   subtest {
     plan 2;
@@ -30,21 +30,8 @@ for @($c-data<cases>) {
   }
 }
 
-unless %*ENV<EXERCISM> {
-  skip-rest 'exercism tests';
-  exit;
-}
-
-subtest 'canonical-data' => {
-  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
-    $dir.IO.resolve.basename
-  }/canonical-data.json".IO.resolve) ~~ :f ??
-    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
-    flunk 'problem-specifications file not found';
-}
-
-INIT {
-$c-data := from-json q:to/END/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "raindrops",
@@ -161,7 +148,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
 }
+
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

data/tracks/perl6/exercises/rna-transcription/rna-transcription.t

@@ -21,7 +21,7 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&to-rna>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 for @($c-data<cases>) {
   if .<expected> {
     is .<dna>.&to-rna, |.<expected description>;
@@ -30,21 +30,8 @@ for @($c-data<cases>) {
   }
 }
 
-unless %*ENV<EXERCISM> {
-  skip-rest 'exercism tests';
-  exit;
-}
-
-subtest 'canonical-data' => {
-  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
-    $dir.IO.resolve.basename
-  }/canonical-data.json".IO.resolve) ~~ :f ??
-    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
-    flunk 'problem-specifications file not found';
-}
-
-INIT {
-$c-data := from-json q:to/END/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "rna-transcription",
@@ -113,7 +100,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
 }
+
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

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

@@ -46,6 +46,5 @@ subtest 'Randomness', {
   isnt @names, @names.sort, 'Names not ordered';
   isnt @names, @names.sort.reverse, 'Names not reverse ordered';
 }
-INIT {
-  $module = 'Example' if %*ENV<EXERCISM>;
-}
+
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

data/tracks/perl6/exercises/scrabble-score/scrabble-score.t

@@ -21,24 +21,11 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&score>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 is .<input>.&score, |.<expected description> for @($c-data<cases>);
 
-unless %*ENV<EXERCISM> {
-  skip-rest 'exercism tests';
-  exit;
-}
-
-subtest 'canonical-data' => {
-  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
-    $dir.IO.resolve.basename
-  }/canonical-data.json".IO.resolve) ~~ :f ??
-    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
-    flunk 'problem-specifications file not found';
-}
-
-INIT {
-$c-data := from-json q:to/END/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "scrabble-score",
@@ -113,7 +100,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
 }
+
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

data/tracks/perl6/exercises/space-age/space-age.t

@@ -21,24 +21,11 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <Mercury Venus Earth Mars Jupiter Saturn Uranus Neptune>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 is (age-on ::(.<planet>): .<seconds>), |.<expected description> for @($c-data<cases>);
 
-unless %*ENV<EXERCISM> {
-  skip-rest 'exercism tests';
-  exit;
-}
-
-subtest 'canonical-data' => {
-  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
-    $dir.IO.resolve.basename
-  }/canonical-data.json".IO.resolve) ~~ :f ??
-    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
-    flunk 'problem-specifications file not found';
-}
-
-INIT {
-$c-data := from-json q:to/END/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "space-age",
@@ -103,7 +90,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
 }
+
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

data/tracks/perl6/exercises/word-count/word-count.t

@@ -21,24 +21,11 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&count-words>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 is-deeply (% = .<input>.&count-words), |.<expected description> for @($c-data<cases>);
 
-unless %*ENV<EXERCISM> {
-  skip-rest 'exercism tests';
-  exit;
-}
-
-subtest 'canonical-data' => {
-  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
-    $dir.IO.resolve.basename
-  }/canonical-data.json".IO.resolve) ~~ :f ??
-    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
-    flunk 'problem-specifications file not found';
-}
-
-INIT {
-$c-data := from-json q:to/END/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "word-count",
@@ -157,7 +144,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
 }
+
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

data/tracks/perl6/exercises/wordy/wordy.t

@@ -21,7 +21,7 @@ if ::($exercise).^ver !~~ $version {
 
 require ::($module) <&answer>;
 
-my $c-data;
+my $c-data = from-json $=pod.pop.contents;
 for @($c-data<cases>) {
   if .<expected> === False {
     throws-like {.<input>.&answer}, Exception, .<description>;
@@ -30,21 +30,8 @@ for @($c-data<cases>) {
   }
 }
 
-unless %*ENV<EXERCISM> {
-  skip-rest 'exercism tests';
-  exit;
-}
-
-subtest 'canonical-data' => {
-  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
-    $dir.IO.resolve.basename
-  }/canonical-data.json".IO.resolve) ~~ :f ??
-    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
-    flunk 'problem-specifications file not found';
-}
-
-INIT {
-$c-data := from-json q:to/END/;
+=head2 Canonical Data
+=begin code
 
 {
   "exercise": "wordy",
@@ -154,7 +141,19 @@ $c-data := from-json q:to/END/;
   ]
 }
 
-END
+=end code
 
-  $module = 'Example' if %*ENV<EXERCISM>;
+unless %*ENV<EXERCISM> {
+  skip-rest 'exercism tests';
+  exit;
+}
+
+subtest 'canonical-data' => {
+  (my $c-data-file = "$dir/../../problem-specifications/exercises/{
+    $dir.IO.resolve.basename
+  }/canonical-data.json".IO.resolve) ~~ :f ??
+    is-deeply $c-data, EVAL('from-json $c-data-file.slurp'), 'match problem-specifications' !!
+    flunk 'problem-specifications file not found';
 }
+
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

data/tracks/perl6/templates/test.mustache

@@ -32,8 +32,15 @@ subtest 'Class methods', {
   ok ::($exercise).can($_), $_ for <#`{{&methods}}>;
 }
 #`{{/methods}}#`{{#cdata}}
-my $c-data;#`{{/cdata}}
+my $c-data = from-json $=pod.pop.contents;#`{{/cdata}}
 #`{{&tests}}
+#`{{#cdata}}
+
+=head2 Canonical Data
+=begin code
+
+#`{{&json}}
+=end code#`{{/cdata}}
 #`{{#exercism_comment}}
 
 #`[#`{{&exercism_comment}}]#`{{/exercism_comment}}#`{{#cdata}}
@@ -51,12 +58,4 @@ subtest 'canonical-data' => {
 }
 
 #`{{/cdata}}
-INIT {#`{{#cdata}}
-$c-data := from-json q:to/END/;
-
-#`{{&json}}
-END
-#`{{/cdata}}
-
-  $module = 'Example' if %*ENV<EXERCISM>;
-}
+INIT { $module = 'Example' if %*ENV<EXERCISM> }

data/tracks/purescript/config.json

@@ -273,6 +273,17 @@
         "arrays",
         "modulo"
       ]
+    },
+    {
+      "uuid": "8ebcfe11-0a42-e980-d120-fb3fd581e426e9e237e",
+      "slug": "rna-transcription",
+      "core": false,
+      "unlocked_by": null,
+      "difficulty": 1,
+      "topics": [
+        "maybe",
+        "strings"
+      ]
     }
   ],
   "foregone": [

data/tracks/purescript/exercises/rna-transcription/README.md

@@ -0,0 +1,25 @@
+# Rna Transcription
+
+Given a DNA strand, return its RNA complement (per RNA transcription).
+
+Both DNA and RNA strands are a sequence of nucleotides.
+
+The four nucleotides found in DNA are adenine (**A**), cytosine (**C**),
+guanine (**G**) and thymine (**T**).
+
+The four nucleotides found in RNA are adenine (**A**), cytosine (**C**),
+guanine (**G**) and uracil (**U**).
+
+Given a DNA strand, its transcribed RNA strand is formed by replacing
+each nucleotide with its complement:
+
+* `G` -> `C`
+* `C` -> `G`
+* `T` -> `A`
+* `A` -> `U`
+## Source
+
+Rosalind [http://rosalind.info/problems/rna](http://rosalind.info/problems/rna)
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.