trackler 1.0.0 → 1.0.0.1

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

@@ -67,6 +67,8 @@
 		E951B6B91D429550009EB5B6 /* AllergiesTest.m in Sources */ = {isa = PBXBuildFile; fileRef = E951B6B81D429550009EB5B6 /* AllergiesTest.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 */; };
+		E9A7B2F91DA5AC55009056B6 /* LargestSeriesProductTest.m in Sources */ = {isa = PBXBuildFile; fileRef = E9A7B2F81DA5AC55009056B6 /* LargestSeriesProductTest.m */; };
 		E9C1C0231D9D993E0015E86E /* SecretHandshakeExample.m in Sources */ = {isa = PBXBuildFile; fileRef = E9C1C0221D9D993E0015E86E /* SecretHandshakeExample.m */; };
 		E9C1C0251D9D99620015E86E /* SecretHandshakeTest.m in Sources */ = {isa = PBXBuildFile; fileRef = E9C1C0241D9D99620015E86E /* SecretHandshakeTest.m */; };
 		E9C1C0291D9DB16B0015E86E /* AcronymExample.m in Sources */ = {isa = PBXBuildFile; fileRef = E9C1C0281D9DB16B0015E86E /* AcronymExample.m */; };
@@ -149,6 +151,9 @@
 		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>"; };
+		E9A7B2F51DA5AC37009056B6 /* LargestSeriesProductExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = LargestSeriesProductExample.h; path = "../../exercises/largest-series-product/LargestSeriesProductExample.h"; sourceTree = "<group>"; };
+		E9A7B2F61DA5AC37009056B6 /* LargestSeriesProductExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = LargestSeriesProductExample.m; path = "../../exercises/largest-series-product/LargestSeriesProductExample.m"; sourceTree = "<group>"; };
+		E9A7B2F81DA5AC55009056B6 /* LargestSeriesProductTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = LargestSeriesProductTest.m; path = "../../exercises/largest-series-product/LargestSeriesProductTest.m"; sourceTree = "<group>"; };
 		E9C1C0211D9D993E0015E86E /* SecretHandshakeExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = SecretHandshakeExample.h; path = "../../exercises/secret-handshake/SecretHandshakeExample.h"; sourceTree = "<group>"; };
 		E9C1C0221D9D993E0015E86E /* SecretHandshakeExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = SecretHandshakeExample.m; path = "../../exercises/secret-handshake/SecretHandshakeExample.m"; sourceTree = "<group>"; };
 		E9C1C0241D9D99620015E86E /* SecretHandshakeTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = SecretHandshakeTest.m; path = "../../exercises/secret-handshake/SecretHandshakeTest.m"; sourceTree = "<group>"; };
@@ -189,6 +194,7 @@
 				E9E8B6EE1D519DFE0012F12C /* GradeSchool */,
 				E9E8B6EF1D519E040012F12C /* Hamming */,
 				E9E8B6F01D519E0B0012F12C /* HelloWorld */,
+				E9A7B2F41DA5ABA3009056B6 /* LargestSeriesProduct */,
 				E9E8B6F11D519E120012F12C /* Leap */,
 				E92FCC0A1D78F2AA00061017 /* Meetup */,
 				E9E8B6F21D519E180012F12C /* NucleotideCount */,
@@ -305,6 +311,16 @@
 			name = SumOfMultiples;
 			sourceTree = "<group>";
 		};
+		E9A7B2F41DA5ABA3009056B6 /* LargestSeriesProduct */ = {
+			isa = PBXGroup;
+			children = (
+				E9A7B2F51DA5AC37009056B6 /* LargestSeriesProductExample.h */,
+				E9A7B2F61DA5AC37009056B6 /* LargestSeriesProductExample.m */,
+				E9A7B2F81DA5AC55009056B6 /* LargestSeriesProductTest.m */,
+			);
+			name = LargestSeriesProduct;
+			sourceTree = "<group>";
+		};
 		E9C1C0201D9D98B80015E86E /* SecretHandshake */ = {
 			isa = PBXGroup;
 			children = (
@@ -595,6 +611,7 @@
 				1EFACAB51CCCAF3D006F2E69 /* PhoneNumberExample.m in Sources */,
 				E951B6B91D429550009EB5B6 /* AllergiesTest.m in Sources */,
 				E9381D461D8EDFFA003F22A1 /* DifferenceOfSquaresExample.m in Sources */,
+				E9A7B2F71DA5AC37009056B6 /* LargestSeriesProductExample.m in Sources */,
 				E907D0CA1D6B731600106C42 /* GigasecondExample.m in Sources */,
 				E9381D521D8F2DCC003F22A1 /* ClockExample.m in Sources */,
 				E99D1D811D5533BF0006A303 /* SumOfMultiplesExample.m in Sources */,
@@ -631,6 +648,7 @@
 				E947A4DE1D81FE0F00633720 /* TriangleExample.m in Sources */,
 				1EFACAAC1CCCAF3D006F2E69 /* HammingTest.m in Sources */,
 				1EFACAA61CCCAF3D006F2E69 /* BobTest.m in Sources */,
+				E9A7B2F91DA5AC55009056B6 /* LargestSeriesProductTest.m in Sources */,
 				1EFACAAF1CCCAF3D006F2E69 /* LeapExample.m in Sources */,
 				E9C1C0251D9D99620015E86E /* SecretHandshakeTest.m in Sources */,
 				E99D1D831D5533D80006A303 /* SumOfMultiplesTest.m in Sources */,

data/tracks/ocaml/.travis-ci.sh

@@ -0,0 +1,23 @@
+# Edit this for your own project dependencies
+OPAM_DEPENDS="ocamlfind core ounit react"
+
+case "$OCAML_VERSION,$OPAM_VERSION" in
+    4.03.0,1.2.2) ppa=avsm/ocaml42+opam12 ;;
+    *) echo Unknown $OCAML_VERSION,$OPAM_VERSION; exit 1 ;;
+esac
+
+echo "yes" | sudo add-apt-repository ppa:$ppa
+sudo apt-get update -qq
+sudo apt-get install -qq ocaml ocaml-native-compilers camlp4-extra opam
+export OPAMYES=1
+export OPAMVERBOSE=1
+echo OCaml version
+ocaml -version
+echo OPAM versions
+opam --version
+opam --git-version
+
+opam init
+opam install ${OPAM_DEPENDS}
+eval `opam config env`
+make test

data/tracks/ocaml/.travis.yml

@@ -1,5 +1,9 @@
-language: bash
+language: c
 
 script:
+  - bash -ex .travis-ci.sh
   - bin/fetch-configlet
   - bin/configlet .
+
+env:
+  - OCAML_VERSION=4.03.0 OPAM_VERSION=1.2.2

data/tracks/ocaml/Makefile

@@ -0,0 +1,41 @@
+# assignments
+ASSIGNMENT ?= ""
+ASSIGNMENTS = $(shell find ./exercises -maxdepth 1 -mindepth 1 -type d | awk -F/ '{print $$NF}' | sort)
+
+default: test
+
+# output directories
+TMPDIR ?= "/tmp/"
+OUTDIR := $(shell mktemp -d "$(TMPDIR)$(ASSIGNMENT).XXXXXXXXXX")
+
+# language specific config (tweakable per language)
+FILEEXT := "ml"
+EXAMPLE := "example.$(FILEEXT)"
+SRCFILE := "$(shell echo $(ASSIGNMENT) | sed 's/-/_/g')"
+TSTFILE := "$(SRCFILE)_test.$(FILEEXT)"
+# Any additional arguments, such as -p for pretty output and others
+ARGS ?= ""
+
+# single test
+test-assignment:
+	@echo ""
+	@echo ""
+	@echo "----------------------------------------------------------------"
+	@echo "running tests for: $(ASSIGNMENT)"
+	@cp -r ./exercises/$(ASSIGNMENT)/* $(OUTDIR)
+	@cp ./exercises/$(ASSIGNMENT)/$(EXAMPLE) $(OUTDIR)/$(SRCFILE).$(FILEEXT)
+	@make -C $(OUTDIR)
+	@rm -rf $(OUTDIR)
+
+# all tests
+test:
+	@for assignment in $(ASSIGNMENTS); do \
+		ASSIGNMENT=$$assignment $(MAKE) -s test-assignment || exit 1;\
+	done
+
+clean:
+	@for assignment in $(ASSIGNMENTS); do \
+		make -C ./exercises/$$assignment clean;\
+	done
+
+.PHONY: clean

data/tracks/ocaml/config.json

@@ -6,6 +6,7 @@
   "problems": [
     "hello-world",
     "bob",
+    "difference-of-squares",
     "list-ops",
     "leap",
     "word-count",
@@ -13,6 +14,7 @@
     "beer-song",
     "nucleotide-count",
     "rna-transcription",
+    "raindrops",
     "hamming",
     "phone-number",
     "grade-school",
@@ -24,6 +26,7 @@
     "prime-factors",
     "hexadecimal",
     "luhn",
+    "say",
     "zipper",
     "hangman"
   ],
@@ -38,6 +41,11 @@
       "difficulty": 1,
       "topics": []
     },
+    {
+      "slug": "difference-of-squares",
+      "difficulty": 1,
+      "topics": []
+    },
     {
       "slug": "list-ops",
       "difficulty": 1,
@@ -73,6 +81,11 @@
       "difficulty": 1,
       "topics": []
     },
+    {
+      "slug": "raindrops",
+      "difficulty": 1,
+      "topics": []
+    },
     {
       "slug": "hamming",
       "difficulty": 1,
@@ -128,6 +141,11 @@
       "difficulty": 1,
       "topics": []
     },
+    {
+      "slug": "say",
+      "difficulty": 1,
+      "topics": []
+    },
     {
       "slug": "zipper",
       "difficulty": 1,

data/tracks/ocaml/exercises/anagram/Makefile

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

data/tracks/ocaml/exercises/beer-song/Makefile

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

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

@@ -21,4 +21,4 @@ let verse = function
 let sing ~from:from ~until:until =
     List.map (List.range ~stride:(-1) ~stop:`inclusive from until)
              ~f:(fun n -> verse n ^ "\n")
-    |> String.concat
+    |> String.concat ~sep:""

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

@@ -1,27 +1,28 @@
 open Core.Std
 open OUnit2
+open Beer_song
 
 let ae exp got = assert_equal ~printer:String.to_string exp got
 
 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 (Beer.verse 8));
+     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 (Beer.verse 1));
+     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 (Beer.verse 2));
+     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 (Beer.verse 0));
+     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 (Beer.sing ~from:8 ~until:6));
+     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 (Beer.sing ~from:3 ~until:0))
+     ae exp (sing ~from:3 ~until:0))
   ]
 
 let () =

data/tracks/ocaml/exercises/bob/Makefile

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

data/tracks/ocaml/exercises/bowling/Makefile

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

data/tracks/ocaml/exercises/custom-set/Makefile

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

data/tracks/ocaml/exercises/difference-of-squares/.merlin

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

data/tracks/ocaml/exercises/difference-of-squares/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/difference-of-squares/difference_of_squares.mli

@@ -0,0 +1,8 @@
+(* Square the sum of the numbers up to the given number *)
+val square_of_sum : int -> int
+
+(* Sum the squares of the numbers up to the given number *)
+val sum_of_squares : int -> int
+
+(* Subtract sum of squares from square of sums *)
+val difference_of_squares : int -> int

data/tracks/ocaml/exercises/difference-of-squares/example.ml

@@ -0,0 +1,21 @@
+open Core.Std
+
+let rec range a b =
+  if a > b then
+    []
+  else
+    a :: (range (a + 1) b)
+
+let square_of_sum n =
+  let numbers = (range 1 n) in
+  let sum = (List.fold ~init:0 ~f:(fun s t -> s + t) numbers) in
+  sum * sum
+
+let sum_of_squares n =
+  let numbers = (range 1 n) in
+  let square m = m * m in
+  let squares = (List.map ~f:square numbers) in
+  List.fold ~init:0 ~f:(fun s t -> s + t) squares
+
+let difference_of_squares n =
+  (square_of_sum n) - (sum_of_squares n)

data/tracks/ocaml/exercises/difference-of-squares/test.ml

@@ -0,0 +1,32 @@
+open Core.Std
+open OUnit2
+open Difference_of_squares
+
+let ae exp got _test_ctxt = assert_equal exp got
+
+let tests =
+  [
+    "square of sum 5">::
+    ae 225 (square_of_sum 5);
+    "square of sum 10">::
+    ae 3025 (square_of_sum 10);
+    "square of sum 100">::
+    ae 25502500 (square_of_sum 100);
+    "sum of squares 5">::
+    ae 55 (sum_of_squares 5);
+    "sum of squares 10">::
+    ae 385 (sum_of_squares 10);
+    "sum of squares 5">::
+    ae 338350 (sum_of_squares 100);
+    "difference of squares 0">::
+    ae 0 (difference_of_squares 0);
+    "difference of squares 5">::
+    ae 170 (difference_of_squares 5);
+    "difference of squares 10">::
+    ae 2640 (difference_of_squares 10);
+    "difference of squares 100">::
+    ae 25164150 (difference_of_squares 100);
+]
+
+let () =
+  run_test_tt_main ("difference of squares tests" >::: tests)

data/tracks/ocaml/exercises/grade-school/Makefile

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

data/tracks/ocaml/exercises/grade-school/test.ml

@@ -20,7 +20,7 @@ let ame exp got =
 
 (* The tests never reuse a school value, so if you like you can use destructive
  * modification (i.e. mutable data structures). For the same reason
- * School.create takes a unit argument.
+ * Grade_school.create takes a unit argument.
  *
  * For those who wonder why the test doesn't use objects, it's to not force
  * the use of objects. You can still use them internally though. 
@@ -28,45 +28,45 @@ let ame exp got =
 
 let tests =
   ["add student">:: (fun _ ->
-       let got = School.create ()
-                 |> School.add "Aimee" 2 in
+       let got = Grade_school.create ()
+                 |> Grade_school.add "Aimee" 2 in
        ame (IMap.of_alist_exn [(2, ["Aimee"])])
-           (School.to_map got));
+           (Grade_school.to_map got));
    "add more students in same class">:: (fun _ ->
-       let got = School.create ()
-                 |> School.add "James" 2
-                 |> School.add "Blair" 2
-                 |> School.add "Paul" 2 in
+       let got = Grade_school.create ()
+                 |> Grade_school.add "James" 2
+                 |> Grade_school.add "Blair" 2
+                 |> Grade_school.add "Paul" 2 in
        ame (IMap.of_alist_exn [(2, ["Blair"; "James"; "Paul"])])
-           (School.to_map got |> Map.map ~f:(List.sort ~cmp:compare)));
+           (Grade_school.to_map got |> Map.map ~f:(List.sort ~cmp:compare)));
    "add students to different grades">:: (fun _ ->
-       let got = School.create ()
-                 |> School.add "Chelsea" 3
-                 |> School.add "Logan" 7 in
+       let got = Grade_school.create ()
+                 |> Grade_school.add "Chelsea" 3
+                 |> Grade_school.add "Logan" 7 in
        ame (IMap.of_alist_exn [(3, ["Chelsea"]); (7, ["Logan"])])
-           (School.to_map got |> Map.map ~f:(List.sort ~cmp:compare)));
+           (Grade_school.to_map got |> Map.map ~f:(List.sort ~cmp:compare)));
    "get students in a grade">:: (fun _ ->
-       let got = School.create ()
-                 |> School.add "Franklin" 5
-                 |> School.add "Bradley" 5
-                 |> School.add "Jeff" 1
-                 |> School.grade 5 in
+       let got = Grade_school.create ()
+                 |> Grade_school.add "Franklin" 5
+                 |> Grade_school.add "Bradley" 5
+                 |> Grade_school.add "Jeff" 1
+                 |> Grade_school.grade 5 in
        ale ["Bradley"; "Franklin"]
            (List.sort ~cmp:compare got));
    "get students in a non existant grade">:: (fun _ ->
-       ale [] (List.sort ~cmp:compare (School.create () |> School.grade 2)));
+       ale [] (List.sort ~cmp:compare (Grade_school.create () |> Grade_school.grade 2)));
    "sort school">:: (fun _ ->
-       let got = School.create ()
-                 |> School.add "Christopher" 4
-                 |> School.add "Jennifer" 4
-                 |> School.add "Aaron" 4
-                 |> School.add "Kareem" 6
-                 |> School.add "Kyle" 3
-                 |> School.sort in
+       let got = Grade_school.create ()
+                 |> Grade_school.add "Christopher" 4
+                 |> Grade_school.add "Jennifer" 4
+                 |> Grade_school.add "Aaron" 4
+                 |> Grade_school.add "Kareem" 6
+                 |> Grade_school.add "Kyle" 3
+                 |> Grade_school.sort in
        ame (IMap.of_alist_exn [(3, ["Kyle"]);
                                (4, ["Aaron"; "Christopher"; "Jennifer"]);
                                (6, ["Kareem"])])
-           (School.to_map got));
+           (Grade_school.to_map got));
   ]
 
 let () =