trackler 2.0.6.41 → 2.0.6.42

data/tracks/lua/exercises/hamming/hamming_spec.lua

@@ -2,46 +2,54 @@ local compute = require('hamming').compute
 
 describe('hamming', function ()
   it('no difference between identical strands', function ()
-     assert.are.equals(0, compute('A', 'A'))
+    assert.are.equal(0, compute('A', 'A'))
   end)
 
   it('long identical strands', function ()
-    assert.are.equals(0, compute('GGACTGA', 'GGACTGA'))
+    assert.are.equal(0, compute('GGACTGA', 'GGACTGA'))
   end)
 
   it('complete hamming distance of for single nucleotide strand', function ()
-     assert.are.equals(1, compute('A', 'G'))
+    assert.are.equal(1, compute('A', 'G'))
   end)
 
   it('complete hamming distance of for small strand', function ()
-     assert.are.equals(2, compute('AG', 'CT'))
+    assert.are.equal(2, compute('AG', 'CT'))
   end)
 
   it('small hamming distance', function ()
-     assert.are.equals(1, compute('AT', 'CT'))
+    assert.are.equal(1, compute('AT', 'CT'))
   end)
 
   it('small hamming distance in longer strand', function ()
-     assert.are.equals(1, compute('GGACG', 'GGTCG'))
+    assert.are.equal(1, compute('GGACG', 'GGTCG'))
   end)
 
   it('non unique character in first strand', function ()
-    assert.are.equals(1, compute('AGA', 'AGG'))
+    assert.are.equal(1, compute('AGA', 'AGG'))
   end)
 
   it('non unique character in second strand', function ()
-    assert.are.equals(1, compute('AGG', 'AGA'))
+    assert.are.equal(1, compute('AGG', 'AGA'))
   end)
 
   it('large hamming distance', function ()
-     assert.are.equals(4, compute('GATACA', 'GCATAA'))
+    assert.are.equal(4, compute('GATACA', 'GCATAA'))
   end)
 
   it('hamming distance in very long strand', function ()
-     assert.are.equals(9, compute('GGACGGATTCTG', 'AGGACGGATTCT'))
+    assert.are.equal(9, compute('GGACGGATTCTG', 'AGGACGGATTCT'))
   end)
 
   it('empty strands', function ()
-    assert.are.equals(0, compute('', ''))
+    assert.are.equal(0, compute('', ''))
+  end)
+
+  it('disallow first strand longer', function ()
+    assert.are.equal(-1, compute('AATG', 'AAA'))
+  end)
+
+  it('disallow second strand longer', function ()
+    assert.are.equal(-1, compute('ATA', 'AGTG'))
   end)
 end)

data/tracks/ocaml/config.json

@@ -111,6 +111,11 @@
       "difficulty": 4,
       "topics": []
     },
+    {
+      "slug": "run-length-encoding",
+      "difficulty": 5,
+      "topics": ["Algorithms", "Transforming"]
+    },
     {
       "slug": "roman-numerals",
       "difficulty": 5,

data/tracks/ocaml/exercises/beer-song/beer_song.mli

@@ -4,4 +4,4 @@
 val verse : int -> string
 
 (** Return multiple verses, concatenated, from [from] until [until] (inclusive). *)
-val sing : from:int -> until:int -> string
+val lyrics : from:int -> until:int -> string

data/tracks/ocaml/exercises/beer-song/example.ml

@@ -18,7 +18,7 @@ let verse = function
            "Go to the store and buy some more, 99 bottles of beer on the wall.\n"
     | n -> line1 n ^ line2 (n-1)
 
-let sing ~from:from ~until:until =
+let lyrics ~from:from ~until:until =
     List.map (List.range ~stride:(-1) ~stop:`inclusive from until)
-             ~f:(fun n -> verse n ^ "\n")
-    |> String.concat ~sep:""
+             ~f:(fun n -> verse n)
+    |> String.concat ~sep:"\n"

data/tracks/ocaml/exercises/beer-song/test.ml

@@ -2,28 +2,51 @@ open Core.Std
 open OUnit2
 open Beer_song
 
-let ae exp got = assert_equal ~printer:String.to_string exp got
+let zip s1 s2 = 
+  let rec go s1 s2 acc = match (s1,s2) with
+  | ([], _) -> acc
+  | (_, []) -> acc
+  | (x::xs, y::ys) -> go xs ys ((x,y)::acc) in 
+  List.rev @@ go s1 s2 []
 
-let tests =
-  ["a verse">:: (fun _ ->
-     let exp = "8 bottles of beer on the wall, 8 bottles of beer.\nTake one down and pass it around, 7 bottles of beer on the wall.\n" in
-     ae exp (verse 8));
-   "verse 1">:: (fun _ ->
-     let exp = "1 bottle of beer on the wall, 1 bottle of beer.\nTake it down and pass it around, no more bottles of beer on the wall.\n" in
-     ae exp (verse 1));
-   "verse 2">:: (fun _ ->
-     let exp = "2 bottles of beer on the wall, 2 bottles of beer.\nTake one down and pass it around, 1 bottle of beer on the wall.\n" in
-     ae exp (verse 2));
-   "verse 0">:: (fun _ ->
-     let exp = "No more bottles of beer on the wall, no more bottles of beer.\nGo to the store and buy some more, 99 bottles of beer on the wall.\n" in
-     ae exp (verse 0));
-   "singing several verses">:: (fun _ ->
-     let exp = "8 bottles of beer on the wall, 8 bottles of beer.\nTake one down and pass it around, 7 bottles of beer on the wall.\n\n7 bottles of beer on the wall, 7 bottles of beer.\nTake one down and pass it around, 6 bottles of beer on the wall.\n\n6 bottles of beer on the wall, 6 bottles of beer.\nTake one down and pass it around, 5 bottles of beer on the wall.\n\n" in
-     ae exp (sing ~from:8 ~until:6));
-   "sing all the rest of the verses">:: (fun _ ->
-     let exp = "3 bottles of beer on the wall, 3 bottles of beer.\nTake one down and pass it around, 2 bottles of beer on the wall.\n\n2 bottles of beer on the wall, 2 bottles of beer.\nTake one down and pass it around, 1 bottle of beer on the wall.\n\n1 bottle of beer on the wall, 1 bottle of beer.\nTake it down and pass it around, no more bottles of beer on the wall.\n\nNo more bottles of beer on the wall, no more bottles of beer.\nGo to the store and buy some more, 99 bottles of beer on the wall.\n\n" in
-     ae exp (sing ~from:3 ~until:0))
-  ]
+let find_diffs s1 s2 =
+  let s1 = String.to_list s1 in
+  let s2 = String.to_list s2 in
+  let both = zip s1 s2 in
+  List.find_mapi both ~f:(fun i (c1, c2) -> if c1 = c2 then None else Some (sprintf "Diff at index %d: %c <> %c" i c1 c2))
+
+let diff_message s1 s2 = match find_diffs s1 s2 with
+| None -> if String.length s1 = String.length s2 then "" else "Lengths of expected and actual differ but have a common prefix."
+| Some m -> m
+
+let ae exp got _test_ctxt = 
+  if exp = got 
+  then ()
+  else failwith @@ "Expected differs from actual: " ^ (diff_message exp got)
+
+let verse_tests = [
+   "first verse" >::
+     ae "99 bottles of beer on the wall, 99 bottles of beer.\nTake one down and pass it around, 98 bottles of beer on the wall.\n" (verse 99);
+   "middle verse" >::
+     ae "44 bottles of beer on the wall, 44 bottles of beer.\nTake one down and pass it around, 43 bottles of beer on the wall.\n" (verse 44);
+   "third to last verse" >::
+     ae "2 bottles of beer on the wall, 2 bottles of beer.\nTake one down and pass it around, 1 bottle of beer on the wall.\n" (verse 2);
+   "penultimate verse" >::
+     ae "1 bottle of beer on the wall, 1 bottle of beer.\nTake it down and pass it around, no more bottles of beer on the wall.\n" (verse 1);
+   "last verse" >::
+     ae "No more bottles of beer on the wall, no more bottles of beer.\nGo to the store and buy some more, 99 bottles of beer on the wall.\n" (verse 0);
+]
+
+let lyrics_tests = [
+   "last 4 verses" >::
+     ae "3 bottles of beer on the wall, 3 bottles of beer.\nTake one down and pass it around, 2 bottles of beer on the wall.\n\n2 bottles of beer on the wall, 2 bottles of beer.\nTake one down and pass it around, 1 bottle of beer on the wall.\n\n1 bottle of beer on the wall, 1 bottle of beer.\nTake it down and pass it around, no more bottles of beer on the wall.\n\nNo more bottles of beer on the wall, no more bottles of beer.\nGo to the store and buy some more, 99 bottles of beer on the wall.\n" (lyrics ~from:3 ~until:0);
+   "all verses" >::
+     ae "99 bottles of beer on the wall, 99 bottles of beer.\nTake one down and pass it around, 98 bottles of beer on the wall.\n\n98 bottles of beer on the wall, 98 bottles of beer.\nTake one down and pass it around, 97 bottles of beer on the wall.\n\n97 bottles of beer on the wall, 97 bottles of beer.\nTake one down and pass it around, 96 bottles of beer on the wall.\n\n96 bottles of beer on the wall, 96 bottles of beer.\nTake one down and pass it around, 95 bottles of beer on the wall.\n\n95 bottles of beer on the wall, 95 bottles of beer.\nTake one down and pass it around, 94 bottles of beer on the wall.\n\n94 bottles of beer on the wall, 94 bottles of beer.\nTake one down and pass it around, 93 bottles of beer on the wall.\n\n93 bottles of beer on the wall, 93 bottles of beer.\nTake one down and pass it around, 92 bottles of beer on the wall.\n\n92 bottles of beer on the wall, 92 bottles of beer.\nTake one down and pass it around, 91 bottles of beer on the wall.\n\n91 bottles of beer on the wall, 91 bottles of beer.\nTake one down and pass it around, 90 bottles of beer on the wall.\n\n90 bottles of beer on the wall, 90 bottles of beer.\nTake one down and pass it around, 89 bottles of beer on the wall.\n\n89 bottles of beer on the wall, 89 bottles of beer.\nTake one down and pass it around, 88 bottles of beer on the wall.\n\n88 bottles of beer on the wall, 88 bottles of beer.\nTake one down and pass it around, 87 bottles of beer on the wall.\n\n87 bottles of beer on the wall, 87 bottles of beer.\nTake one down and pass it around, 86 bottles of beer on the wall.\n\n86 bottles of beer on the wall, 86 bottles of beer.\nTake one down and pass it around, 85 bottles of beer on the wall.\n\n85 bottles of beer on the wall, 85 bottles of beer.\nTake one down and pass it around, 84 bottles of beer on the wall.\n\n84 bottles of beer on the wall, 84 bottles of beer.\nTake one down and pass it around, 83 bottles of beer on the wall.\n\n83 bottles of beer on the wall, 83 bottles of beer.\nTake one down and pass it around, 82 bottles of beer on the wall.\n\n82 bottles of beer on the wall, 82 bottles of beer.\nTake one down and pass it around, 81 bottles of beer on the wall.\n\n81 bottles of beer on the wall, 81 bottles of beer.\nTake one down and pass it around, 80 bottles of beer on the wall.\n\n80 bottles of beer on the wall, 80 bottles of beer.\nTake one down and pass it around, 79 bottles of beer on the wall.\n\n79 bottles of beer on the wall, 79 bottles of beer.\nTake one down and pass it around, 78 bottles of beer on the wall.\n\n78 bottles of beer on the wall, 78 bottles of beer.\nTake one down and pass it around, 77 bottles of beer on the wall.\n\n77 bottles of beer on the wall, 77 bottles of beer.\nTake one down and pass it around, 76 bottles of beer on the wall.\n\n76 bottles of beer on the wall, 76 bottles of beer.\nTake one down and pass it around, 75 bottles of beer on the wall.\n\n75 bottles of beer on the wall, 75 bottles of beer.\nTake one down and pass it around, 74 bottles of beer on the wall.\n\n74 bottles of beer on the wall, 74 bottles of beer.\nTake one down and pass it around, 73 bottles of beer on the wall.\n\n73 bottles of beer on the wall, 73 bottles of beer.\nTake one down and pass it around, 72 bottles of beer on the wall.\n\n72 bottles of beer on the wall, 72 bottles of beer.\nTake one down and pass it around, 71 bottles of beer on the wall.\n\n71 bottles of beer on the wall, 71 bottles of beer.\nTake one down and pass it around, 70 bottles of beer on the wall.\n\n70 bottles of beer on the wall, 70 bottles of beer.\nTake one down and pass it around, 69 bottles of beer on the wall.\n\n69 bottles of beer on the wall, 69 bottles of beer.\nTake one down and pass it around, 68 bottles of beer on the wall.\n\n68 bottles of beer on the wall, 68 bottles of beer.\nTake one down and pass it around, 67 bottles of beer on the wall.\n\n67 bottles of beer on the wall, 67 bottles of beer.\nTake one down and pass it around, 66 bottles of beer on the wall.\n\n66 bottles of beer on the wall, 66 bottles of beer.\nTake one down and pass it around, 65 bottles of beer on the wall.\n\n65 bottles of beer on the wall, 65 bottles of beer.\nTake one down and pass it around, 64 bottles of beer on the wall.\n\n64 bottles of beer on the wall, 64 bottles of beer.\nTake one down and pass it around, 63 bottles of beer on the wall.\n\n63 bottles of beer on the wall, 63 bottles of beer.\nTake one down and pass it around, 62 bottles of beer on the wall.\n\n62 bottles of beer on the wall, 62 bottles of beer.\nTake one down and pass it around, 61 bottles of beer on the wall.\n\n61 bottles of beer on the wall, 61 bottles of beer.\nTake one down and pass it around, 60 bottles of beer on the wall.\n\n60 bottles of beer on the wall, 60 bottles of beer.\nTake one down and pass it around, 59 bottles of beer on the wall.\n\n59 bottles of beer on the wall, 59 bottles of beer.\nTake one down and pass it around, 58 bottles of beer on the wall.\n\n58 bottles of beer on the wall, 58 bottles of beer.\nTake one down and pass it around, 57 bottles of beer on the wall.\n\n57 bottles of beer on the wall, 57 bottles of beer.\nTake one down and pass it around, 56 bottles of beer on the wall.\n\n56 bottles of beer on the wall, 56 bottles of beer.\nTake one down and pass it around, 55 bottles of beer on the wall.\n\n55 bottles of beer on the wall, 55 bottles of beer.\nTake one down and pass it around, 54 bottles of beer on the wall.\n\n54 bottles of beer on the wall, 54 bottles of beer.\nTake one down and pass it around, 53 bottles of beer on the wall.\n\n53 bottles of beer on the wall, 53 bottles of beer.\nTake one down and pass it around, 52 bottles of beer on the wall.\n\n52 bottles of beer on the wall, 52 bottles of beer.\nTake one down and pass it around, 51 bottles of beer on the wall.\n\n51 bottles of beer on the wall, 51 bottles of beer.\nTake one down and pass it around, 50 bottles of beer on the wall.\n\n50 bottles of beer on the wall, 50 bottles of beer.\nTake one down and pass it around, 49 bottles of beer on the wall.\n\n49 bottles of beer on the wall, 49 bottles of beer.\nTake one down and pass it around, 48 bottles of beer on the wall.\n\n48 bottles of beer on the wall, 48 bottles of beer.\nTake one down and pass it around, 47 bottles of beer on the wall.\n\n47 bottles of beer on the wall, 47 bottles of beer.\nTake one down and pass it around, 46 bottles of beer on the wall.\n\n46 bottles of beer on the wall, 46 bottles of beer.\nTake one down and pass it around, 45 bottles of beer on the wall.\n\n45 bottles of beer on the wall, 45 bottles of beer.\nTake one down and pass it around, 44 bottles of beer on the wall.\n\n44 bottles of beer on the wall, 44 bottles of beer.\nTake one down and pass it around, 43 bottles of beer on the wall.\n\n43 bottles of beer on the wall, 43 bottles of beer.\nTake one down and pass it around, 42 bottles of beer on the wall.\n\n42 bottles of beer on the wall, 42 bottles of beer.\nTake one down and pass it around, 41 bottles of beer on the wall.\n\n41 bottles of beer on the wall, 41 bottles of beer.\nTake one down and pass it around, 40 bottles of beer on the wall.\n\n40 bottles of beer on the wall, 40 bottles of beer.\nTake one down and pass it around, 39 bottles of beer on the wall.\n\n39 bottles of beer on the wall, 39 bottles of beer.\nTake one down and pass it around, 38 bottles of beer on the wall.\n\n38 bottles of beer on the wall, 38 bottles of beer.\nTake one down and pass it around, 37 bottles of beer on the wall.\n\n37 bottles of beer on the wall, 37 bottles of beer.\nTake one down and pass it around, 36 bottles of beer on the wall.\n\n36 bottles of beer on the wall, 36 bottles of beer.\nTake one down and pass it around, 35 bottles of beer on the wall.\n\n35 bottles of beer on the wall, 35 bottles of beer.\nTake one down and pass it around, 34 bottles of beer on the wall.\n\n34 bottles of beer on the wall, 34 bottles of beer.\nTake one down and pass it around, 33 bottles of beer on the wall.\n\n33 bottles of beer on the wall, 33 bottles of beer.\nTake one down and pass it around, 32 bottles of beer on the wall.\n\n32 bottles of beer on the wall, 32 bottles of beer.\nTake one down and pass it around, 31 bottles of beer on the wall.\n\n31 bottles of beer on the wall, 31 bottles of beer.\nTake one down and pass it around, 30 bottles of beer on the wall.\n\n30 bottles of beer on the wall, 30 bottles of beer.\nTake one down and pass it around, 29 bottles of beer on the wall.\n\n29 bottles of beer on the wall, 29 bottles of beer.\nTake one down and pass it around, 28 bottles of beer on the wall.\n\n28 bottles of beer on the wall, 28 bottles of beer.\nTake one down and pass it around, 27 bottles of beer on the wall.\n\n27 bottles of beer on the wall, 27 bottles of beer.\nTake one down and pass it around, 26 bottles of beer on the wall.\n\n26 bottles of beer on the wall, 26 bottles of beer.\nTake one down and pass it around, 25 bottles of beer on the wall.\n\n25 bottles of beer on the wall, 25 bottles of beer.\nTake one down and pass it around, 24 bottles of beer on the wall.\n\n24 bottles of beer on the wall, 24 bottles of beer.\nTake one down and pass it around, 23 bottles of beer on the wall.\n\n23 bottles of beer on the wall, 23 bottles of beer.\nTake one down and pass it around, 22 bottles of beer on the wall.\n\n22 bottles of beer on the wall, 22 bottles of beer.\nTake one down and pass it around, 21 bottles of beer on the wall.\n\n21 bottles of beer on the wall, 21 bottles of beer.\nTake one down and pass it around, 20 bottles of beer on the wall.\n\n20 bottles of beer on the wall, 20 bottles of beer.\nTake one down and pass it around, 19 bottles of beer on the wall.\n\n19 bottles of beer on the wall, 19 bottles of beer.\nTake one down and pass it around, 18 bottles of beer on the wall.\n\n18 bottles of beer on the wall, 18 bottles of beer.\nTake one down and pass it around, 17 bottles of beer on the wall.\n\n17 bottles of beer on the wall, 17 bottles of beer.\nTake one down and pass it around, 16 bottles of beer on the wall.\n\n16 bottles of beer on the wall, 16 bottles of beer.\nTake one down and pass it around, 15 bottles of beer on the wall.\n\n15 bottles of beer on the wall, 15 bottles of beer.\nTake one down and pass it around, 14 bottles of beer on the wall.\n\n14 bottles of beer on the wall, 14 bottles of beer.\nTake one down and pass it around, 13 bottles of beer on the wall.\n\n13 bottles of beer on the wall, 13 bottles of beer.\nTake one down and pass it around, 12 bottles of beer on the wall.\n\n12 bottles of beer on the wall, 12 bottles of beer.\nTake one down and pass it around, 11 bottles of beer on the wall.\n\n11 bottles of beer on the wall, 11 bottles of beer.\nTake one down and pass it around, 10 bottles of beer on the wall.\n\n10 bottles of beer on the wall, 10 bottles of beer.\nTake one down and pass it around, 9 bottles of beer on the wall.\n\n9 bottles of beer on the wall, 9 bottles of beer.\nTake one down and pass it around, 8 bottles of beer on the wall.\n\n8 bottles of beer on the wall, 8 bottles of beer.\nTake one down and pass it around, 7 bottles of beer on the wall.\n\n7 bottles of beer on the wall, 7 bottles of beer.\nTake one down and pass it around, 6 bottles of beer on the wall.\n\n6 bottles of beer on the wall, 6 bottles of beer.\nTake one down and pass it around, 5 bottles of beer on the wall.\n\n5 bottles of beer on the wall, 5 bottles of beer.\nTake one down and pass it around, 4 bottles of beer on the wall.\n\n4 bottles of beer on the wall, 4 bottles of beer.\nTake one down and pass it around, 3 bottles of beer on the wall.\n\n3 bottles of beer on the wall, 3 bottles of beer.\nTake one down and pass it around, 2 bottles of beer on the wall.\n\n2 bottles of beer on the wall, 2 bottles of beer.\nTake one down and pass it around, 1 bottle of beer on the wall.\n\n1 bottle of beer on the wall, 1 bottle of beer.\nTake it down and pass it around, no more bottles of beer on the wall.\n\nNo more bottles of beer on the wall, no more bottles of beer.\nGo to the store and buy some more, 99 bottles of beer on the wall.\n" 
+     (lyrics ~from:99 ~until:0);
+]
 
 let () =
-  run_test_tt_main ("beer-song tests" >::: tests)
+  run_test_tt_main (
+    "beer song tests" >:::
+      List.concat [verse_tests; lyrics_tests]
+  )

data/tracks/ocaml/exercises/run-length-encoding/.merlin

@@ -0,0 +1,5 @@
+PKG findlib
+PKG core
+PKG ounit
+S *
+B *

data/tracks/ocaml/exercises/run-length-encoding/Makefile

@@ -0,0 +1,11 @@
+test: test.native
+	@./test.native
+
+test.native: *.ml *.mli
+	@corebuild -r -quiet -pkg oUnit test.native
+
+clean:
+	rm -rf _build
+	rm -f test.native
+
+.PHONY: clean

data/tracks/ocaml/exercises/run-length-encoding/example.ml

@@ -0,0 +1,37 @@
+open Core.Std
+
+let (>|>) f g x = g (f x)
+
+let repeat n ch = 
+  Array.init n ~f:(fun _ -> ch) 
+  |> Array.to_list
+  |> String.of_char_list
+
+let collapse = function
+| [] -> failwith "empty string not expected here"
+| [x] -> Char.to_string x
+| (x::_) as g -> sprintf "%d%c" (List.length g) x
+
+let to_int = String.of_char_list >|> Int.of_string
+
+let decode_to_tuple (s: 'a list): ((int * 'a) * 'a list) = 
+  match List.split_while ~f:Char.is_digit s with
+  | ([], (x::xs)) -> ((1, x), xs)
+  | (ds, (x::xs)) -> let count = to_int ds in ((count, x), xs)
+  | _ -> failwith "case not expected"
+
+let encode =
+  String.to_list
+  >|> List.group ~break:((<>))
+  >|> List.map ~f:collapse
+  >|> String.concat ~sep:""
+
+let decode = 
+  let rec go acc input =
+    if List.is_empty input then acc
+    else let (t, rest) = decode_to_tuple input in go (t :: acc) rest in
+  String.to_list
+  >|> go []
+  >|> List.rev
+  >|> List.map ~f:(fun (cnt, c) -> repeat cnt c)
+  >|> String.concat ~sep:""

data/tracks/ocaml/exercises/run-length-encoding/run_length_encoding.mli

@@ -0,0 +1,3 @@
+val encode : string -> string
+
+val decode : string -> string

data/tracks/ocaml/exercises/run-length-encoding/test.ml

@@ -0,0 +1,38 @@
+open Core.Std
+open OUnit2
+open Run_length_encoding
+
+let ae exp got _test_ctxt = assert_equal exp got ~printer:Fn.id
+
+let encode_tests = [
+   "empty string" >::
+     ae "" (encode "");
+   "single characters only are encoded without count" >::
+     ae "XYZ" (encode "XYZ");
+   "string with no single characters" >::
+     ae "2A3B4C" (encode "AABBBCCCC");
+   "single characters mixed with repeated characters" >::
+     ae "12WB12W3B24WB" (encode "WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWB");
+]
+
+let decode_tests = [
+   "empty string" >::
+     ae "" (decode "");
+   "single characters only" >::
+     ae "XYZ" (decode "XYZ");
+   "string with no single characters" >::
+     ae "AABBBCCCC" (decode "2A3B4C");
+   "single characters with repeated characters" >::
+     ae "WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWB" (decode "12WB12W3B24WB");
+]
+
+let consistency_tests = [
+   "encode followed by decode gives original string" >::
+     ae "zzz ZZ  zZ" (decode (encode "zzz ZZ  zZ"));
+]
+
+let () =
+  run_test_tt_main (
+    "run length encoding tests" >:::
+      List.concat [encode_tests; decode_tests; consistency_tests]
+  )

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

@@ -40,7 +40,6 @@ let fill_tests (template: t) (substs: subst list): string =
   let join = String.concat_array ~sep:"\n" in
   String.concat [join before; join subst; join after] ~sep:"\n"
 
-(* HACKS HERE *)
 let fill_single_suite (template: t) (suite_substs: string * subst list): string =
   let (suite_name, substs) = suite_substs in
   let suite_name_line = Option.value_exn template.suite_name_line in
@@ -53,7 +52,6 @@ let fill_single_suite (template: t) (suite_substs: string * subst list): string
   let join = String.concat_array ~sep:"\n" in
   String.concat [join before; join subst; join after] ~sep:"\n"
 
-(* HACKS HERE *)
 let fill_suite (template: t) (suite_substs: (string * subst list) list): string =
   let fills = List.map suite_substs ~f:(fun x -> (fill_single_suite template x) ^ "\n") in
   let suite_name_line = Option.value_exn template.suite_name_line in

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

@@ -0,0 +1,19 @@
+open Core.Std
+open OUnit2
+open Beer_song
+
+let ae exp got _test_ctxt = assert_equal exp got ~printer:Fn.id
+
+let (* SUITE *)$(suite_name)_tests = [
+(* TEST
+   "$description" >::
+     ae $expected ($suite-name $number);
+   END TEST *)
+]
+(* END SUITE *)
+
+let () =
+  run_test_tt_main (
+    "beer song tests" >:::
+      List.concat [(* suite-all-names *)]
+  )

data/tracks/ocaml/tools/test-generator/templates/run-length-encoding/template.ml

@@ -0,0 +1,19 @@
+open Core.Std
+open OUnit2
+open Run_length_encoding
+
+let ae exp got _test_ctxt = assert_equal exp got ~printer:Fn.id
+
+let (* SUITE *)$(suite_name)_tests = [
+(* TEST
+   "$description" >::
+     ae $expected ($suite-name $input);
+   END TEST *)
+]
+(* END SUITE *)
+
+let () =
+  run_test_tt_main (
+    "run length encoding tests" >:::
+      List.concat [(* suite-all-names *)]
+  )

data/tracks/php/config.json

@@ -338,6 +338,23 @@
     "topics": [
       "Algorithms"
     ]
+  },
+  {
+    "slug": "queen-attack",
+    "difficulty": 2,
+    "topics": [
+      "Integers",
+      "Mathematics"
+    ]
+  },
+  {
+    "slug": "scrabble-score",
+    "difficulty": 2,
+    "topics": [
+      "Strings",
+      "Control-flow (loops)",
+      "Integers"
+    ]
   }
   ]
 }

data/tracks/php/exercises/queen-attack/example.php

@@ -0,0 +1,86 @@
+<?php
+
+/**
+ * Check if the queen is placed on a valid square.
+ *
+ * @param  int $xCoordinate
+ * @param  int $yCoordinate
+ *
+ * @return bool
+ *
+ * @throws InvalidArgumentException
+ */
+function placeQueen($xCoordinate, $yCoordinate)
+{
+    if ($xCoordinate < 0 || $yCoordinate < 0) {
+        throw new InvalidArgumentException('The rank and file numbers must be positive.');
+    }
+
+    if ($xCoordinate > 7 || $yCoordinate > 7) {
+        throw new InvalidArgumentException('The position must be on a standard size chess board.');
+    }
+
+    return true;
+}
+
+/**
+ * Check if 2 queens can attack each other from their current positions.
+ *
+ * @param  array $whiteQueen  The queen's x,y coordinates on the board.
+ * @param  array $blackQueen  The queen's x,y coordinates on the board.
+ *
+ * @return bool
+ */
+function canAttack($whiteQueen, $blackQueen)
+{
+    placeQueen($whiteQueen[0], $whiteQueen[1]);
+    placeQueen($blackQueen[0], $blackQueen[1]);
+
+    if (onRankOrFile($whiteQueen[0], $blackQueen[0]) ||
+        onRankOrFile($whiteQueen[1], $blackQueen[1]) ||
+        onDiagonal($whiteQueen[0], $whiteQueen[1], $blackQueen[0], $blackQueen[1])
+    ) {
+        return true;
+    }
+
+    return false;
+}
+
+/**
+ * Check if to coordinates or on the same rank or file.
+ *
+ * @param  int $whiteCoordinate
+ * @param  int $blackCoordinate
+ *
+ * @return bool
+ */
+function onRankOrFile($whiteCoordinate, $blackCoordinate)
+{
+    if ($whiteCoordinate === $blackCoordinate) {
+        return true;
+    }
+
+    return false;
+}
+
+/**
+ * Check if coordinates or on a straight diagonal.
+ *
+ * @param  int $whiteRank
+ * @param  int $whiteFile
+ * @param  int $blackRank
+ * @param  int $blackFile
+ *
+ * @return bool
+ */
+function onDiagonal($whiteRank, $whiteFile, $blackRank, $blackFile)
+{
+    $whitePosition = abs(($whiteRank - $blackRank));
+    $blackPosition = abs(($whiteFile - $blackFile));
+
+    if ($whitePosition === $blackPosition) {
+        return true;
+    }
+
+    return false;
+}

data/tracks/php/exercises/queen-attack/queen-attack_test.php

@@ -0,0 +1,125 @@
+<?php
+
+require "queen-attack.php";
+
+class QueenAttackTest extends PHPUnit\Framework\TestCase
+{
+    /**
+     * Test a queen is placed in a valid position.
+     */
+    public function testCreateQueenWithValidPosition()
+    {
+        $this->assertTrue(placeQueen(2, 2));
+    }
+
+    /**
+     * Test the queen is placed on a positive rank.
+     *
+     * @expectedException InvalidArgumentException
+     * @expectedExceptionMessage The rank and file numbers must be positive.
+     */
+    public function testQueenHasPositiveRank()
+    {
+        $this->markTestSkipped();
+        placeQueen(-2, 2);
+    }
+
+    /**
+     * Test the queen has a rank on the board.
+     *
+     * @expectedException InvalidArgumentException
+     * @expectedExceptionMessage The position must be on a standard size chess board.
+     */
+    public function testQueenHasRankOnBoard()
+    {
+        $this->markTestSkipped();
+        placeQueen(8, 4);
+    }
+
+    /**
+     * Test the queen is placed on a positive file.
+     *
+     * @expectedException InvalidArgumentException
+     * @expectedExceptionMessage The rank and file numbers must be positive.
+     */
+    public function testQueenHasPositiveFile()
+    {
+        $this->markTestSkipped();
+        placeQueen(2, -2);
+    }
+
+    /**
+     * Test the queen has a file on the board.
+     *
+     * @expectedException InvalidArgumentException
+     * @expectedExceptionMessage The position must be on a standard size chess board.
+     */
+    public function testQueenHasFileOnBoard()
+    {
+        $this->markTestSkipped();
+        placeQueen(4, 8);
+    }
+
+    /**
+     * Test if queens can attack each other.
+     */
+    public function testQueensCanAttack()
+    {
+        $this->markTestSkipped();
+        $this->assertFalse(canAttack([2, 4], [6, 6]));
+    }
+
+    /**
+     * Test if queens can attack each other on the same rank.
+     */
+    public function testQueensCanAttackOnSameRank()
+    {
+        $this->markTestSkipped();
+        $this->assertTrue(canAttack([2, 4], [2, 6]));
+    }
+
+    /**
+     * Test if queens can attack each other on the same file.
+     */
+    public function testQueensCanAttackOnSameFile()
+    {
+        $this->markTestSkipped();
+        $this->assertTrue(canAttack([4, 5], [2, 5]));
+    }
+
+    /**
+     * Test if queens can attack each other on the first diagonal.
+     */
+    public function testQueensCanAttackOnFirstDiagonal()
+    {
+        $this->markTestSkipped();
+        $this->assertTrue(canAttack([2, 2], [0, 4]));
+    }
+
+    /**
+     * Test if queens can attack each other on the second diagonal.
+     */
+    public function testQueensCanAttackOnSecondDiagonal()
+    {
+        $this->markTestSkipped();
+        $this->assertTrue(canAttack([2, 2], [3, 1]));
+    }
+
+    /**
+     * Test if queens can attack each other on the third diagonal.
+     */
+    public function testQueensCanAttackOnThirdDiagonal()
+    {
+        $this->markTestSkipped();
+        $this->assertTrue(canAttack([2, 2], [1, 1]));
+    }
+
+    /**
+     * Test if queens can attack each other on the fourth diagonal.
+     */
+    public function testQueensCanAttackOnFourthDiagonal()
+    {
+        $this->markTestSkipped();
+        $this->assertTrue(canAttack([2, 2], [5, 5]));
+    }
+}

data/tracks/php/exercises/scrabble-score/example.php

@@ -0,0 +1,27 @@
+<?php
+
+function score($word)
+{
+    if (strlen($word) === 0 || $word === ' ') {
+        return 0;
+    }
+
+    $scrabbleScore = [
+        'a' => 1, 'b' => 3, 'c' => 3, 'd' => 2,
+        'e' => 1, 'f' => 4, 'g' => 2, 'h' => 4,
+        'i' => 1, 'j' => 8, 'k' => 5, 'l' => 1,
+        'm' => 3, 'n' => 1, 'o' => 1, 'p' => 3,
+        'q' => 10, 'r' => 1, 's' => 1, 't' => 1,
+        'u' => 1, 'v' => 4, 'w' => 4, 'x' => 8,
+        'y' => 4, 'z' => 10,
+    ];
+
+    $score = 0;
+    $letters = str_split(strtolower($word));
+
+    foreach ($letters as $letter) {
+        $score += $scrabbleScore[$letter];
+    }
+
+    return $score;
+}