trackler 2.0.3.4 → 2.0.3.5

data/tracks/objective-c/xcodeProject/ObjectiveC.xcodeproj/project.pbxproj

@@ -65,6 +65,8 @@
 		E94ACA151D41763800D56CC2 /* AllYourBaseTest.m in Sources */ = {isa = PBXBuildFile; fileRef = E94ACA141D41763800D56CC2 /* AllYourBaseTest.m */; };
 		E951B6B71D4294E6009EB5B6 /* AllergiesExample.m in Sources */ = {isa = PBXBuildFile; fileRef = E951B6B61D4294E6009EB5B6 /* AllergiesExample.m */; };
 		E951B6B91D429550009EB5B6 /* AllergiesTest.m in Sources */ = {isa = PBXBuildFile; fileRef = E951B6B81D429550009EB5B6 /* AllergiesTest.m */; };
+		E96993981DF60E1E009EA223 /* TransposeExample.m in Sources */ = {isa = PBXBuildFile; fileRef = E96993971DF60E1E009EA223 /* TransposeExample.m */; };
+		E969939A1DF60E5F009EA223 /* TransposeTest.m in Sources */ = {isa = PBXBuildFile; fileRef = E96993991DF60E5F009EA223 /* TransposeTest.m */; };
 		E99D1D811D5533BF0006A303 /* SumOfMultiplesExample.m in Sources */ = {isa = PBXBuildFile; fileRef = E99D1D801D5533BF0006A303 /* SumOfMultiplesExample.m */; };
 		E99D1D831D5533D80006A303 /* SumOfMultiplesTest.m in Sources */ = {isa = PBXBuildFile; fileRef = E99D1D821D5533D80006A303 /* SumOfMultiplesTest.m */; };
 		E9A7B2F71DA5AC37009056B6 /* LargestSeriesProductExample.m in Sources */ = {isa = PBXBuildFile; fileRef = E9A7B2F61DA5AC37009056B6 /* LargestSeriesProductExample.m */; };
@@ -150,6 +152,9 @@
 		E951B6B51D4294E6009EB5B6 /* AllergiesExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = AllergiesExample.h; path = ../../exercises/allergies/AllergiesExample.h; sourceTree = "<group>"; };
 		E951B6B61D4294E6009EB5B6 /* AllergiesExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = AllergiesExample.m; path = ../../exercises/allergies/AllergiesExample.m; sourceTree = "<group>"; };
 		E951B6B81D429550009EB5B6 /* AllergiesTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = AllergiesTest.m; path = ../../exercises/allergies/AllergiesTest.m; sourceTree = "<group>"; };
+		E96993961DF60E1E009EA223 /* TransposeExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = TransposeExample.h; path = ../../exercises/transpose/TransposeExample.h; sourceTree = "<group>"; };
+		E96993971DF60E1E009EA223 /* TransposeExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = TransposeExample.m; path = ../../exercises/transpose/TransposeExample.m; sourceTree = "<group>"; };
+		E96993991DF60E5F009EA223 /* TransposeTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = TransposeTest.m; path = ../../exercises/transpose/TransposeTest.m; sourceTree = "<group>"; };
 		E99D1D7F1D5533BF0006A303 /* SumOfMultiplesExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = SumOfMultiplesExample.h; path = "../../exercises/sum-of-multiples/SumOfMultiplesExample.h"; sourceTree = "<group>"; };
 		E99D1D801D5533BF0006A303 /* SumOfMultiplesExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = SumOfMultiplesExample.m; path = "../../exercises/sum-of-multiples/SumOfMultiplesExample.m"; sourceTree = "<group>"; };
 		E99D1D821D5533D80006A303 /* SumOfMultiplesTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = SumOfMultiplesTest.m; path = "../../exercises/sum-of-multiples/SumOfMultiplesTest.m"; sourceTree = "<group>"; };
@@ -214,6 +219,7 @@
 				E9C1C0201D9D98B80015E86E /* SecretHandshake */,
 				E9E8B6F61D519E340012F12C /* SpaceAge */,
 				E99D1D7B1D5532C50006A303 /* SumOfMultiples */,
+				E96993951DF60DF1009EA223 /* Transpose */,
 				E947A4DB1D81FDDA00633720 /* Triangle */,
 				E9E8B6F71D519E3A0012F12C /* WordCount */,
 				1E50BD001CB465C500FC128D /* Info.plist */,
@@ -307,6 +313,16 @@
 			name = Triangle;
 			sourceTree = "<group>";
 		};
+		E96993951DF60DF1009EA223 /* Transpose */ = {
+			isa = PBXGroup;
+			children = (
+				E96993961DF60E1E009EA223 /* TransposeExample.h */,
+				E96993971DF60E1E009EA223 /* TransposeExample.m */,
+				E96993991DF60E5F009EA223 /* TransposeTest.m */,
+			);
+			name = Transpose;
+			sourceTree = "<group>";
+		};
 		E99D1D7B1D5532C50006A303 /* SumOfMultiples */ = {
 			isa = PBXGroup;
 			children = (
@@ -617,6 +633,7 @@
 				1EFACAA31CCCAF3D006F2E69 /* AnagramExample.m in Sources */,
 				E94ACA131D41760300D56CC2 /* AllYourBaseExample.m in Sources */,
 				E94ACA151D41763800D56CC2 /* AllYourBaseTest.m in Sources */,
+				E96993981DF60E1E009EA223 /* TransposeExample.m in Sources */,
 				E9C1C0291D9DB16B0015E86E /* AcronymExample.m in Sources */,
 				1EFACAA41CCCAF3D006F2E69 /* AnagramTest.m in Sources */,
 				E907FE921D87547D00B93DA9 /* ScrabbleScoreExample.m in Sources */,
@@ -669,6 +686,7 @@
 				E9A7B2F91DA5AC55009056B6 /* LargestSeriesProductTest.m in Sources */,
 				1EFACAAF1CCCAF3D006F2E69 /* LeapExample.m in Sources */,
 				E9C1C0251D9D99620015E86E /* SecretHandshakeTest.m in Sources */,
+				E969939A1DF60E5F009EA223 /* TransposeTest.m in Sources */,
 				E99D1D831D5533D80006A303 /* SumOfMultiplesTest.m in Sources */,
 				1EFACAAA1CCCAF3D006F2E69 /* GradeSchoolTest.m in Sources */,
 			);

data/tracks/ocaml/.gitignore

@@ -3,6 +3,7 @@
 .DS_Store
 tmp
 *.native
+*.byte
 _build/
 bin/configlet
 bin/configlet.exe

data/tracks/ocaml/tools/test-generator/Makefile

@@ -1,6 +1,9 @@
 test: test_gen.native
 	@./all_tests.native
 
+test_gen.byte: all_tests.native src/*.ml interfaces/*.mli test/*.ml
+	@ocamlbuild -use-ocamlfind -tag thread -tag short_paths -cflags -strict-sequence -r -pkg core -pkg yojson -pkg ppx_deriving -pkg ppx_deriving.eq -pkg ppx_deriving.show -Is src,interfaces test_gen.byte
+
 test_gen.native: all_tests.native src/*.ml interfaces/*.mli test/*.ml
 	@ocamlbuild -use-ocamlfind -tag thread -tag short_paths -cflags -strict-sequence -r -pkg core -pkg yojson -pkg ppx_deriving -pkg ppx_deriving.eq -pkg ppx_deriving.show -Is src,interfaces test_gen.native
 

data/tracks/ocaml/tools/test-generator/src/controller.ml

@@ -23,26 +23,21 @@ let combine_files (template_files: (string * content) list) (canonical_data_file
 
 let generate_code ~(slug: string) ~(template_file: content) ~(canonical_data_file: content): (content, content) Result.t =
   let template = find_template template_file in
+  let edit_expected = edit_expected ~stringify:parameter_to_string ~slug in
+  let edit_parameters = edit_parameters ~slug in
+  let fill_in_template = fill_in_template edit_expected edit_parameters in
   let open Result.Monad_infix in
   Result.of_option template ("cannot recognize file for " ^ slug ^ " as a template") >>= fun template ->
-  parse_json_text canonical_data_file |> Result.map_error ~f:show_error >>= (function
+  parse_json_text canonical_data_file
+  |> Result.map_error ~f:show_error >>= (function
       | Single cases ->
-        Result.return (fill_in_template
-          (edit_expected ~stringify:parameter_to_string ~slug)
-          (edit_parameters ~slug)
-          template.template
-          slug
-          cases |> fill_tests template);
+        fill_in_template template.template slug cases
+        |> fill_tests template
+        |> Result.return
       | Suite tests ->
-        let x = List.map tests ~f:(fun {name;cases} ->
-            (name, fill_in_template
-               (edit_expected ~stringify:parameter_to_string ~slug)
-               (edit_parameters ~slug)
-               template.template
-               name
-               cases)
-          ) in
-        Result.return (fill_suite template x)
+        List.map tests ~f:(fun {name;cases} -> (name, fill_in_template template.template name cases))
+        |> fill_suite template
+        |> Result.return
     )
 
 let output_tests (files: (string * content * content) list) (output_folder: string): unit =

data/tracks/ocaml/tools/test-generator/src/model.ml

@@ -3,11 +3,13 @@ open Core.Std
 open Utils
 
 type parameter =
+  | Null
   | String of string
   | Float of float
   | Int of int
   | Bool of bool
   | StringList of (string list)
+  | IntList of (int list)
   | IntStringMap of ((string * int) list) [@@deriving eq, show]
 
 type 'a elements = (string * 'a) list [@@deriving eq, show]
@@ -28,10 +30,12 @@ let surround (ch: char) (s: string): string =
   Char.to_string ch ^ s ^ Char.to_string ch
 
 let parameter_to_string = function
+  | Null -> "null"
   | String s -> String.escaped s
   | Float f -> Float.to_string f
   | Int n -> Int.to_string n
   | Bool b -> Bool.to_string b
   | StringList xs -> "[" ^ String.concat ~sep:"; " (List.map ~f:(surround '\"' >> String.escaped) xs) ^ "]"
+  | IntList xs -> "[" ^ String.concat ~sep:"; " (List.map ~f:Int.to_string xs) ^ "]"
   | IntStringMap xs -> "[" ^ String.concat ~sep:"; "
                          (List.map xs ~f:(fun (k,v) -> "(\"" ^ String.escaped k ^ "\", " ^ Int.to_string v ^ ")")) ^ "]"

data/tracks/ocaml/tools/test-generator/src/parser.ml

@@ -12,12 +12,19 @@ let to_int_unsafe = function
   | `Int x -> x
   | _ -> failwith "need an int here"
 
+let to_list_safe xs = match xs with
+  | [] -> Some (StringList [])
+  | `String x :: _ -> Some (StringList (List.map xs ~f:to_string))
+  | `Int x :: _ -> Some (IntList (List.map xs ~f:to_int_unsafe))
+  | _ -> None
+
 let to_parameter (s: json) = match s with
+  | `Null -> Some (Null)
   | `String x -> Some (String x)
   | `Float x -> Some (Float x)
   | `Int x -> Some (Int x)
   | `Bool x -> Some (Bool x)
-  | `List x -> Some (StringList (List.map x ~f:to_string))
+  | `List x -> to_list_safe  x
   | `Assoc x -> Some (IntStringMap (List.map x ~f:(fun (k,v) -> (k,to_int_unsafe v))))
   | _ -> None
 

data/tracks/ocaml/tools/test-generator/src/special_cases.ml

@@ -7,6 +7,10 @@ let optional_int ~(none: int) = function
   | Int n -> "(Some " ^ Int.to_string n ^ ")"
   | x -> parameter_to_string x
 
+let optional_int_list = function
+  | IntList xs -> "(Some " ^ String.concat ~sep:"; " (List.map ~f:Int.to_string xs) ^ ")"
+  | _ -> "None"
+
 let optional_int_or_string ~(none: int) = function
   | String s -> "(Some \"" ^ s ^ "\")"
   | Int n when n = none -> "None"
@@ -27,6 +31,7 @@ let optional_strings ~(f: string -> bool) (parameters: (string * string) list):
 
 let edit_expected ~(stringify: parameter -> string) ~(slug: string) ~(value: parameter) = match slug with
   | "hamming" -> optional_int ~none:(-1) value
+  | "all-your-base" -> optional_int_list value
   | "say" -> optional_int_or_string ~none:(-1) value
   | _ -> stringify value
 

data/tracks/ocaml/tools/test-generator/templates/all-your-base/template.ml

@@ -0,0 +1,16 @@
+open Core.Std
+open OUnit2
+open All_your_bases
+
+let ae exp got _test_ctxt =
+  assert_equal exp got ~printer:Bool.to_string
+
+let tests = [
+  (* TEST
+     "$description" >::
+      ae $expected (convert_bases $input_base $input_digits $output_base);
+     END TEST *)
+]
+
+let () =
+  run_test_tt_main ("all-your-bases tests" >::: tests)

data/tracks/ocaml/tools/test-generator/test/model_test.ml

@@ -20,6 +20,8 @@ let model_tests = [
     ae "[\"a\"; \"bc\"; \"def\"]"  @@ parameter_to_string (StringList ["a"; "bc"; "def"]);
   "string list parameter with escaped characters to string" >::
     ae "[\"a\\r\"; \"b\\nc\"; \"d\\tef\"]"  @@ parameter_to_string (StringList ["a\r"; "b\nc"; "d\tef"]);
+  "int list parameter to string" >::
+    ae "[1; 2; 3; 4]"  @@ parameter_to_string (IntList [1; 2; 3; 4]);
   "int string map parameter to string" >::
     ae "[(\"one\", 1); (\"two\", 1)]"  @@ parameter_to_string (IntStringMap [("one", 1); ("two", 1)]);
   "int string map parameter to string with escaped characters in the keys" >::

data/tracks/ocaml/tools/test-generator/test/parser_test.ml

@@ -40,6 +40,14 @@ let parser_tests = [
     ae (single [{description = "d1"; parameters = []; expected = Bool true}])
       (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"expected\" : true}]}");
 
+  "parses a single element with a description and expected int list output" >::
+    ae (single [{description = "d1"; parameters = []; expected = IntList [1;2;3]}])
+      (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"expected\" : [1, 2, 3]}]}");
+
+  "parses a single element with a description and expected null output" >::
+    ae (single [{description = "d1"; parameters = []; expected = Null}])
+      (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"expected\" : null}]}");
+
   "parses a single element with an int key value pair" >::
     ae (single [{description = "d1"; parameters = [("input", Int 1996)]; expected = Bool true}])
       (parse_json_text "{\"cases\" : [{\"description\" : \"d1\", \"input\" : 1996, \"expected\" : true}]}");

data/tracks/perl5/docs/RESOURCES.md

@@ -0,0 +1,57 @@
+## Code Style and Linting
+
+If you are looking for good general advices regarding Perl coding, 
+Damian Conway's [Perl Best Practices][PBP] is a good reference. 
+
+To prettify your code, you can use the module
+[Perl-Tidy][PerlTidy].
+
+To install with [cpanminus][]:
+
+    cpanm Perl-Tidy
+
+or via the regular `cpan` install utility:
+
+    cpan Perl-Tidy
+
+And then, you can use the provided `perltidy` utility program 
+to reformat your code.
+
+    # modify file in-place and save old version as some_script.pl.bak
+    $ perltidy -b some_script.pl
+
+`perltidy` has a *lot* of configuration options to cater to every taste. They
+are documented [here][perltidyDocs].
+
+There is also [tidyview], a visual interface that allows you to 
+tweak the different options and immediately see the result.
+
+If you want to enforce coding practices, there is also
+[Perl::Critic][perlcritic]. It comes with the rules described in 
+the book *Perl Best Practices* mentioned previously, but plenty of 
+plugins exist, and it can be customized to fit any in-house coding 
+rules.
+
+To install:
+
+    # via cpanminus
+    cpanm Perl-Critic
+
+    # via the classic 'cpan' installation tool
+    cpan Perl-Critic
+
+To use:
+
+    $ perlcritic some_script.pl
+
+The tool has many, many configuration tweaks, see its
+[documentation][perlcriticdocs] for the full scoop on them.
+
+
+[PBP]:            http://shop.oreilly.com/product/9780596001735.do
+[PerlTidy]:       https://metacpan.org/release/Perl-Tidy
+[cpanminus]:      http://search.cpan.org/~miyagawa/App-cpanminus-1.7042
+[perltidyDocs]:   https://metacpan.org/pod/distribution/Perl-Tidy/docs/stylekey.pod
+[tidyview]:       https://sourceforge.net/projects/tidyview/
+[perlcritic]:     https://metacpan.org/release/Perl-Critic
+[perlcriticdocs]: https://metacpan.org/pod/distribution/Perl-Critic/bin/perlcritic

data/tracks/perl5/exercises/hamming/Example.pm

@@ -3,10 +3,17 @@ package Example;
 use strict;
 use warnings;
 
+use Carp;
+
 sub compute {
     my ($strand_a, $strand_b) = @_;
+
+    croak "DNA strands must be of equal length"
+        unless length $strand_a == length $strand_b;
+
     my $distance = $strand_a ^ $strand_b;
     $distance =~ s/\0//g;
+
     return (length $distance) - abs(length($strand_a) - length($strand_b));
 }
 

data/tracks/perl5/exercises/hamming/hamming.t

@@ -10,19 +10,32 @@ use lib $dir;
 
 my $module = $ENV{EXERCISM} ? 'Example' : 'Hamming';
 
-plan tests => 11;
+plan tests => 12;
 
 ok -e "${dir}${module}.pm", "Missing $module.pm" or BAIL_OUT "You need to create file: $module.pm";
 eval "use $module";
 ok !$@, "Cannot load $module" or BAIL_OUT "Cannot load $module. Does it compile? Does it end with 1;?";
 can_ok $module, 'compute' or BAIL_OUT "Missing package $module; or missing sub compute()?";
 
+sub dies_like(&$$) {
+    my( $code, $expected, $message ) = @_;
+    eval { $code->() };
+    like $@ => $expected, $message;
+}
+
 my $sub = \&{"$module" . "::compute"}; 
 is $sub->('A', 'A'), 0, "identical strands";
+is $sub->('A', 'G'), 1, "different strands";
 is $sub->('AG', 'CT'), 2, "completely different strands";
 is $sub->('AT', 'CT'), 1, "one hamming distance";
 is $sub->('GGACG', 'GGTCG'), 1, "one hamming distance, longer strands";
-is $sub->('AAAG', 'AAA'), 0, "ignore extra length on 1st strand";
-is $sub->('AAA', 'AAAG'), 0, "ignore extra length on 2nd strand";
 is $sub->('GATACA', 'GCATAA'), 4, "4 hamming distance";
-is $sub->('GGACGGATTCTG', 'AGGACGGATTCT'), 9, "9 hamming distance"
+is $sub->('GGACGGATTCTG', 'AGGACGGATTCT'), 9, "9 hamming distance";
+
+dies_like { $sub->('AAAG', 'AAA') } 
+    qr/DNA strands must be of equal length/, 
+    "extra length on 1st strand";
+
+dies_like { $sub->('AAA', 'AAAG') } 
+    qr/DNA strands must be of equal length/, 
+    "extra length on 2nd strand";

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

@@ -11,10 +11,10 @@ use lib $dir;
 my $module = $ENV{EXERCISM} ? 'Example' : 'DNA';
 
 my @cases = (
-   ['C', 'G',  'cytidine unchanged'],
-   ['G', 'C',  'guanosine unchanged'],
-   ['T', 'A',  'adenosine unchanged'],
-   ['A', 'U',  'thymidine to uracil'],
+   ['C', 'G',  'cytosine unchanged'],
+   ['G', 'C',  'guanine unchanged'],
+   ['T', 'A',  'adenine unchanged'],
+   ['A', 'U',  'thymine to uracil'],
    ['ACGTGGTCTTAA', 'UGCACCAGAAUU', 'transcribes all occurences'],
 );
 

data/tracks/perl6/.gitignore

@@ -1,2 +1,4 @@
 bin/configlet
 bin/configlet.exe
+# dir created when a Perl 6 module is used
+.precomp

data/tracks/perl6/config.json

@@ -61,6 +61,11 @@
       "slug": "accumulate",
       "topics": []
     },
+    {
+      "difficulty": 1,
+      "slug": "phone-number",
+      "topics": []
+    },
     {
       "difficulty": 1,
       "slug": "rna-transcription",

data/tracks/perl6/exercises/phone-number/Example.pm

@@ -0,0 +1,30 @@
+use v6;
+
+class X::Phone::Invalid is Exception {
+  has $.payload;
+  method message {"'$!payload' is not valid."}
+}
+
+class Phone {
+  has $.number;
+
+  method new (:$number!) {
+    my $validated = $number;
+    $validated ~~ s:g/<:!Decimal_Number>//;
+    $validated ~~ /^ 1? (\d ** 10) $/ ?? ($validated = ~$0) !! X::Phone::Invalid.new(:payload«$number»).throw;
+    self.bless(:number«$validated»);
+  }
+
+  method area-code {
+    $!number ~~ /\d**3/ and return ~$/;
+  }
+
+  method pretty {
+    $!number ~~ /
+      $<area-code> = \d**3
+      $<central-office-code> = \d**3
+      $<station-number> = \d**4
+    / and return "($<area-code>) $<central-office-code>-$<station-number>";
+  }
+}
+

data/tracks/perl6/exercises/phone-number/cases.json

@@ -0,0 +1,47 @@
+{
+  "valid": [
+    {
+      "input": 1234567890,
+      "number": "1234567890",
+      "area-code": "123",
+      "pretty": "(123) 456-7890",
+      "test": "10 digit integer"
+    },
+    {
+      "input": "+1 (234) 555-6789",
+      "number": "2345556789",
+      "area-code": "234",
+      "pretty": "(234) 555-6789",
+      "test": "11 digit formatted number"
+    },
+    {
+      "input": "1.379.555.2468",
+      "number": "3795552468",
+      "area-code": "379",
+      "pretty": "(379) 555-2468",
+      "test": "11 digit number containing separators"
+    }
+  ],
+  "invalid": [
+    {
+      "input": "",
+      "test": "empty input"
+    },
+    {
+      "input": "13579",
+      "test": "5 digit number"
+    },
+    {
+      "input": "123456789011",
+      "test": "12 digit number"
+    },
+    {
+      "input": "+2 (468) 555-1379",
+      "test": "11 digit number not beginning with 1"
+    },
+    {
+      "input": "phone number",
+      "test": "not a number"
+    }
+  ]
+}