trackler 2.1.0.48 → 2.1.0.49

data/tracks/kotlin/exercises/rna-transcription/src/test/kotlin/RnaTranscriptionTest.kt

@@ -1,7 +1,10 @@
-import org.junit.Assert;
 import org.junit.Test
-import org.junit.Ignore;
+import org.junit.Ignore
+import kotlin.test.assertEquals
 
+/*
+ * version: 1.0.1
+ */
 class RnaTranscriptionTest {
 
     /*
@@ -13,39 +16,33 @@ class RnaTranscriptionTest {
 
      */
 
-
-    @Test
-    fun emptyDnaIsEmptyRna() {
-        Assert.assertEquals("", transcribeToRna(""))
-    }
-
-    @Ignore
     @Test
-    fun cytosineIsGuanine() {
-        Assert.assertEquals("G", transcribeToRna("C"))
+    fun cytosineComplementIsGuanine() {
+        assertEquals("G", transcribeToRna("C"))
     }
 
     @Ignore
     @Test
-    fun guanineIsCytosine() {
-        Assert.assertEquals("C", transcribeToRna("G"))
+    fun guanineComplementIsCytosine() {
+        assertEquals("C", transcribeToRna("G"))
     }
 
     @Ignore
     @Test
-    fun thymineIsAdenine() {
-        Assert.assertEquals("A", transcribeToRna("T"))
+    fun thymineComplementIsAdenine() {
+        assertEquals("A", transcribeToRna("T"))
     }
 
     @Ignore
     @Test
-    fun adenineIsUracil() {
-        Assert.assertEquals("U", transcribeToRna("A"))
+    fun adenineComplementIsUracil() {
+        assertEquals("U", transcribeToRna("A"))
     }
 
     @Ignore
     @Test
     fun rnaTranscription() {
-        Assert.assertEquals("UGCACCAGAAUU", transcribeToRna("ACGTGGTCTTAA"))
+        assertEquals("UGCACCAGAAUU", transcribeToRna("ACGTGGTCTTAA"))
     }
+
 }

data/tracks/kotlin/gradle/wrapper/gradle-wrapper.properties

@@ -1,6 +1,6 @@
-#Sun Jun 11 21:18:36 EDT 2017
+#Wed Jun 14 22:17:32 EDT 2017
 distributionBase=GRADLE_USER_HOME
 distributionPath=wrapper/dists
 zipStoreBase=GRADLE_USER_HOME
 zipStorePath=wrapper/dists
-distributionUrl=https\://services.gradle.org/distributions/gradle-3.5-bin.zip
+distributionUrl=https\://services.gradle.org/distributions/gradle-4.0-bin.zip

data/tracks/nasm/config.json

@@ -1,7 +1,7 @@
 {
   "slug": "nasm",
   "language": "The Netwide Assembler",
-  "repository": "https://github.com/exercism/xnasm",
+  "repository": "https://github.com/exercism/nasm",
   "checklist_issue": 4,
   "active": false,
   "deprecated": [

data/tracks/nim/README.md

@@ -1,6 +1,6 @@
-# xNim
+# Exercism Nim Track
 
-[![Build Status](https://travis-ci.org/exercism/xnim.png?branch=master)](https://travis-ci.org/exercism/xnim)
+[![Build Status](https://travis-ci.org/exercism/nim.png?branch=master)](https://travis-ci.org/exercism/nim)
 
 Exercism exercises in Nim
 

data/tracks/nim/config.json

@@ -1,7 +1,7 @@
 {
   "slug": "nim",
   "language": "Nim",
-  "repository": "https://github.com/exercism/xnim",
+  "repository": "https://github.com/exercism/nim",
   "checklist_issue": 13,
   "active": false,
   "deprecated": [

data/tracks/ocaml/exercises/all-your-base/test.ml

@@ -1,4 +1,4 @@
-(* Test/exercise version: "1.0.0" *)
+(* Test/exercise version: "1.1.0" *)
 
 open Core
 open OUnit2
@@ -35,21 +35,21 @@ let tests = [
   "multiple zeros" >::
     ae (Some [0]) (convert_bases ~from:10 ~digits:[0; 0; 0] ~target:2);
   "leading zeros" >::
-    ae (Some [4; 2]) (convert_bases ~from:7 ~digits:[0; 6; 0] ~target:10);
+    ae (Some [4;2]) (convert_bases ~from:7 ~digits:[0; 6; 0] ~target:10);
+  "first base is one" >::
+    ae None (convert_bases ~from:1 ~digits:[] ~target:10);
+  "first base is zero" >::
+    ae None (convert_bases ~from:0 ~digits:[] ~target:10);
+  "first base is negative" >::
+    ae None (convert_bases ~from:(-2) ~digits:[1] ~target:10);
   "negative digit" >::
     ae None (convert_bases ~from:2 ~digits:[1; -1; 1; 0; 1; 0] ~target:10);
   "invalid positive digit" >::
     ae None (convert_bases ~from:2 ~digits:[1; 2; 1; 0; 1; 0] ~target:10);
-  "first base is one" >::
-    ae None (convert_bases ~from:1 ~digits:[] ~target:10);
   "second base is one" >::
     ae None (convert_bases ~from:2 ~digits:[1; 0; 1; 0; 1; 0] ~target:1);
-  "first base is zero" >::
-    ae None (convert_bases ~from:0 ~digits:[] ~target:10);
   "second base is zero" >::
     ae None (convert_bases ~from:10 ~digits:[7] ~target:0);
-  "first base is negative" >::
-    ae None (convert_bases ~from:(-2) ~digits:[1] ~target:10);
   "second base is negative" >::
     ae None (convert_bases ~from:2 ~digits:[1] ~target:(-7));
   "both bases are negative" >::

data/tracks/ocaml/exercises/bowling/test.ml

@@ -1,4 +1,4 @@
-(* Test/exercise version: "1.0.0" *)
+(* Test/exercise version: "1.0.1" *)
 
 open! Core
 open OUnit2
@@ -6,9 +6,9 @@ open Bowling
 
 type game = Bowling.t
 
-let to_ok (r: (t, string) Result.t): t = match r with
-| Ok g -> g
-| Error e -> failwith ("should be OK but got Error " ^ e)
+let to_ok = function
+| Ok x -> x
+| Error e -> failwith @@ "should be OK but got Error " ^ e
 
 let set_previous_frames (frames : int list): game =
   List.fold frames ~init:new_game ~f:(fun g f -> roll f g |> to_ok)
@@ -21,8 +21,7 @@ let assert_score exp game = assert_equal ~printer:score_printer exp (score game)
 let roll_printer = function
 | Ok _ -> "Ok <some game>"
 | Error e -> e
-let assert_roll (exp: (t, string) Result.t) (frame: int) (game: game) = 
-  assert_equal ~printer:roll_printer exp (roll frame game)
+let assert_roll exp frame game = assert_equal ~printer:roll_printer exp (roll frame game)
 
 let tests = [
    "should be able to score a game with all zeros" >:: (fun _ ->
@@ -81,23 +80,23 @@ let tests = [
       let g = set_previous_frames [10; 10; 10; 10; 10; 10; 10; 10; 10; 10; 10; 10] in
       assert_score (Ok 300) g
    );
-   "rolls can not score negative points" >:: (fun _ ->
+   "rolls cannot score negative points" >:: (fun _ ->
       let g = set_previous_frames [] in
       assert_roll (Error "Negative roll is invalid") (-1) g
    );
-   "a roll can not score more than 10 points" >:: (fun _ ->
+   "a roll cannot score more than 10 points" >:: (fun _ ->
       let g = set_previous_frames [] in
       assert_roll (Error "Pin count exceeds pins on the lane") 11 g
    );
-   "two rolls in a frame can not score more than 10 points" >:: (fun _ ->
+   "two rolls in a frame cannot score more than 10 points" >:: (fun _ ->
       let g = set_previous_frames [5] in
       assert_roll (Error "Pin count exceeds pins on the lane") 6 g
    );
-   "bonus roll after a strike in the last frame can not score more than 10 points" >:: (fun _ ->
+   "bonus roll after a strike in the last frame cannot score more than 10 points" >:: (fun _ ->
       let g = set_previous_frames [0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 10] in
       assert_roll (Error "Pin count exceeds pins on the lane") 11 g
    );
-   "two bonus rolls after a strike in the last frame can not score more than 10 points" >:: (fun _ ->
+   "two bonus rolls after a strike in the last frame cannot score more than 10 points" >:: (fun _ ->
       let g = set_previous_frames [0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 10; 5] in
       assert_roll (Error "Pin count exceeds pins on the lane") 6 g
    );
@@ -105,19 +104,19 @@ let tests = [
       let g = set_previous_frames [0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 10; 10; 6] in
       assert_score (Ok 26) g
    );
-   "the second bonus rolls after a strike in the last frame can not be a strike if the first one is not a strike" >:: (fun _ ->
+   "the second bonus rolls after a strike in the last frame cannot be a strike if the first one is not a strike" >:: (fun _ ->
       let g = set_previous_frames [0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 10; 6] in
       assert_roll (Error "Pin count exceeds pins on the lane") 10 g
    );
-   "second bonus roll after a strike in the last frame can not score than 10 points" >:: (fun _ ->
+   "second bonus roll after a strike in the last frame cannot score more than 10 points" >:: (fun _ ->
       let g = set_previous_frames [0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 10; 10] in
       assert_roll (Error "Pin count exceeds pins on the lane") 11 g
    );
-   "an unstarted game can not be scored" >:: (fun _ ->
+   "an unstarted game cannot be scored" >:: (fun _ ->
       let g = set_previous_frames [] in
       assert_score (Error "Score cannot be taken until the end of the game") g
    );
-   "an incomplete game can not be scored" >:: (fun _ ->
+   "an incomplete game cannot be scored" >:: (fun _ ->
       let g = set_previous_frames [0; 0] in
       assert_score (Error "Score cannot be taken until the end of the game") g
    );

data/tracks/ocaml/exercises/hamming/test.ml

@@ -1,4 +1,4 @@
-(* Test/exercise version: "1.0.0" *)
+(* Test/exercise version: "1.1.0" *)
 
 open Core
 open OUnit2
@@ -22,6 +22,8 @@ let dna_of_string s =
 let hamdist a b = Hamming.hamming_distance (dna_of_string a) (dna_of_string b)
 
 let tests = [
+   "empty strands" >::
+      ae (Some 0) (hamdist "" "");
    "identical strands" >::
       ae (Some 0) (hamdist "A" "A");
    "long identical strands" >::
@@ -46,8 +48,6 @@ let tests = [
       ae (Some 4) (hamdist "GATACA" "GCATAA");
    "large distance in off-by-one strand" >::
       ae (Some 9) (hamdist "GGACGGATTCTG" "AGGACGGATTCT");
-   "empty strands" >::
-      ae (Some 0) (hamdist "" "");
    "disallow first strand longer" >::
       ae None (hamdist "AATG" "AAA");
    "disallow second strand longer" >::

data/tracks/ocaml/tools/test-generator/templates/ocaml/bowling/test.ml

@@ -6,7 +6,7 @@ type game = Bowling.t
 
 let to_ok = function
 | Ok x -> x
-| Error _ -> failwith "should be OK"
+| Error e -> failwith @@ "should be OK but got Error " ^ e
 
 let set_previous_frames (frames : int list): game =
   List.fold frames ~init:new_game ~f:(fun g f -> roll f g |> to_ok)

data/tracks/perl5/.travis.yml

@@ -8,8 +8,8 @@ perl:
   - '5.18'
   - '5.16'
   - '5.14'
-  - '5.12'
 before_script:
+  - git clone https://github.com/exercism/problem-specifications.git
   - bin/fetch-configlet
 script:
   - bin/configlet .

data/tracks/perl5/README.md

@@ -40,7 +40,7 @@ then they will expect a file called Example.pm
 
 ## Contributing Guide
 
-Please see the [contributing guide](https://github.com/exercism/x-common/blob/master/CONTRIBUTING.md)
+Please see the [contributing guide](https://github.com/exercism/problem-specifications/blob/master/CONTRIBUTING.md)
 
 ### Perl 5 icon
 

data/tracks/perl5/bin/README.md

@@ -0,0 +1,35 @@
+The `exercise-gen.pl` file can be used in the following ways:
+* From within the directory of the exercise you wish to generate a test for.
+* With arguments specifying which exercises you want to generate tests for.  
+  e.g. `./exercise-gen.pl hello-world leap`.
+* With the argument `--all` to run the generator for all exercises.  
+  i.e `./exercise-gen.pl --all`
+
+You will either need to create a symlink to or clone the
+[problem-specifications](https://github.com/exercism/problem-specifications) repository
+into the root directory of this repository.
+The generator will retrieve data from an `example.yaml` file within
+each exercise directory, and use the contained information to generate
+test files using `templates/test.mustache`, and Example.pm files using
+`templates/module.mustache`. If it finds a `canonical-data.json` file in
+`problem-specifications` for the exercise in question it will be included.
+
+Example of a yaml file:
+```yaml
+exercise: MyExercise
+version: 1
+plan: 2
+modules:
+  - use: Data::Dump
+  - use: Foo::Bar
+subs: 'my_subroutine'
+tests: |-
+  ok my_subroutine, 'Perl 5 code here';
+  pass;
+
+example: |-
+  sub my_subroutine {
+    1;
+  }
+```
+Run `cpanm --installdeps .` to install the required modules in `cpanfile`.

data/tracks/perl5/bin/cpanfile

@@ -0,0 +1,4 @@
+requires 'YAML';
+requires 'JSON::PP';
+requires 'Path::Tiny';
+requires 'Template::Mustache';

data/tracks/perl5/bin/exercise-gen.pl

@@ -0,0 +1,60 @@
+#!/usr/bin/env perl
+use feature qw(lexical_subs say);
+use YAML 'LoadFile';
+use JSON::PP 'decode_json';
+use Path::Tiny qw(:DEFAULT cwd);
+use Template::Mustache 'render';
+
+my $base_dir = path($0)->realpath->parent->parent;
+my @exercises;
+
+if (@ARGV) {
+  if ($ARGV[0] eq '--all') {
+    push @exercises, $_->basename foreach $base_dir->child('exercises')->children;
+  } else {
+    @exercises = @ARGV;
+  }
+} else {
+  say 'No args given; working in current directory.';
+  if ( path('example.yaml')->is_file ) {
+    push @exercises, cwd->basename;
+  } else {
+    say 'example.yaml not found; exiting.';
+    exit;
+  }
+}
+
+for my $exercise (@exercises) {
+  my $exercise_dir = $base_dir->child("exercises/$exercise");
+  my $yaml = $exercise_dir->child('example.yaml');
+  unless ($yaml->is_file) {
+    say "No example.yaml found for $exercise.";
+    next;
+  }
+  print "Generating $exercise... ";
+
+  my $data = LoadFile $yaml;
+
+  my $cdata = $base_dir->child("problem-specifications/exercises/$exercise/canonical-data.json");
+  if ($cdata->is_file) {$data->{cdata}{json} = $cdata->slurp}
+
+  my sub create_file {
+    my ($filename, $template) = @_;
+    my $file = $exercise_dir->child($filename);
+    $file->spew(Template::Mustache->render(
+      $base_dir->child("templates/$template.mustache")->slurp, $data
+    ));
+    $file->chmod(0755) if $template eq 'test';
+  }
+
+  create_file("$exercise.t", 'test');
+
+  $data->{module_file} = $data->{example};
+  create_file(qw{Example.pm module});
+
+  $data->{module_file} = $data->{stub};
+  create_file($data->{exercise}.'.pm', 'module');
+
+  say 'Generated.';
+
+}

data/tracks/perl5/config.json

@@ -12,6 +12,13 @@
 
   ],
   "exercises": [
+    {
+      "difficulty": 1,
+      "slug": "hello-world",
+      "topics": [
+
+      ]
+    },
     {
       "difficulty": 1,
       "slug": "bob",

data/tracks/perl5/docs/INSTALLATION.md

@@ -1,5 +1,25 @@
-On MS Windows use [Strawberry Perl](http://strawberryperl.com/) or [DWIM Perl](http://dwimperl.com/).
+### Windows:
+* [Strawberry Perl](http://strawberryperl.com/): A 100% Open Source Perl for
+  Windows that is exactly the same as Perl everywhere else; this includes using
+  modules from CPAN, without the need for binary packages.
+* [DWIM Perl](http://dwimperl.com/windows.html): A 100% Open Source Perl for
+  Windows, based on Strawberry Perl. It aims to include as many useful CPAN
+  modules as possible. It even comes with [Padre](http://padre.perlide.org/), the Perl IDE.
 
-On Linux, perl comes built in. Please make sure you have at least perl 5.10 using `perl -v` If not, install perl 5.18.x using [Perl brew](http://perlbrew.pl/).
+### Unix/Linux/Mac OSX:
+Perl is likely already installed. Run `perl -v` to check which version you have.
+If your version is older than v5.14.0, or you would like to try out newer versions
+of Perl 5, take a look at 'Other Options'.
 
-On Mac OSX install Xcode
+If you are using Fedora/Red Hat/CentOS, some core modules are not included with Perl.
+Use the `yum install perl-core` command to install them.
+
+### Other Options:
+* [perlbrew](https://perlbrew.pl/): A tool to manage multiple perl installations
+  in your `$HOME` directory. They are completely isolated perl universes.
+* [plenv](https://github.com/tokuhirom/plenv): Installs perls under your home
+  directory and lets you install modules locally, and allows you to switch to
+  arbitrary perl versions on your shell.
+* [ActivePerl Community Edition](https://www.activestate.com/activeperl/downloads):
+  A free, ready-to-install Perl distribution for Windows, Linux and Mac OS X, designed 
+  for community developers or open source projects that are not business- or mission-critical.

data/tracks/perl5/exercises/bob/Bob.pm

@@ -1,24 +1,11 @@
-#
-# This is a SKELETON file and has been provided to enable you to get working on the
-# first exercise more quickly.
-#
-
-use 5.006;
+# Declare package 'Bob' with version
+package Bob 2;
 use strict;
 use warnings;
 
-package Bob;
-
-our $VERSION = '1.000';
-
-use Exporter 5.57 qw(import);
-
-our @EXPORT_OK = qw(hey);
-
 sub hey {
-#
-# YOUR CODE GOES HERE
-#
+  my ($msg) = @_;
+  # Remove the comments and write some code here to pass the test suite.
 }
 
 1;