trackler 1.0.0 → 1.0.0.1

data/tracks/ocaml/exercises/hamming/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/hangman/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/hello-world/Makefile

@@ -6,6 +6,6 @@ test.native: *.ml *.ml
 
 clean:
 	rm -rf _build
-	rm test.native
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/hello-world/test.ml

@@ -1,6 +1,6 @@
 open Core.Std
 open OUnit2
-open Hello
+open Hello_world
 
 let ae exp got _test_ctxt = assert_equal ~printer:String.to_string exp got
 

data/tracks/ocaml/exercises/hexadecimal/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/leap/Makefile

@@ -6,6 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
-	rm test.native
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/list-ops/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/luhn/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/minesweeper/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/nucleotide-count/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

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

@@ -14,23 +14,23 @@ let ame exp got =
 
 let tests =
   ["empty dna string has no adenine">::
-    aie 0 (Dna.count "" 'A');
+    aie 0 (Nucleotide_count.count "" 'A');
    "empty dna string has no nucleotides">:: (fun _ ->
     let exp = CMap.empty in
-    ame exp (Dna.nucleotide_counts ""));
+    ame exp (Nucleotide_count.nucleotide_counts ""));
    "repetitive cytosine gets counted">::
-    aie 5 (Dna.count "CCCCC" 'C');
+    aie 5 (Nucleotide_count.count "CCCCC" 'C');
    "repetitive sequence has only guanine">:: (fun _ ->
     let exp = CMap.singleton 'G' 8 in
-    ame exp (Dna.nucleotide_counts "GGGGGGGG"));
+    ame exp (Nucleotide_count.nucleotide_counts "GGGGGGGG"));
    "counts only thymine">::
-    aie 1 (Dna.count "GGGGGTAACCCGG" 'T');
+    aie 1 (Nucleotide_count.count "GGGGGTAACCCGG" 'T');
    "dna has no uracil">::
-    aie 0 (Dna.count "GATTACA" 'U');
+    aie 0 (Nucleotide_count.count "GATTACA" 'U');
    "counts all nucleotides">:: (fun _ ->
     let s = "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC" in
     let exp = CMap.of_alist_exn [('A', 20); ('T', 21); ('C', 12); ('G', 17)] in
-    ame exp (Dna.nucleotide_counts s))
+    ame exp (Nucleotide_count.nucleotide_counts s))
   ]
 
 let () =

data/tracks/ocaml/exercises/phone-number/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

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

@@ -10,25 +10,25 @@ let ae exp got _test_ctxt =
 
 let tests =
   ["cleans number">::
-     ae (Some "1234567890") (Phone.number "(123) 456-7890");
+     ae (Some "1234567890") (Phone_number.number "(123) 456-7890");
    "cleans number with dots">::
-     ae (Some "1234567890") (Phone.number "123.456.7890");
+     ae (Some "1234567890") (Phone_number.number "123.456.7890");
    "valid when 11 digits and first is 1">::
-     ae (Some "1234567890") (Phone.number "11234567890");
+     ae (Some "1234567890") (Phone_number.number "11234567890");
    "invalid when 11 digits">::
-     ae None (Phone.number "21234567890");
+     ae None (Phone_number.number "21234567890");
    "invalid when 9 digits">::
-     ae None (Phone.number "123456789");
+     ae None (Phone_number.number "123456789");
    "area code">::
-     ae (Some "123") (Phone.area_code "1234567890");
+     ae (Some "123") (Phone_number.area_code "1234567890");
    "area code of invalid number">::
-     ae None (Phone.area_code "1234567890123");
+     ae None (Phone_number.area_code "1234567890123");
    "pretty print">::
-     ae (Some "(123) 456-7890") (Phone.pretty "1234567890");
+     ae (Some "(123) 456-7890") (Phone_number.pretty "1234567890");
    "pretty print with full us phone number">::
-     ae (Some "(123) 456-7890") (Phone.pretty "11234567890");
+     ae (Some "(123) 456-7890") (Phone_number.pretty "11234567890");
    "pretty print invalid number">::
-     ae None (Phone.pretty "123456789");
+     ae None (Phone_number.pretty "123456789");
   ]
 
 let () =

data/tracks/ocaml/exercises/point-mutations/Makefile

@@ -0,0 +1,8 @@
+deprecated:
+	@echo "point-mutation is deprecated"
+
+clean:
+	rm -rf _build
+	rm -f test.native
+
+.PHONY: clean

data/tracks/ocaml/exercises/prime-factors/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/raindrops/.merlin

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

data/tracks/ocaml/exercises/raindrops/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/raindrops/example.ml

@@ -0,0 +1,11 @@
+open Core.Std
+
+let raindrop = function
+  | n when n mod 105 = 0 -> "PlingPlangPlong"
+  | n when n mod 35 = 0 -> "PlangPlong"
+  | n when n mod 21 = 0 -> "PlingPlong"
+  | n when n mod 15 = 0 -> "PlingPlang"
+  | n when n mod 7 = 0 -> "Plong"
+  | n when n mod 5 = 0 -> "Plang"
+  | n when n mod 3 = 0 -> "Pling"
+  | n -> string_of_int n

data/tracks/ocaml/exercises/raindrops/raindrops.mli

@@ -0,0 +1,7 @@
+(*
+    If the number contains 3 as a factor, output 'Pling'.
+    If the number contains 5 as a factor, output 'Plang'.
+    If the number contains 7 as a factor, output 'Plong'.
+    If the number does not contain 3, 5, or 7 as a factor, just pass the number's digits straight through.
+*)
+val raindrop : int -> string

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

@@ -0,0 +1,48 @@
+open Core.Std
+open OUnit2
+open Raindrops
+
+let ae exp got _test_ctxt = assert_equal exp got
+
+let tests =
+  [
+    "raindrop 1">::
+    ae "1" (raindrop 1);
+    "raindrop 3">::
+    ae "Pling" (raindrop 3);
+    "raindrop 5">::
+    ae "Plang" (raindrop 5);
+    "raindrop 7">::
+    ae "Plong" (raindrop 7);
+    "raindrop 6">::
+    ae "Pling" (raindrop 6);
+    "raindrop 8">::
+    ae "8" (raindrop 8);
+    "raindrop 9">::
+    ae "Pling" (raindrop 9);
+    "raindrop 10">::
+    ae "Plang" (raindrop 10);
+    "raindrop 14">::
+    ae "Plong" (raindrop 14);
+    "raindrop 15">::
+    ae "PlingPlang" (raindrop 15);
+    "raindrop 21">::
+    ae "PlingPlong" (raindrop 21);
+    "raindrop 25">::
+    ae "Plang" (raindrop 25);
+    "raindrop 27">::
+    ae "Pling" (raindrop 27);
+    "raindrop 35">::
+    ae "PlangPlong" (raindrop 35);
+    "raindrop 49">::
+    ae "Plong" (raindrop 49);
+    "raindrop 52">::
+    ae "52" (raindrop 52);
+    "raindrop 105">::
+    ae "PlingPlangPlong" (raindrop 105);
+    "raindrop 3125">::
+    ae "Plang" (raindrop 3125);
+]
+
+let () =
+  run_test_tt_main ("raindrops tests" >::: tests)

data/tracks/ocaml/exercises/rna-transcription/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/rna-transcription/test.ml

@@ -8,18 +8,18 @@ let ae exp got _test_ctxt = assert_equal ~printer exp got
 
 let tests =
   ["transcribes empty list">::
-    ae [] (Dna.to_rna []);
+    ae [] (Rna_transcription.to_rna []);
    "transcribes cytidine">::
-    ae [`G] (Dna.to_rna [`C]);
+    ae [`G] (Rna_transcription.to_rna [`C]);
    "transcribes guanosine">::
-    ae [`C] (Dna.to_rna [`G]);
+    ae [`C] (Rna_transcription.to_rna [`G]);
    "transcribes adenosie">::
-    ae [`U] (Dna.to_rna [`A]);
+    ae [`U] (Rna_transcription.to_rna [`A]);
    "transcribes thymidine">::
-    ae [`A] (Dna.to_rna [`T]);
+    ae [`A] (Rna_transcription.to_rna [`T]);
    "transcribes multiple">::
     ae [`U; `G; `C; `A; `C; `C; `A; `G; `A; `A; `U; `U]
-       (Dna.to_rna [`A; `C; `G; `T; `G; `G; `T; `C; `T; `T; `A; `A])
+       (Rna_transcription.to_rna [`A; `C; `G; `T; `G; `G; `T; `C; `T; `T; `A; `A])
   ]
 
 let () =

data/tracks/ocaml/exercises/roman-numerals/Makefile

@@ -6,5 +6,6 @@ test.native: *.ml *.mli
 
 clean:
 	rm -rf _build
+	rm -f test.native
 
 .PHONY: clean

data/tracks/ocaml/exercises/say/.gitignore

@@ -0,0 +1 @@
+*~

data/tracks/ocaml/exercises/say/.merlin

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

data/tracks/ocaml/exercises/say/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/say/example.ml

@@ -0,0 +1,52 @@
+open Core.Std
+
+let rec in_english_impl = let open Int64 in function
+  | 0L -> "zero"
+  | 1L -> "one"
+  | 2L -> "two"
+  | 3L -> "three"
+  | 4L -> "four"
+  | 5L -> "five"
+  | 6L -> "six"
+  | 7L -> "seven"
+  | 8L -> "eight"
+  | 9L -> "nine"
+  | 10L -> "ten"
+  | 11L -> "eleven"
+  | 12L -> "twelve"
+  | 13L -> "thirteen"
+  | 14L -> "fourteen"
+  | 15L -> "fifteen"
+  | 16L -> "sixteen"
+  | 17L -> "seventeen"
+  | 18L -> "eighteen"
+  | 19L -> "nineteen"
+  | 20L -> "twenty"
+  | 30L -> "thirty"
+  | 40L -> "forty"
+  | 50L -> "fifty"
+  | 60L -> "sixty"
+  | 70L -> "seventy"
+  | 80L -> "eighty"
+  | 90L -> "ninety"
+  | n when n <= 99L ->
+     in_english_impl (10L * (n / 10L)) ^ "-" ^ in_english_impl (n % 10L)
+  | n when n <= 999L ->
+     in_english_impl (n / 100L) ^ " hundred" ^
+       let rem = n % 100L in
+       if rem = 0L then "" else " " ^ in_english_impl rem
+  | n when n <= 999_999L ->
+     in_english_impl (n / 1_000L) ^ " thousand" ^
+       let rem = n % 1_000L in
+       if rem = 0L then "" else " " ^ in_english_impl rem
+  | n when n <= 999_999_999L ->
+     in_english_impl (n / 1_000_000L) ^ " million" ^
+       let rem = n % 1_000_000L in
+       if rem = 0L then "" else " " ^ in_english_impl rem
+  | n ->
+     in_english_impl (n / 1_000_000_000L) ^ " billion" ^
+       let rem = n % 1_000_000_000L in
+       if rem = 0L then "" else " " ^ in_english_impl rem
+
+let in_english n =
+  if n < 0L || n >= 1_000_000_000_000L then None else Some (in_english_impl n)

data/tracks/ocaml/exercises/say/say.mli

@@ -0,0 +1,8 @@
+(* Spells out a number from 0 to 999,999,999,999 in English.
+
+   If the input is outside that range, then None is returned.
+
+   E.g in_english 100L = Some "one hundred"
+       in_english (-1)L = None
+ *)
+val in_english : int64 -> string option

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

@@ -0,0 +1,65 @@
+open Core.Std
+open OUnit2
+open Say
+
+(* A wrapper around the assert_equal function from oUnit to reduce the test
+   boilerplate. *)
+let say_test exp n =
+  exp>::(fun _ctx ->
+    assert_equal ~printer:(Option.value ~default:"None")
+      (Some exp) (in_english n))
+
+let tests = [
+  "cannot say numbers below 0">::(fun _ ->
+    assert_bool "-1" (in_english (-1L) |> Option.is_none));
+  "cannot say numbers above 1 trillion">::(fun _ ->
+    assert_bool "1 trillion"
+      (in_english 1_000_000_000_000L |> Option.is_none));
+  say_test "zero" 0L;
+  say_test "one" 1L;
+  say_test "two" 2L;
+  say_test "three" 3L;
+  say_test "seven" 7L;
+  say_test "ten" 10L;
+  say_test "eleven" 11L;
+  say_test "twelve" 12L;
+  say_test "thirteen" 13L;
+  say_test "fourteen" 14L;
+  say_test "fifteen" 15L;
+  say_test "sixteen" 16L;
+  say_test "seventeen" 17L;
+  say_test "eighteen" 18L;
+  say_test "nineteen" 19L;
+  say_test "twenty" 20L;
+  say_test "twenty-four" 24L;
+  say_test "thirty" 30L;
+  say_test "thirty-five" 35L;
+  say_test "forty-eight" 48L;
+  say_test "fifty-seven" 57L;
+  say_test "sixty" 60L;
+  say_test "seventy-one" 71L;
+  say_test "eighty-three" 83L;
+  say_test "ninety-nine" 99L;
+  say_test "one hundred" 100L;
+  say_test "one hundred five" 105L;
+  say_test "four hundred eighty-five" 485L;
+  say_test "nine hundred ninety-nine" 999L;
+  say_test "one thousand" 1000L;
+  say_test "one thousand two" 1002L;
+  say_test "one thousand three hundred twenty-three" 1323L;
+  say_test "eight thousand seven hundred eleven" 8711L;
+  say_test "nine hundred fifty-eight thousand one hundred forty-five" 958145L;
+  say_test "one million" 1_000_000L;
+  say_test "one billion" 1_000_000_000L;
+  say_test ("nine hundred eighty-seven billion six hundred fifty-four " ^
+      "million three hundred twenty-one thousand one hundred " ^
+      "twenty-three") 987_654_321_123L;
+  "all numbers from 1 to 10_000 can be spelt">::(fun _ ->
+    assert_bool "range test" (Sequence.range 0 10_000
+      |> Sequence.map ~f:(fun n -> Int64.of_int n |> in_english)
+      |> Sequence.filter ~f:(Option.is_none)
+      |> Sequence.is_empty));
+  ]
+
+let () =
+  run_test_tt_main ("say tests" >::: tests)