trackler 1.0.4.0 → 1.0.4.1

data/tracks/haskell/exercises/zebra-puzzle/stack.yaml

@@ -0,0 +1 @@
+resolver: nightly-2016-07-17

data/tracks/haskell/exercises/zebra-puzzle/test/Tests.hs

@@ -0,0 +1,13 @@
+import Test.Hspec        (Spec, describe, it, shouldBe)
+import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
+
+import ZebraPuzzle (Resident(..), Solution(..), solve)
+
+main :: IO ()
+main = hspecWith defaultConfig {configFastFail = True} specs
+
+specs :: Spec
+specs = describe "zebra-puzzle" $
+          it "solve" $ solve `shouldBe` Solution { waterDrinker = Norwegian
+                                                 , zebraOwner   = Japanese  }
+

data/tracks/javascript/exercises/beer-song/beer-song.spec.js

@@ -8,6 +8,11 @@ describe('BeerSong', function() {
     expect(song.verse(8)).toEqual(expected);
   });
 
+  xit('handles 2 bottles', function() {
+    var expected = '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';
+    expect(song.verse(2)).toEqual(expected);
+  });
+
   xit('handles 1 bottle', function() {
     var expected = '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';
     expect(song.verse(1)).toEqual(expected);

data/tracks/lisp/config.json

@@ -34,6 +34,153 @@
     "crypto-square",
     "trinary"
   ],
+  "exercises": [
+    {
+      "slug": "hamming",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "leap",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "grains",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "gigasecond",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "bob",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "rna-transcription",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "robot-name",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "word-count",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "raindrops",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "grade-school",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "phone-number",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "etl",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "beer-song",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "space-age",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "anagram",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "nucleotide-count",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "meetup",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "triangle",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "difference-of-squares",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "roman-numerals",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "scrabble-score",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "binary",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "allergies",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "sieve",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "strain",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "atbash-cipher",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "prime-factors",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "crypto-square",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "trinary",
+      "difficulty": 1,
+      "topics": []
+    }
+  ],
   "deprecated": [
 
   ],

data/tracks/ocaml/config.json

@@ -26,8 +26,10 @@
     "prime-factors",
     "etl",
     "hexadecimal",
+    "atbash-cipher",
     "luhn",
     "say",
+    "meetup",
     "zipper",
     "hangman"
   ],
@@ -142,6 +144,11 @@
       "difficulty": 1,
       "topics": []
     },
+    {
+      "slug": "atbash-cipher",
+      "difficulty": 1,
+      "topics": []
+    },
     {
       "slug": "luhn",
       "difficulty": 1,
@@ -152,6 +159,11 @@
       "difficulty": 1,
       "topics": []
     },
+    {
+      "slug": "meetup",
+      "difficulty": 1,
+      "topics": ["Dates"]
+    },
     {
       "slug": "zipper",
       "difficulty": 1,

data/tracks/ocaml/exercises/atbash-cipher/.merlin

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

data/tracks/ocaml/exercises/atbash-cipher/HINTS.md

@@ -0,0 +1,17 @@
+## Deprecation of String.lowercase
+Depending on the version of OCaml you installed the use of `String.lowercase` is
+frowned upon. Since version 4.03.0 `String.lowercase` is deprecated in favor of
+`String.lowercase_ascii`. So instead of writing 
+
+```ocaml
+String.lowercase "Hello, World!"
+```
+
+use
+
+```ocaml
+String.lowercase_ascii "Hello, World!"
+```
+
+See [String documentation](http://caml.inria.fr/pub/docs/manual-ocaml/libref/String.html) 
+for more useful functions.

data/tracks/ocaml/exercises/atbash-cipher/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/atbash-cipher/atbash_cipher.mli

@@ -0,0 +1,5 @@
+(* Encoding from English to atbash cipher. The default for block_size is 5 *)
+val encode : ?block_size:int -> string -> string
+
+(* Decoding from atbash to English *)
+val decode : string -> string

data/tracks/ocaml/exercises/atbash-cipher/example.ml

@@ -0,0 +1,47 @@
+open Core.Std
+
+let substitute = function
+  | 'a' .. 'z' as c ->
+    let offset = (Char.to_int c) - (Char.to_int 'a') in
+    let code = (Char.to_int 'z') - offset in
+    Char.of_int_exn code
+  | other -> other
+
+let is_encodable = function
+  | 'a' .. 'z' | '0' .. '9' -> true
+  | _ -> false
+
+let explode s =
+  let rec expl i l =
+    if i < 0 then
+      l
+    else
+      expl (i - 1) (s.[i] :: l)
+  in
+  expl ((String.length s) - 1) []
+
+let implode l =
+  let character_at i = List.nth_exn l i in
+  String.init (List.length l) character_at
+
+let rec group n l =
+  if (List.length l) <= n then
+    [l]
+  else
+    (List.take l n) :: (group n (List.drop l n))
+
+let encode ?block_size:(block_size = 5) text =
+  let lowercase_text = String.lowercase text in
+  let characters = explode lowercase_text in
+  let filtered_characters = List.filter ~f:is_encodable characters in
+  let groups = group block_size filtered_characters in
+  let preprocessed_texts = List.map ~f:implode groups in
+  let texts = List.map ~f:(String.map ~f:substitute) preprocessed_texts in
+  String.concat ~sep:" " texts
+
+let decode text =
+  let lowercase_text = String.lowercase text in
+  let characters = explode lowercase_text in
+  let filtered_characters = List.filter ~f:is_encodable characters in
+  let preprocessed_text = implode filtered_characters in
+  String.map ~f:substitute preprocessed_text

data/tracks/ocaml/exercises/atbash-cipher/test.ml

@@ -0,0 +1,37 @@
+open Core.Std
+open OUnit2
+open Atbash_cipher
+
+let ae exp got _test_ctxt = assert_equal ~printer:String.to_string exp got
+
+let tests =
+  ["encode yes">::
+   ae "bvh" (encode "yes");
+   "encode no">::
+   ae "ml" (encode "no");
+   "encode OMG">::
+   ae "lnt" (encode "OMG");
+   "encode spaces">::
+   ae "lnt" (encode "O M G");
+   "encode mindblowingly">::
+   ae "nrmwy oldrm tob" (encode "mindblowingly");
+   "encode numbers">::
+   ae "gvhgr mt123 gvhgr mt" (encode "Testing,1 2 3, testing.");
+   "encode deep thought">::
+   ae "gifgs rhurx grlm" (encode "Truth is fiction.");
+   "encode all the letters">::
+   ae "gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt" (encode "The quick brown fox jumps over the lazy dog.");
+   "encode ignores non ascii">::
+   ae "mlmzh xrrrt mlivw" (encode "non ascii éignored");
+   "encode mindblowingly with a different block size">::
+   ae "n r m w y o l d r m t o b" (encode ~block_size:1 "mindblowingly");
+   "decode exercism">::
+   ae "exercism" (decode "vcvix rhn");
+   "decode a sentence">::
+   ae "anobstacleisoftenasteppingstone" (decode "zmlyh gzxov rhlug vmzhg vkkrm thglm v");
+   "decode all the letters">::
+   ae "thequickbrownfoxjumpsoverthelazydog" (decode "gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt");
+  ]
+
+let () =
+  run_test_tt_main ("atbash cipher" >::: tests)

data/tracks/ocaml/exercises/meetup/.merlin

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

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

@@ -0,0 +1,63 @@
+open Core.Std
+
+type schedule = First | Second | Third | Fourth | Teenth | Last
+
+type weekday = Monday | Tuesday | Wednesday | Thursday
+             | Friday | Saturday | Sunday
+
+type date = (int * int * int)
+
+let diff_days (d1: weekday) (d2: weekday): int =
+  let weekday_to_int = function
+    | Monday -> 0
+    | Tuesday -> 1
+    | Wednesday -> 2
+    | Thursday -> 3
+    | Friday -> 4
+    | Saturday -> 5
+    | Sunday -> 6 in
+  (weekday_to_int d1 - weekday_to_int d2) % 7
+
+let day_of_week (d: Date.t): weekday = let open Day_of_week in
+  match Date.day_of_week d with
+  | Sun -> Sunday
+  | Mon -> Monday
+  | Tue -> Tuesday
+  | Wed -> Wednesday
+  | Thu -> Thursday
+  | Fri -> Friday
+  | Sat -> Saturday
+
+let schedule_to_int = function
+  | First -> 0
+  | Second -> 1
+  | Third -> 2
+  | Fourth -> 3
+  | Teenth -> 4
+  | Last -> 5
+
+let is_leap_year y =
+  let divides n = y % n = 0 in
+  divides 4 && (not @@ divides 100 || divides 400)
+
+let month_length y = let open Month in function
+  | Feb -> if is_leap_year y then 29 else 28
+  | Apr -> 30
+  | Jun -> 30
+  | Sep -> 30
+  | Nov -> 30
+  | _ -> 31
+
+let meetup_day schedule weekday ~year ~month =
+  let month = Month.of_int_exn month in
+  let base = Date.create_exn ~y:year ~m:month ~d:1 in
+  let calc_offset start = start + diff_days weekday
+        (Date.add_days base start |> day_of_week) in
+  let day = calc_offset @@ match schedule with
+    | Teenth -> 12
+    | Last -> 21 + max 0 (month_length year month - 28)
+    | _ -> 7 * schedule_to_int schedule in
+  let core_date = Date.add_days base day
+  in (Date.year core_date,
+      Date.month core_date |> Month.to_int,
+      Date.day core_date)

data/tracks/ocaml/exercises/meetup/meetup.mli

@@ -0,0 +1,7 @@
+type schedule = First | Second | Third | Fourth | Teenth | Last
+
+type weekday = Monday | Tuesday | Wednesday | Thursday | Friday | Saturday | Sunday
+
+type date = (int * int * int)
+
+val meetup_day : schedule -> weekday -> year:int -> month:int -> date

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

@@ -0,0 +1,786 @@
+open OUnit2
+open Meetup
+open Core.Std
+
+type case = {
+  description: string;
+  year: int;
+  month: int;
+  week: schedule;
+  dayofweek: weekday;
+  dayofmonth: int
+}
+
+let ae exp got _test_ctxt = assert_equal
+  ~printer:(fun (y, m, d) -> sprintf "%d-%02d-%02d" y m d) exp got
+
+let make_test (c: case) =
+  c.description >::
+    ae (c.year, c.month, c.dayofmonth)
+       (meetup_day c.week c.dayofweek ~year:c.year ~month:c.month)
+
+let tests = List.map ~f:make_test [
+  {
+    description = "monteenth of May 2013";
+    year = 2013;
+    month = 5;
+    week = Teenth;
+    dayofweek = Monday;
+    dayofmonth = 13
+  };
+  {
+    description = "monteenth of August 2013";
+    year = 2013;
+    month = 8;
+    week = Teenth;
+    dayofweek = Monday;
+    dayofmonth = 19
+  };
+  {
+    description = "monteenth of September 2013";
+    year = 2013;
+    month = 9;
+    week = Teenth;
+    dayofweek = Monday;
+    dayofmonth = 16
+  };
+  {
+    description = "tuesteenth of March 2013";
+    year = 2013;
+    month = 3;
+    week = Teenth;
+    dayofweek = Tuesday;
+    dayofmonth = 19
+  };
+  {
+    description = "tuesteenth of April 2013";
+    year = 2013;
+    month = 4;
+    week = Teenth;
+    dayofweek = Tuesday;
+    dayofmonth = 16
+  };
+  {
+    description = "tuesteenth of August 2013";
+    year = 2013;
+    month = 8;
+    week = Teenth;
+    dayofweek = Tuesday;
+    dayofmonth = 13
+  };
+  {
+    description = "wednesteenth of January 2013";
+    year = 2013;
+    month = 1;
+    week = Teenth;
+    dayofweek = Wednesday;
+    dayofmonth = 16
+  };
+  {
+    description = "wednesteenth of February 2013";
+    year = 2013;
+    month = 2;
+    week = Teenth;
+    dayofweek = Wednesday;
+    dayofmonth = 13
+  };
+  {
+    description = "wednesteenth of June 2013";
+    year = 2013;
+    month = 6;
+    week = Teenth;
+    dayofweek = Wednesday;
+    dayofmonth = 19
+  };
+  {
+    description = "thursteenth of May 2013";
+    year = 2013;
+    month = 5;
+    week = Teenth;
+    dayofweek = Thursday;
+    dayofmonth = 16
+  };
+  {
+    description = "thursteenth of June 2013";
+    year = 2013;
+    month = 6;
+    week = Teenth;
+    dayofweek = Thursday;
+    dayofmonth = 13
+  };
+  {
+    description = "thursteenth of September 2013";
+    year = 2013;
+    month = 9;
+    week = Teenth;
+    dayofweek = Thursday;
+    dayofmonth = 19
+  };
+  {
+    description = "friteenth of April 2013";
+    year = 2013;
+    month = 4;
+    week = Teenth;
+    dayofweek = Friday;
+    dayofmonth = 19
+  };
+  {
+    description = "friteenth of August 2013";
+    year = 2013;
+    month = 8;
+    week = Teenth;
+    dayofweek = Friday;
+    dayofmonth = 16
+  };
+  {
+    description = "friteenth of September 2013";
+    year = 2013;
+    month = 9;
+    week = Teenth;
+    dayofweek = Friday;
+    dayofmonth = 13
+  };
+  {
+    description = "saturteenth of February 2013";
+    year = 2013;
+    month = 2;
+    week = Teenth;
+    dayofweek = Saturday;
+    dayofmonth = 16
+  };
+  {
+    description = "saturteenth of April 2013";
+    year = 2013;
+    month = 4;
+    week = Teenth;
+    dayofweek = Saturday;
+    dayofmonth = 13
+  };
+  {
+    description = "saturteenth of October 2013";
+    year = 2013;
+    month = 10;
+    week = Teenth;
+    dayofweek = Saturday;
+    dayofmonth = 19
+  };
+  {
+    description = "sunteenth of May 2013";
+    year = 2013;
+    month = 5;
+    week = Teenth;
+    dayofweek = Sunday;
+    dayofmonth = 19
+  };
+  {
+    description = "sunteenth of June 2013";
+    year = 2013;
+    month = 6;
+    week = Teenth;
+    dayofweek = Sunday;
+    dayofmonth = 16
+  };
+  {
+    description = "sunteenth of October 2013";
+    year = 2013;
+    month = 10;
+    week = Teenth;
+    dayofweek = Sunday;
+    dayofmonth = 13
+  };
+  {
+    description = "first Monday of March 2013";
+    year = 2013;
+    month = 3;
+    week = First;
+    dayofweek = Monday;
+    dayofmonth = 4
+  };
+  {
+    description = "first Monday of April 2013";
+    year = 2013;
+    month = 4;
+    week = First;
+    dayofweek = Monday;
+    dayofmonth = 1
+  };
+  {
+    description = "first Tuesday of May 2013";
+    year = 2013;
+    month = 5;
+    week = First;
+    dayofweek = Tuesday;
+    dayofmonth = 7
+  };
+  {
+    description = "first Tuesday of June 2013";
+    year = 2013;
+    month = 6;
+    week = First;
+    dayofweek = Tuesday;
+    dayofmonth = 4
+  };
+  {
+    description = "first Wednesday of July 2013";
+    year = 2013;
+    month = 7;
+    week = First;
+    dayofweek = Wednesday;
+    dayofmonth = 3
+  };
+  {
+    description = "first Wednesday of August 2013";
+    year = 2013;
+    month = 8;
+    week = First;
+    dayofweek = Wednesday;
+    dayofmonth = 7
+  };
+  {
+    description = "first Thursday of September 2013";
+    year = 2013;
+    month = 9;
+    week = First;
+    dayofweek = Thursday;
+    dayofmonth = 5
+  };
+  {
+    description = "first Thursday of October 2013";
+    year = 2013;
+    month = 10;
+    week = First;
+    dayofweek = Thursday;
+    dayofmonth = 3
+  };
+  {
+    description = "first Friday of November 2013";
+    year = 2013;
+    month = 11;
+    week = First;
+    dayofweek = Friday;
+    dayofmonth = 1
+  };
+  {
+    description = "first Friday of December 2013";
+    year = 2013;
+    month = 12;
+    week = First;
+    dayofweek = Friday;
+    dayofmonth = 6
+  };
+  {
+    description = "first Saturday of January 2013";
+    year = 2013;
+    month = 1;
+    week = First;
+    dayofweek = Saturday;
+    dayofmonth = 5
+  };
+  {
+    description = "first Saturday of February 2013";
+    year = 2013;
+    month = 2;
+    week = First;
+    dayofweek = Saturday;
+    dayofmonth = 2
+  };
+  {
+    description = "first Sunday of March 2013";
+    year = 2013;
+    month = 3;
+    week = First;
+    dayofweek = Sunday;
+    dayofmonth = 3
+  };
+  {
+    description = "first Sunday of April 2013";
+    year = 2013;
+    month = 4;
+    week = First;
+    dayofweek = Sunday;
+    dayofmonth = 7
+  };
+  {
+    description = "second Monday of March 2013";
+    year = 2013;
+    month = 3;
+    week = Second;
+    dayofweek = Monday;
+    dayofmonth = 11
+  };
+  {
+    description = "second Monday of April 2013";
+    year = 2013;
+    month = 4;
+    week = Second;
+    dayofweek = Monday;
+    dayofmonth = 8
+  };
+  {
+    description = "second Tuesday of May 2013";
+    year = 2013;
+    month = 5;
+    week = Second;
+    dayofweek = Tuesday;
+    dayofmonth = 14
+  };
+  {
+    description = "second Tuesday of June 2013";
+    year = 2013;
+    month = 6;
+    week = Second;
+    dayofweek = Tuesday;
+    dayofmonth = 11
+  };
+  {
+    description = "second Wednesday of July 2013";
+    year = 2013;
+    month = 7;
+    week = Second;
+    dayofweek = Wednesday;
+    dayofmonth = 10
+  };
+  {
+    description = "second Wednesday of August 2013";
+    year = 2013;
+    month = 8;
+    week = Second;
+    dayofweek = Wednesday;
+    dayofmonth = 14
+  };
+  {
+    description = "second Thursday of September 2013";
+    year = 2013;
+    month = 9;
+    week = Second;
+    dayofweek = Thursday;
+    dayofmonth = 12
+  };
+  {
+    description = "second Thursday of October 2013";
+    year = 2013;
+    month = 10;
+    week = Second;
+    dayofweek = Thursday;
+    dayofmonth = 10
+  };
+  {
+    description = "second Friday of November 2013";
+    year = 2013;
+    month = 11;
+    week = Second;
+    dayofweek = Friday;
+    dayofmonth = 8
+  };
+  {
+    description = "second Friday of December 2013";
+    year = 2013;
+    month = 12;
+    week = Second;
+    dayofweek = Friday;
+    dayofmonth = 13
+  };
+  {
+    description = "second Saturday of January 2013";
+    year = 2013;
+    month = 1;
+    week = Second;
+    dayofweek = Saturday;
+    dayofmonth = 12
+  };
+  {
+    description = "second Saturday of February 2013";
+    year = 2013;
+    month = 2;
+    week = Second;
+    dayofweek = Saturday;
+    dayofmonth = 9
+  };
+  {
+    description = "second Sunday of March 2013";
+    year = 2013;
+    month = 3;
+    week = Second;
+    dayofweek = Sunday;
+    dayofmonth = 10
+  };
+  {
+    description = "second Sunday of April 2013";
+    year = 2013;
+    month = 4;
+    week = Second;
+    dayofweek = Sunday;
+    dayofmonth = 14
+  };
+  {
+    description = "third Monday of March 2013";
+    year = 2013;
+    month = 3;
+    week = Third;
+    dayofweek = Monday;
+    dayofmonth = 18
+  };
+  {
+    description = "third Monday of April 2013";
+    year = 2013;
+    month = 4;
+    week = Third;
+    dayofweek = Monday;
+    dayofmonth = 15
+  };
+  {
+    description = "third Tuesday of May 2013";
+    year = 2013;
+    month = 5;
+    week = Third;
+    dayofweek = Tuesday;
+    dayofmonth = 21
+  };
+  {
+    description = "third Tuesday of June 2013";
+    year = 2013;
+    month = 6;
+    week = Third;
+    dayofweek = Tuesday;
+    dayofmonth = 18
+  };
+  {
+    description = "third Wednesday of July 2013";
+    year = 2013;
+    month = 7;
+    week = Third;
+    dayofweek = Wednesday;
+    dayofmonth = 17
+  };
+  {
+    description = "third Wednesday of August 2013";
+    year = 2013;
+    month = 8;
+    week = Third;
+    dayofweek = Wednesday;
+    dayofmonth = 21
+  };
+  {
+    description = "third Thursday of September 2013";
+    year = 2013;
+    month = 9;
+    week = Third;
+    dayofweek = Thursday;
+    dayofmonth = 19
+  };
+  {
+    description = "third Thursday of October 2013";
+    year = 2013;
+    month = 10;
+    week = Third;
+    dayofweek = Thursday;
+    dayofmonth = 17
+  };
+  {
+    description = "third Friday of November 2013";
+    year = 2013;
+    month = 11;
+    week = Third;
+    dayofweek = Friday;
+    dayofmonth = 15
+  };
+  {
+    description = "third Friday of December 2013";
+    year = 2013;
+    month = 12;
+    week = Third;
+    dayofweek = Friday;
+    dayofmonth = 20
+  };
+  {
+    description = "third Saturday of January 2013";
+    year = 2013;
+    month = 1;
+    week = Third;
+    dayofweek = Saturday;
+    dayofmonth = 19
+  };
+  {
+    description = "third Saturday of February 2013";
+    year = 2013;
+    month = 2;
+    week = Third;
+    dayofweek = Saturday;
+    dayofmonth = 16
+  };
+  {
+    description = "third Sunday of March 2013";
+    year = 2013;
+    month = 3;
+    week = Third;
+    dayofweek = Sunday;
+    dayofmonth = 17
+  };
+  {
+    description = "third Sunday of April 2013";
+    year = 2013;
+    month = 4;
+    week = Third;
+    dayofweek = Sunday;
+    dayofmonth = 21
+  };
+  {
+    description = "fourth Monday of March 2013";
+    year = 2013;
+    month = 3;
+    week = Fourth;
+    dayofweek = Monday;
+    dayofmonth = 25
+  };
+  {
+    description = "fourth Monday of April 2013";
+    year = 2013;
+    month = 4;
+    week = Fourth;
+    dayofweek = Monday;
+    dayofmonth = 22
+  };
+  {
+    description = "fourth Tuesday of May 2013";
+    year = 2013;
+    month = 5;
+    week = Fourth;
+    dayofweek = Tuesday;
+    dayofmonth = 28
+  };
+  {
+    description = "fourth Tuesday of June 2013";
+    year = 2013;
+    month = 6;
+    week = Fourth;
+    dayofweek = Tuesday;
+    dayofmonth = 25
+  };
+  {
+    description = "fourth Wednesday of July 2013";
+    year = 2013;
+    month = 7;
+    week = Fourth;
+    dayofweek = Wednesday;
+    dayofmonth = 24
+  };
+  {
+    description = "fourth Wednesday of August 2013";
+    year = 2013;
+    month = 8;
+    week = Fourth;
+    dayofweek = Wednesday;
+    dayofmonth = 28
+  };
+  {
+    description = "fourth Thursday of September 2013";
+    year = 2013;
+    month = 9;
+    week = Fourth;
+    dayofweek = Thursday;
+    dayofmonth = 26
+  };
+  {
+    description = "fourth Thursday of October 2013";
+    year = 2013;
+    month = 10;
+    week = Fourth;
+    dayofweek = Thursday;
+    dayofmonth = 24
+  };
+  {
+    description = "fourth Friday of November 2013";
+    year = 2013;
+    month = 11;
+    week = Fourth;
+    dayofweek = Friday;
+    dayofmonth = 22
+  };
+  {
+    description = "fourth Friday of December 2013";
+    year = 2013;
+    month = 12;
+    week = Fourth;
+    dayofweek = Friday;
+    dayofmonth = 27
+  };
+  {
+    description = "fourth Saturday of January 2013";
+    year = 2013;
+    month = 1;
+    week = Fourth;
+    dayofweek = Saturday;
+    dayofmonth = 26
+  };
+  {
+    description = "fourth Saturday of February 2013";
+    year = 2013;
+    month = 2;
+    week = Fourth;
+    dayofweek = Saturday;
+    dayofmonth = 23
+  };
+  {
+    description = "fourth Sunday of March 2013";
+    year = 2013;
+    month = 3;
+    week = Fourth;
+    dayofweek = Sunday;
+    dayofmonth = 24
+  };
+  {
+    description = "fourth Sunday of April 2013";
+    year = 2013;
+    month = 4;
+    week = Fourth;
+    dayofweek = Sunday;
+    dayofmonth = 28
+  };
+  {
+    description = "last Monday of March 2013";
+    year = 2013;
+    month = 3;
+    week = Last;
+    dayofweek = Monday;
+    dayofmonth = 25
+  };
+  {
+    description = "last Monday of April 2013";
+    year = 2013;
+    month = 4;
+    week = Last;
+    dayofweek = Monday;
+    dayofmonth = 29
+  };
+  {
+    description = "last Tuesday of May 2013";
+    year = 2013;
+    month = 5;
+    week = Last;
+    dayofweek = Tuesday;
+    dayofmonth = 28
+  };
+  {
+    description = "last Tuesday of June 2013";
+    year = 2013;
+    month = 6;
+    week = Last;
+    dayofweek = Tuesday;
+    dayofmonth = 25
+  };
+  {
+    description = "last Wednesday of July 2013";
+    year = 2013;
+    month = 7;
+    week = Last;
+    dayofweek = Wednesday;
+    dayofmonth = 31
+  };
+  {
+    description = "last Wednesday of August 2013";
+    year = 2013;
+    month = 8;
+    week = Last;
+    dayofweek = Wednesday;
+    dayofmonth = 28
+  };
+  {
+    description = "last Thursday of September 2013";
+    year = 2013;
+    month = 9;
+    week = Last;
+    dayofweek = Thursday;
+    dayofmonth = 26
+  };
+  {
+    description = "last Thursday of October 2013";
+    year = 2013;
+    month = 10;
+    week = Last;
+    dayofweek = Thursday;
+    dayofmonth = 31
+  };
+  {
+    description = "last Friday of November 2013";
+    year = 2013;
+    month = 11;
+    week = Last;
+    dayofweek = Friday;
+    dayofmonth = 29
+  };
+  {
+    description = "last Friday of December 2013";
+    year = 2013;
+    month = 12;
+    week = Last;
+    dayofweek = Friday;
+    dayofmonth = 27
+  };
+  {
+    description = "last Saturday of January 2013";
+    year = 2013;
+    month = 1;
+    week = Last;
+    dayofweek = Saturday;
+    dayofmonth = 26
+  };
+  {
+    description = "last Saturday of February 2013";
+    year = 2013;
+    month = 2;
+    week = Last;
+    dayofweek = Saturday;
+    dayofmonth = 23
+  };
+  {
+    description = "last Sunday of March 2013";
+    year = 2013;
+    month = 3;
+    week = Last;
+    dayofweek = Sunday;
+    dayofmonth = 31
+  };
+  {
+    description = "last Sunday of April 2013";
+    year = 2013;
+    month = 4;
+    week = Last;
+    dayofweek = Sunday;
+    dayofmonth = 28
+  };
+  {
+    description = "last Wednesday of February 2012";
+    year = 2012;
+    month = 2;
+    week = Last;
+    dayofweek = Wednesday;
+    dayofmonth = 29
+  };
+  {
+    description = "last Wednesday of December 2014";
+    year = 2014;
+    month = 12;
+    week = Last;
+    dayofweek = Wednesday;
+    dayofmonth = 31
+  };
+  {
+    description = "last Sunday of February 2015";
+    year = 2015;
+    month = 2;
+    week = Last;
+    dayofweek = Sunday;
+    dayofmonth = 22
+  };
+  {
+    description = "first Friday of December 2012";
+    year = 2012;
+    month = 12;
+    week = First;
+    dayofweek = Friday;
+    dayofmonth = 7
+  }
+]
+
+let () =
+  run_test_tt_main ("meetup tests" >::: tests)