trackler 2.0.8.18 → 2.0.8.19

data/tracks/haskell/exercises/largest-series-product/src/Series.hs

@@ -1,4 +1,4 @@
 module Series (largestProduct) where
 
 largestProduct :: Int -> String -> Maybe Integer
-largestProduct = error "You need to implement this function."
+largestProduct series digits = error "You need to implement this function."

data/tracks/haskell/exercises/lens-person/src/Person.hs

@@ -31,13 +31,13 @@ data Address = Address { _street      :: String
                        }
 
 bornStreet :: Born -> String
-bornStreet = error "You need to implement this function."
+bornStreet born = error "You need to implement this function."
 
 setCurrentStreet :: String -> Person -> Person
-setCurrentStreet = error "You need to implement this function."
+setCurrentStreet street person = error "You need to implement this function."
 
 setBirthMonth :: Int -> Person -> Person
-setBirthMonth = error "You need to implement this function."
+setBirthMonth month person = error "You need to implement this function."
 
 renameStreets :: (String -> String) -> Person -> Person
-renameStreets = error "You need to implement this function."
+renameStreets f person = error "You need to implement this function."

data/tracks/julia/.travis.yml

@@ -4,13 +4,14 @@ os:
   - linux
 
 julia:
-  - release
   - nightly
-  - 0.5.0
+  - 0.6
+  - 0.5
 
 matrix:
   allow_failures:
     - julia: nightly
+    - julia: 0.6
 
 script:
   - julia runtests.jl

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

@@ -33,7 +33,7 @@ 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; 0; 6; 0] ~target:10);
+    ae (Some [4; 2]) (convert_bases ~from:7 ~digits:[0; 6; 0] ~target:10);
   "negative digit" >::
     ae None (convert_bases ~from:2 ~digits:[1; -1; 1; 0; 1; 0] ~target:10);
   "invalid positive digit" >::
@@ -55,4 +55,4 @@ let tests = [
 ]
 
 let () =
-  run_test_tt_main ("all-your-bases tests" >::: tests)
+  run_test_tt_main ("all-your-bases tests" >::: tests)

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

@@ -6,40 +6,41 @@ 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 []
+  | (x::xs, y::ys) -> go xs ys ((x,y)::acc) in List.rev @@ go s1 s2 []
 
-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 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" >::
+   "first generic 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" >::
+   "last generic verse" >::
+     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" (verse 3);
+   "verse 2" >::
      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" >::
+   "verse 1" >::
      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" >::
+   "verse 0" >::
      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);
+   "first two 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" (lyrics ~from:99 ~until:98);
+   "last three verses" >::
+     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\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:2 ~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);

data/tracks/ocaml/exercises/phone-number/test.ml

@@ -9,28 +9,28 @@ let option_to_string f = function
 let ae exp got _test_ctxt =
   assert_equal ~printer:(option_to_string String.to_string) exp got
 
-let number_tests = [
-   "cleans the number" >::
-      ae (Some "1234567890") (number "(123) 456-7890");
-   "cleans numbers with dots" >::
-      ae (Some "1234567890") (number "123.456.7890");
-   "cleans numbers with multiple spaces" >::
-      ae (Some "1234567890") (number "123 456   7890   ");
-   "invalid when 9 digits" >::
-      ae None (number "123456789");
-   "invalid when 11 digits" >::
-      ae None (number "21234567890");
-   "valid when 11 digits and starting with 1" >::
-      ae (Some "1234567890") (number "11234567890");
-   "invalid when 12 digits" >::
-      ae None (number "321234567890");
-   "invalid with letters" >::
-      ae None (number "123-abc-7890");
-   "invalid with punctuations" >::
-      ae None (number "123-@:!-7890");
-   "invalid with right number of digits but letters mixed in" >::
-      ae None (number "1a2b3c4d5e6f7g8h9i0j");
+let tests = [
+  "cleans the number" >::
+    ae (Some "1234567890") (number "(123) 456-7890");
+  "cleans numbers with dots" >::
+    ae (Some "1234567890") (number "123.456.7890");
+  "cleans numbers with multiple spaces" >::
+    ae (Some "1234567890") (number "123 456   7890   ");
+  "invalid when 9 digits" >::
+    ae None (number "123456789");
+  "invalid when 11 digits" >::
+    ae None (number "21234567890");
+  "valid when 11 digits and starting with 1" >::
+    ae (Some "1234567890") (number "11234567890");
+  "invalid when 12 digits" >::
+    ae None (number "321234567890");
+  "invalid with letters" >::
+    ae None (number "123-abc-7890");
+  "invalid with punctuations" >::
+    ae None (number "123-@:!-7890");
+  "invalid with right number of digits but letters mixed in" >::
+    ae None (number "1a2b3c4d5e6f7g8h9i0j");
 ]
 
 let () =
-  run_test_tt_main ("phone-number tests" >::: number_tests)
+  run_test_tt_main ("phone-number tests" >::: tests)

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

@@ -4,7 +4,7 @@ open Run_length_encoding
 
 let ae exp got _test_ctxt = assert_equal exp got ~printer:Fn.id
 
-let encode_tests = [
+let run_length_encode_a_string_tests = [
    "empty string" >::
      ae "" (encode "");
    "single characters only are encoded without count" >::
@@ -19,7 +19,7 @@ let encode_tests = [
      ae "2a3b4c" (encode "aabbbcccc");
 ]
 
-let decode_tests = [
+let run_length_decode_a_string_tests = [
    "empty string" >::
      ae "" (decode "");
    "single characters only" >::
@@ -34,13 +34,13 @@ let decode_tests = [
      ae "aabbbcccc" (decode "2a3b4c");
 ]
 
-let consistency_tests = [
+let encode_and_then_decode_tests = [
    "encode followed by decode gives original string" >::
-     ae "zzz ZZ  zZ" (decode "zzz ZZ  zZ");
+     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]
+      List.concat [run_length_encode_a_string_tests; run_length_decode_a_string_tests; encode_and_then_decode_tests]
   )

data/tracks/ocaml/exercises/word-count/test.ml

@@ -36,7 +36,7 @@ let tests = [
    "with apostrophes" >::
       ae [("first", 1); ("don't", 2); ("laugh", 1); ("then", 1); ("cry", 1)]
          (word_count "First: don't laugh. Then: don't cry.");
-   "with_quotations" >::
+   "with quotations" >::
       ae [("joe", 1); ("can't", 1); ("tell", 1); ("between", 1); ("large", 2); ("and", 1)]
          (word_count "Joe can't tell between 'large' and large.");
 ]

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

@@ -2,7 +2,26 @@ open Core.Std
 open OUnit2
 open Beer_song
 
-let ae exp got _test_ctxt = assert_equal exp got ~printer:Fn.id
+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 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 (* SUITE *)$(suite_name)_tests = [
 (* TEST

data/tracks/purescript/config.json

@@ -72,6 +72,13 @@
         "algebraic data types",
         "type classes"
       ]
+    },
+    {
+      "slug": "word-count",
+      "difficulty": 1,
+      "topics": [
+        "strings"
+      ]
     }
   ],
   "deprecated": [

data/tracks/purescript/exercises/word-count/bower.json

@@ -0,0 +1,17 @@
+{
+  "name": "word-count",
+  "ignore": [
+    "**/.*",
+    "node_modules",
+    "bower_components",
+    "output"
+  ],
+  "dependencies": {
+    "purescript-prelude": "^2.5.0",
+    "purescript-maps": "^2.1.2"
+  },
+  "devDependencies": {
+    "purescript-psci-support": "^2.0.0",
+    "purescript-test-unit": "^10.1.0"
+  }
+}

data/tracks/purescript/exercises/word-count/examples/src/WordCount.purs

@@ -0,0 +1,31 @@
+module WordCount
+  ( wordCount
+  ) where
+
+import Prelude
+import Data.Array (foldl)
+import Data.Maybe (Maybe(Just), maybe)
+import Data.StrMap (StrMap, alter, empty)
+import Data.String (Pattern(..), split, toLower, trim)
+import Data.String.Regex (replace)
+import Data.String.Regex.Flags (global)
+import Data.String.Regex.Unsafe (unsafeRegex)
+
+prepare :: String -> Array String
+prepare = whitePunc
+          >>> remQuot
+          >>> aggWhite
+          >>> trim
+          >>> toLower
+          >>> split (Pattern " ")
+  where whitePunc = replace (unsafeRegex "[,\n:!&@$%^&.]" global) " "
+        remQuot = replace (unsafeRegex "'(\\w+)'" global) "$1"
+        aggWhite = replace (unsafeRegex " +" global) " "
+
+freq :: Array String -> StrMap Int
+freq = foldl mupd empty
+  where mupd acc word = alter cupd word acc
+        cupd = maybe 1 ((+) 1) >>> Just
+
+wordCount :: String -> StrMap Int
+wordCount = prepare >>> freq

data/tracks/purescript/exercises/word-count/src/WordCount.purs

@@ -0,0 +1,3 @@
+module WordCount
+  ( wordCount
+  ) where

data/tracks/purescript/exercises/word-count/test/Main.purs

@@ -0,0 +1,89 @@
+module Test.Main where
+
+import Prelude
+import Test.Unit.Assert as Assert
+import Control.Monad.Eff (Eff)
+import Data.StrMap (fromFoldable)
+import Data.Tuple (Tuple(..))
+import Test.Unit (suite, test)
+import Test.Unit.Main (runTest)
+import WordCount (wordCount)
+
+main :: Eff _ Unit
+main = runTest do
+  suite "WordCount.wordCount" do
+
+    test "count one word" $
+      Assert.equal (fromFoldable [Tuple "word" 1])
+                   (wordCount "word")
+
+    test "count one of each word" $
+      Assert.equal (fromFoldable [ Tuple "one" 1
+                                 , Tuple "of" 1
+                                 , Tuple "each" 1
+                                 ])
+                   (wordCount "one of each")
+
+    test "multiple occurrences of a word" $
+      Assert.equal (fromFoldable [ Tuple "one" 1
+                                 , Tuple "fish" 4
+                                 , Tuple "two" 1
+                                 , Tuple "red" 1
+                                 , Tuple "blue" 1
+                                 ])
+                   (wordCount "one fish two fish red fish blue fish")
+    
+    test "handles cramped lists" $
+      Assert.equal (fromFoldable [ Tuple "one" 1
+                                 , Tuple "two" 1
+                                 , Tuple "three" 1
+                                 ])
+                   (wordCount "one,two,three")
+    
+    test "handles expanded lists" $
+      Assert.equal (fromFoldable [ Tuple "one" 1
+                                 , Tuple "two" 1
+                                 , Tuple "three" 1
+                                 ])
+                   (wordCount "one,\ntwo,\nthree")
+    
+    test "ignore punctuation" $
+      Assert.equal (fromFoldable [ Tuple "car" 1
+                                 , Tuple "carpet" 1
+                                 , Tuple "as" 1
+                                 , Tuple "java" 1
+                                 , Tuple "javascript" 1
+                                 ])
+                   (wordCount "car: carpet as java: javascript!!&@$%^&")
+    
+    test "include numbers" $
+      Assert.equal (fromFoldable [ Tuple "testing" 2
+                                 , Tuple "1" 1
+                                 , Tuple "2" 1
+                                 ])
+                   (wordCount "testing, 1, 2 testing")
+    
+    test "normalize case" $
+      Assert.equal (fromFoldable [ Tuple "go" 3
+                                 , Tuple "stop" 2
+                                 ])
+                   (wordCount "go Go GO Stop stop")
+    
+    test "with apostrophes" $
+      Assert.equal (fromFoldable [ Tuple "first" 1
+                                 , Tuple "don't" 2
+                                 , Tuple "laugh" 1
+                                 , Tuple "then" 1
+                                 , Tuple "cry" 1
+                                 ])
+                   (wordCount "First: don't laugh. Then: don't cry.")
+    
+    test "with quotations" $
+      Assert.equal (fromFoldable [ Tuple "joe" 1
+                                 , Tuple "can't" 1
+                                 , Tuple "tell" 1
+                                 , Tuple "between" 1
+                                 , Tuple "large" 2
+                                 , Tuple "and" 1
+                                 ])
+                   (wordCount "Joe can't tell between 'large' and large.")

data/tracks/python/exercises/accumulate/accumulate.py

@@ -0,0 +1,2 @@
+def accumulate():
+    pass

data/tracks/python/exercises/acronym/acronym.py

@@ -0,0 +1,2 @@
+def abbreviate():
+    pass

data/tracks/python/exercises/allergies/allergies.py

@@ -0,0 +1,3 @@
+class Allergies(object):
+    def __init__(self):
+        pass

data/tracks/python/exercises/allergies/example.py

@@ -1,4 +1,4 @@
-class Allergies:
+class Allergies(object):
 
     _allergies = [
         "eggs",

data/tracks/python/exercises/anagram/anagram.py

@@ -0,0 +1,2 @@
+def detect_anagrams():
+    pass

data/tracks/python/exercises/atbash-cipher/atbash_cipher.py

@@ -0,0 +1,6 @@
+def encode():
+    pass
+
+
+def decode():
+    pass