trackler 2.1.0.24 → 2.1.0.25

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

@@ -3,6 +3,8 @@ open Core
 open Model
 open Yojson.Basic
 
+let strip_quotes s = String.drop_prefix s 1 |> Fn.flip String.drop_suffix 1
+
 let map_elements (to_str: json -> string) (parameters: (string * json) list): (string * string) list =
   List.map parameters ~f:(fun (k,j) -> (k,to_str j))
 
@@ -36,6 +38,7 @@ let optional_strings ~(f: string -> bool) (parameters: (string * json) list): (s
 let option_of_null (value: json): string = match value with
 | `Null -> "None"
 | `String s -> "(Some \"" ^ s ^ "\")"
+| `List xs as l -> "(Some " ^ (json_to_string l) ^ ")"
 | _ -> failwith "cannot handle this type"
 
 let is_empty_string (value: json): bool = match value with
@@ -68,6 +71,7 @@ let edit_expected ~(stringify: json -> string) ~(slug: string) ~(value: json) =
 | "change" -> edit_change_expected value
 | "bowling" -> edit_bowling_expected value
 | "binary-search" -> optional_int ~none:(-1) value
+| "forth" -> option_of_null value
 | _ -> stringify value
 
 let edit_say (ps: (string * json) list) =
@@ -92,15 +96,14 @@ let edit_dominoes (ps: (string * json) list): (string * string) list =
   | (k, v) -> (k, json_to_string v) in
   List.map ps ~f:edit
 
+
 let edit_space_age (ps: (string * json) list): (string * string) list =
-  let strip_quotes s = String.drop_prefix s 1 |> Fn.flip String.drop_suffix 1 in
   let edit = function
   | ("planet", v) -> ("planet", json_to_string v |> strip_quotes) 
   | (k, v) -> (k, json_to_string v) in
   List.map ps ~f:edit
   
 let edit_bowling (ps: (string * json) list): (string * string) list =
-  let strip_quotes s = String.drop_prefix s 1 |> Fn.flip String.drop_suffix 1 in
   let edit = function
   | ("property", v) -> ("property", json_to_string v |> strip_quotes) 
   | ("roll", `Int n) -> ("roll", let s = Int.to_string n in if n < 0 then ("(" ^ s ^ ")") else s)

data/tracks/ocaml/tools/test-generator/templates/forth/template.ml

@@ -0,0 +1,114 @@
+open Core
+open OUnit2
+open Forth
+
+let print_int_list_option (xs: int list option) = match xs with
+| None -> "None"
+| Some xs -> "Some [" ^ String.concat ~sep:";" (List.map ~f:Int.to_string xs) ^ "]"
+let ae exp got _test_ctxt = assert_equal ~printer:print_int_list_option exp got
+
+let (* SUITE parsing_and_numbers *)parsing_and_numbers_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let (* SUITE addition *)addition_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let (* SUITE subtraction *)subtraction_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let (* SUITE multiplication *)multiplication_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let (* SUITE division *)division_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let (* SUITE combined_arithmetic *)combined_arithmetic_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let (* SUITE dup *)dup_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let (* SUITE drop *)drop_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let (* SUITE swap *)swap_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let (* SUITE over *)over_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let (* SUITE user-defined_words *)user_defined_words_tests = [
+(* TEST
+   "$description" >::
+     ae $expected (evaluate $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let () =
+  run_test_tt_main (
+    "forth tests" >:::
+      List.concat [
+        parsing_and_numbers_tests; 
+        addition_tests; 
+        subtraction_tests; 
+        multiplication_tests; 
+        division_tests;
+        combined_arithmetic_tests; 
+        dup_tests; 
+        drop_tests;
+        swap_tests; 
+        over_tests; 
+        user_defined_words_tests
+        ]
+  )

data/tracks/perl5/LICENSE

@@ -1,6 +1,6 @@
-The MIT License (MIT)
+MIT License
 
-Copyright (c) 2014 Katrina Owen, _@kytrinyx.com
+Copyright (c) 2017 Exercism, Inc
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

data/tracks/perl6/LICENSE

@@ -1,6 +1,6 @@
-The MIT License (MIT)
+MIT License
 
-Copyright (c) 2014 Katrina Owen
+Copyright (c) 2017 Exercism, Inc
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

data/tracks/perl6/README.md

@@ -25,11 +25,6 @@ When adding a new exercise, ensure that the exercise is included in the `exercis
 Set `EXERCISM` as an environment variable (e.g. `export EXERCISM=1` in bash), and run either  `prove -re perl6`
 to run all tests in all subdirectories, or `prove -e perl6 /path/to/test.t` to run an individual test file.
 
-## License
-
-The MIT License (MIT)
-
-Copyright (c) 2014 Katrina Owen, _@kytrinyx.com
 
 ### Perl 6 icon
 The Perl 6 "Camelia" logo is owned by Larry Wall and is released under version 2.0 of the Artistic License. We are using it to identify the Perl 6 language itself, not any part of Exercism, which we believe to be admissible under fair use. The version of the logo that we are using is a pink, black and white adaptation of the logo found on <http://en.wikipedia.org/wiki/Perl_6>.

data/tracks/perl6/config.json

@@ -74,6 +74,11 @@
       "slug": "word-count",
       "topics": []
     },
+    {
+      "difficulty": 1,
+      "slug": "flatten-array",
+      "topics": []
+    },
     {
       "difficulty": 1,
       "slug": "grade-school",

data/tracks/perl6/exercises/clock/Example.pm6

@@ -3,10 +3,10 @@ unit class Clock:ver<1>;
 has Int:D $.hour = 0;
 has Int:D $.minute = 0;
 
-method time is export {
+method time {
   sprintf '%02d:%02d', ($!hour + $!minute div 60) % 24, $!minute % 60;
 }
 
-method add-minutes (Int:D $min) is export {
+method add-minutes (Int:D $min) {
   $!minute += $min and return self;
 }

data/tracks/perl6/exercises/flatten-array/Example.pm6

@@ -0,0 +1,13 @@
+unit module FlattenArray:ver<1>;
+
+sub flatten-array(@input --> Array) is export {
+  @input.&denest;
+  return my @result;
+
+  sub denest(@array) {
+    for @array {
+      .&denest when Array;
+      @result.push: $_ when Int;
+    }
+  }
+}

data/tracks/perl6/exercises/flatten-array/FlattenArray.pm6

@@ -0,0 +1,4 @@
+unit module FlattenArray:ver<1>;
+
+sub flatten-array(@input) is export {
+}

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

@@ -0,0 +1,6 @@
+exercise: FlattenArray
+version: 1
+plan: 8
+imports: '&flatten-array'
+tests: |
+  is-deeply &::('flatten-array')(.<input>), |.<expected description> for @($c-data<cases>);

data/tracks/perl6/exercises/flatten-array/flatten-array.t

@@ -0,0 +1,80 @@
+#!/usr/bin/env perl6
+use v6;
+use Test;
+use lib my $dir = $?FILE.IO.dirname;
+use JSON::Tiny;
+
+my $exercise = 'FlattenArray';
+my $version = v1;
+my $module = %*ENV<EXERCISM> ?? 'Example' !! $exercise;
+plan 8;
+
+use-ok $module or bail-out;
+require ::($module);
+
+if ::($exercise).^ver !~~ $version {
+  warn "\nExercise version mismatch. Further tests may fail!"
+    ~ "\n$exercise is $(::($exercise).^ver.gist). "
+    ~ "Test is $($version.gist).\n";
+  bail-out 'Example version must match test version.' if %*ENV<EXERCISM>;
+}
+
+require ::($module) <&flatten-array>;
+
+my $c-data;
+is-deeply &::('flatten-array')(.<input>), |.<expected description> for @($c-data<cases>);
+
+if %*ENV<EXERCISM> && (my $c-data-file =
+  "$dir/../../x-common/exercises/{$dir.IO.resolve.basename}/canonical-data.json".IO.resolve) ~~ :f
+{ is-deeply $c-data, from-json($c-data-file.slurp), 'canonical-data' } else { skip }
+
+done-testing;
+
+INIT {
+$c-data := from-json q:to/END/;
+
+{
+  "exercise": "flatten-array",
+  "version": "1.1.0",
+  "cases": [
+    {
+      "description": "no nesting",
+      "property": "flatten",
+      "input": [0, 1, 2],
+      "expected": [0, 1, 2]
+    },
+    {
+      "description": "flattens array with just integers present",
+      "property": "flatten",
+      "input": [1, [2, 3, 4, 5, 6, 7], 8],
+      "expected": [1, 2, 3, 4, 5, 6, 7, 8]
+    },
+    {
+      "description": "5 level nesting",
+      "property": "flatten",
+      "input": [0, 2, [[2, 3], 8, 100, 4, [[[50]]]], -2],
+      "expected": [0, 2, 2, 3, 8, 100, 4, 50, -2]
+    },
+    {
+      "description": "6 level nesting",
+      "property": "flatten",
+      "input": [1, [2, [[3]], [4, [[5]]], 6, 7], 8],
+      "expected": [1, 2, 3, 4, 5, 6, 7, 8]
+    },
+    {
+      "description": "6 level nest list with null values",
+      "property": "flatten",
+      "input": [0, 2, [[2, 3], 8, [[100]], null, [[null]]], -2],
+      "expected": [0, 2, 2, 3, 8, 100, -2]
+    },
+    {
+      "description": "all values in nested list are null",
+      "property": "flatten",
+      "input": [null, [[[null]]], null, null, [[null, null], null], null],
+      "expected": []
+    }
+  ]
+}
+
+END
+}

data/tracks/php/LICENSE

@@ -1,6 +1,6 @@
-The MIT License (MIT)
+MIT License
 
-Copyright (c) 2014 Katrina Owen, _@kytrinyx.com
+Copyright (c) 2017 Exercism, Inc
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

data/tracks/php/README.md

@@ -48,11 +48,6 @@ If you need command line help for run make commands
 - Follow the [PSR-2] coding style (xPHP uses a slightly [modified] version of [PSR-2]).
 - Follow the [contributing guide].
 
-## License
-
-The MIT License (MIT)
-
-Copyright (c) 2014 Katrina Owen, _@kytrinyx.com
 
 
 [PSR-2]: http://www.php-fig.org/psr/psr-2

data/tracks/powershell/.travis.yml

@@ -3,3 +3,4 @@ language: bash
 script:
 - bin/fetch-configlet
 - bin/configlet .
+sudo: false

data/tracks/python/LICENSE

@@ -1,6 +1,6 @@
-The MIT License (MIT)
+MIT License
 
-Copyright (c) 2014 Katrina Owen
+Copyright (c) 2017 Exercism, Inc
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

data/tracks/python/README.md

@@ -53,11 +53,6 @@ If you're interested, Tim Pope even has an [entire blog post](http://tbaggery.co
 
 If you're new to Git take a look at [this short guide](https://github.com/exercism/x-common/blob/master/CONTRIBUTING.md#git-basics).
 
-## License
-
-The MIT License (MIT)
-
-Copyright (c) 2014 Katrina Owen, _@kytrinyx.com
 
 ## Python icon
 The Python logo is an unregistered trademark. We are using a derived logo with the permission of the Python Software Foundation.

data/tracks/python/config.json

@@ -487,6 +487,14 @@
       "difficulty": 1,
       "topics": [
       ]
+    },
+    {
+      "slug": "protein-translation",
+      "difficulty": 3,
+      "topics": [
+        "strings",
+        "pattern matching"
+      ]
     }
   ],
   "deprecated": [

data/tracks/python/exercises/protein-translation/example.py

@@ -0,0 +1,25 @@
+CODONS = {'AUG': "Methionine", 'UUU': "Phenylalanine",
+          'UUC': "Phenylalanine", 'UUA': "Leucine", 'UUG': "Leucine",
+          'UCU': "Serine", 'UCC': "Serine", 'UCA': "Serine",
+          'UCG': "Serine", 'UAU': "Tyrosine", 'UAC': "Tyrosine",
+          'UGU': "Cysteine", 'UGC': "Cysteine", 'UGG': "Tryptophan",
+          'UAA': "STOP", 'UAG': "STOP", 'UGA': "STOP"}
+
+
+def of_codon(codon):
+    if codon not in CODONS:
+        raise ValueError('Invalid codon: %s' % codon)
+    return CODONS[codon]
+
+
+def of_rna(strand):
+    proteins = []
+    for codon in map(of_codon, _chunkstring(strand, 3)):
+        if codon == 'STOP':
+            break
+        proteins.append(codon)
+    return proteins
+
+
+def _chunkstring(string, n):
+    return (string[i:n + i] for i in range(0, len(string), n))

data/tracks/python/exercises/protein-translation/protein_translation.py

@@ -0,0 +1,6 @@
+def of_codon():
+    pass
+
+
+def of_rna():
+    pass

data/tracks/python/exercises/protein-translation/protein_translation_test.py

@@ -0,0 +1,59 @@
+import unittest
+
+from protein_translation import of_codon, of_rna
+
+
+class ProteinTranslationTests(unittest.TestCase):
+
+    def test_AUG_translates_to_methionine(self):
+        self.assertEqual('Methionine', of_codon('AUG'))
+
+    def test_identifies_Phenylalanine_codons(self):
+        for codon in ['UUU', 'UUC']:
+            self.assertEqual('Phenylalanine', of_codon(codon))
+
+    def test_identifies_Leucine_codons(self):
+        for codon in ['UUA', 'UUG']:
+            self.assertEqual('Leucine', of_codon(codon))
+
+    def test_identifies_Serine_codons(self):
+        for codon in ['UCU', 'UCC', 'UCA', 'UCG']:
+            self.assertEqual('Serine', of_codon(codon))
+
+    def test_identifies_Tyrosine_codons(self):
+        for codon in ['UAU', 'UAC']:
+            self.assertEqual('Tyrosine', of_codon(codon))
+
+    def test_identifies_Cysteine_codons(self):
+        for codon in ['UGU', 'UGC']:
+            self.assertEqual('Cysteine', of_codon(codon))
+
+    def test_identifies_Tryptophan_codons(self):
+        self.assertEqual('Tryptophan', of_codon('UGG'))
+
+    def test_identifies_stop_codons(self):
+        for codon in ['UAA', 'UAG', 'UGA']:
+            self.assertEqual('STOP', of_codon(codon))
+
+    def test_translates_rna_strand_into_correct_protein(self):
+        strand = 'AUGUUUUGG'
+        expected = ['Methionine', 'Phenylalanine', 'Tryptophan']
+        self.assertEqual(expected, of_rna(strand))
+
+    def test_stops_translation_if_stop_codon_present(self):
+        strand = 'AUGUUUUAA'
+        expected = ['Methionine', 'Phenylalanine']
+        self.assertEqual(expected, of_rna(strand))
+
+    def test_stops_translation_of_longer_strand(self):
+        strand = 'UGGUGUUAUUAAUGGUUU'
+        expected = ['Tryptophan', 'Cysteine', 'Tyrosine']
+        self.assertEqual(expected, of_rna(strand))
+
+    def test_invalid_codons(self):
+        with self.assertRaises(ValueError):
+            of_rna('CARROT')
+
+
+if __name__ == '__main__':
+    unittest.main()