trackler 2.0.6.19 → 2.0.6.20

Sign up to get free protection for your applications and to get access to all the features.
Files changed (50) hide show
  1. checksums.yaml +4 -4
  2. data/lib/trackler/version.rb +1 -1
  3. data/tracks/csharp/config.json +8 -0
  4. data/tracks/csharp/exercises/forth/Example.cs +257 -0
  5. data/tracks/csharp/exercises/forth/ForthTest.cs +134 -0
  6. data/tracks/fsharp/config.json +7 -1
  7. data/tracks/fsharp/exercises/exercises.fsproj +20 -0
  8. data/tracks/fsharp/exercises/lens-person/Example.fs +50 -0
  9. data/tracks/fsharp/exercises/lens-person/HINTS.md +2 -0
  10. data/tracks/fsharp/exercises/lens-person/LensPerson.fs +24 -0
  11. data/tracks/fsharp/exercises/lens-person/LensPersonTest.fs +43 -0
  12. data/tracks/fsharp/exercises/paket.references +2 -1
  13. data/tracks/fsharp/paket.dependencies +1 -0
  14. data/tracks/fsharp/paket.lock +1 -0
  15. data/tracks/javascript/exercises/{bob/bob.js → leap/leap.js} +3 -3
  16. data/tracks/julia/README.md +16 -0
  17. data/tracks/objective-c/config.json +17 -0
  18. data/tracks/objective-c/exercises/bracket-push/BracketPushExample.h +8 -0
  19. data/tracks/objective-c/exercises/bracket-push/BracketPushExample.m +386 -0
  20. data/tracks/objective-c/exercises/bracket-push/BracketPushTest.m +84 -0
  21. data/tracks/objective-c/exercises/sublist/SublistExample.h +7 -0
  22. data/tracks/objective-c/exercises/sublist/SublistExample.m +67 -0
  23. data/tracks/objective-c/exercises/sublist/SublistTest.m +139 -0
  24. data/tracks/objective-c/xcodeProject/ObjectiveC.xcodeproj/project.pbxproj +55 -2
  25. data/tracks/ocaml/exercises/dominoes/test.ml +11 -5
  26. data/tracks/ocaml/exercises/luhn/test.ml +3 -3
  27. data/tracks/ocaml/tools/test-generator/templates/dominoes/template.ml +11 -5
  28. data/tracks/pascal/config.json +1 -1
  29. data/tracks/pascal/docs/INSTALLATION.md +52 -0
  30. data/tracks/pascal/docs/img/00delphiwelcomepage.png +0 -0
  31. data/tracks/pascal/docs/img/01delphiclicktools.png +0 -0
  32. data/tracks/pascal/docs/img/02delphiclickoptions.png +0 -0
  33. data/tracks/pascal/docs/img/03delphioptionsenvironmentvariables.png +0 -0
  34. data/tracks/pascal/docs/img/04delphioptionsenvironmentvariablesclicknew.png +0 -0
  35. data/tracks/pascal/docs/img/05delphinewuservariable.png +0 -0
  36. data/tracks/pascal/docs/img/06delphioptionslibrary.png +0 -0
  37. data/tracks/pascal/docs/img/07delphiclicklibrarypathbutton.png +0 -0
  38. data/tracks/pascal/docs/img/08delphidirectoriesinputvarnameclickadd.png +0 -0
  39. data/tracks/pascal/docs/img/09delphidirectoriesclickok.png +0 -0
  40. data/tracks/pascal/docs/img/10delphioptonsclickok.png +0 -0
  41. data/tracks/pascal/exercises/nucleotide-count/uNucleotideCountExample.pas +9 -18
  42. data/tracks/pascal/exercises/nucleotide-count/uNucleotideCountTest.pas +16 -16
  43. data/tracks/php/config.json +7 -0
  44. data/tracks/php/exercises/book-store/book-store_test.php +146 -0
  45. data/tracks/php/exercises/book-store/example.php +38 -0
  46. data/tracks/swift/docs/TESTS.md +40 -35
  47. data/tracks/swift/docs/img/tests-fail.png +0 -0
  48. data/tracks/swift/docs/img/tests-pass.png +0 -0
  49. data/tracks/swift/docs/img/tests.png +0 -0
  50. metadata +28 -3
data/tracks/objective-c/exercises/bracket-push/BracketPushTest.m ADDED
@@ -0,0 +1,84 @@
1
+ #import <XCTest/XCTest.h>
2
+ #if __has_include("BracketPushExample.h")
3
+ # import "BracketPushExample.h"
4
+ # else
5
+ # import "BracketPush.h"
6
+ #endif
7
+ @interface BracketPushTest : XCTestCase
8
+
9
+ @end
10
+
11
+ @implementation BracketPushTest
12
+
13
+ - (void)testPairedSquareBrackets {
14
+
15
+ XCTAssertTrue([BracketPushExample validateBracketPairingAndNestingInString:@"[]"]);
16
+ }
17
+
18
+ -(void)testEmptyString{
19
+
20
+ XCTAssertTrue([BracketPushExample validateBracketPairingAndNestingInString:@""]);
21
+
22
+ }
23
+
24
+ -(void)testUnpairedBrackets{
25
+
26
+ XCTAssertFalse([BracketPushExample validateBracketPairingAndNestingInString:@"[["]);
27
+
28
+ }
29
+
30
+ -(void)testWrongOrderedBrackets{
31
+
32
+ XCTAssertFalse([BracketPushExample validateBracketPairingAndNestingInString:@"}{"]);
33
+
34
+ }
35
+
36
+ -(void)testPairedWithWhitespace{
37
+
38
+ XCTAssertTrue([BracketPushExample validateBracketPairingAndNestingInString:@"{ }"]);
39
+
40
+ }
41
+
42
+ -(void)testSimpleNestedBrackets{
43
+
44
+ XCTAssertTrue([BracketPushExample validateBracketPairingAndNestingInString:@"{[]}"]);
45
+
46
+ }
47
+
48
+ -(void)testSeveralPairedBrackets{
49
+
50
+ XCTAssertTrue([BracketPushExample validateBracketPairingAndNestingInString:@"{}[]"]);
51
+ }
52
+
53
+ -(void)testPairedAndNestedBrackets{
54
+
55
+ XCTAssertTrue([BracketPushExample validateBracketPairingAndNestingInString:@"([{}({}[])])"]);
56
+ }
57
+
58
+ -(void)testUnopenedClosingBrackets{
59
+
60
+ XCTAssertFalse([BracketPushExample validateBracketPairingAndNestingInString:@"{[)][]}"]);
61
+
62
+ }
63
+
64
+ -(void)testUnpairedAndNestedBrackets{
65
+
66
+ XCTAssertFalse([BracketPushExample validateBracketPairingAndNestingInString:@"([{])"]);
67
+ }
68
+
69
+ -(void)testPairedAndWrongNestedBrackets{
70
+
71
+ XCTAssertFalse([BracketPushExample validateBracketPairingAndNestingInString:@"[({]})"]);
72
+
73
+ }
74
+
75
+ -(void)testMathExpression{
76
+
77
+ XCTAssertTrue([BracketPushExample validateBracketPairingAndNestingInString:@"(((185 + 223.85) * 15) - 543)/2"]);
78
+ }
79
+
80
+ -(void)testComplexLatexExpression{
81
+
82
+ XCTAssertTrue([BracketPushExample validateBracketPairingAndNestingInString:@"\\left(\\begin{array}{cc} \\frac{1}{3} & x\\\\ \\mathrm{e}^{x} &... x^2 \\end{array}\\right)"]);
83
+ }
84
+ @end
data/tracks/objective-c/exercises/sublist/SublistExample.h ADDED
@@ -0,0 +1,7 @@
1
+ #import <Foundation/Foundation.h>
2
+
3
+ @interface SublistExample : NSObject
4
+
5
+ +(NSString*)classifierForFirstList:(NSArray*)firstArray andSecondList:(NSArray*)secondArray;
6
+
7
+ @end
data/tracks/objective-c/exercises/sublist/SublistExample.m ADDED
@@ -0,0 +1,67 @@
1
+ #import "SublistExample.h"
2
+
3
+ @implementation SublistExample
4
+
5
+ +(NSString*)classifierForFirstList:(NSArray *)firstArray andSecondList:(NSArray *)secondArray{
6
+
7
+ if([firstArray isEqualToArray:secondArray]){
8
+
9
+ return @"equal";
10
+
11
+ }else if(firstArray.count == 0 || secondArray.count == 0){
12
+
13
+ if(firstArray.count == 0){
14
+
15
+ return @"sublist";
16
+ }
17
+
18
+ return @"superlist";
19
+
20
+ }else if(firstArray.count != secondArray.count){
21
+
22
+ int i = 0;
23
+ int count = 0;
24
+ NSMutableArray *smallerArray = [NSMutableArray array];
25
+
26
+ int iterations = 0;
27
+ iterations = MAX((int)firstArray.count, (int)secondArray.count) - ((MIN((int)firstArray.count, (int)secondArray.count)-1));
28
+
29
+ while(iterations > 0){
30
+
31
+ int j = i;
32
+ while(count <= (MIN(firstArray.count, secondArray.count) - 1)){
33
+
34
+ if(firstArray.count > secondArray.count){
35
+
36
+ [smallerArray addObject:[firstArray objectAtIndex:j]];
37
+ }else{
38
+
39
+ [smallerArray addObject:[secondArray objectAtIndex:j]];
40
+ }
41
+ j++;
42
+ count++;
43
+ }
44
+
45
+ if([smallerArray isEqualToArray:firstArray]){
46
+
47
+ return @"sublist";
48
+
49
+ }else if([smallerArray isEqualToArray:secondArray]){
50
+
51
+ return @"superlist";
52
+ }else{
53
+
54
+ [smallerArray removeAllObjects];
55
+ i++;
56
+ count=0;
57
+ }
58
+
59
+
60
+ iterations--;
61
+ }
62
+
63
+ }
64
+
65
+ return @"unequal";
66
+ }
67
+ @end
data/tracks/objective-c/exercises/sublist/SublistTest.m ADDED
@@ -0,0 +1,139 @@
1
+ #import <XCTest/XCTest.h>
2
+
3
+ #if __has_include("SublistExample.h")
4
+ # import "SublistExample.h"
5
+ # else
6
+ # import "Sublist.h"
7
+ #endif
8
+
9
+ @interface SublistTest : XCTestCase
10
+
11
+ @end
12
+
13
+ @implementation SublistTest
14
+
15
+
16
+ - (void)testEmptyLists {
17
+
18
+ XCTAssertEqualObjects(@"equal", [SublistExample classifierForFirstList:@[] andSecondList:@[]]);
19
+ }
20
+
21
+ - (void)testEmptyListWithinNonEmptyList{
22
+
23
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3], nil];
24
+ XCTAssertEqualObjects(@"sublist", [SublistExample classifierForFirstList:@[] andSecondList:secondList]);
25
+
26
+ }
27
+
28
+ - (void)testNonEmptyListContainsEmptyList{
29
+
30
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3], nil];
31
+ XCTAssertEqualObjects(@"superlist", [SublistExample classifierForFirstList:firstList andSecondList:@[]]);
32
+ }
33
+
34
+ - (void)testListEqualsItself{
35
+
36
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3], nil];
37
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3], nil];
38
+ XCTAssertEqualObjects(@"equal", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
39
+ }
40
+
41
+ -(void)testDifferentLists{
42
+
43
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3], nil];
44
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:2],[NSNumber numberWithInt:3],[NSNumber numberWithInt:4], nil];
45
+ XCTAssertEqualObjects(@"unequal", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
46
+ }
47
+
48
+ -(void)testFalseStart{
49
+
50
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:5], nil];
51
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:5],[NSNumber numberWithInt:6], nil];
52
+ XCTAssertEqualObjects(@"sublist", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
53
+ }
54
+
55
+ -(void)testConsecutive{
56
+
57
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2], nil];
58
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],[NSNumber numberWithInt:1],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2], nil];
59
+ XCTAssertEqualObjects(@"sublist", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
60
+ }
61
+
62
+ -(void)testSublistAtStart{
63
+
64
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2], nil];
65
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3],[NSNumber numberWithInt:4],[NSNumber numberWithInt:5], nil];
66
+ XCTAssertEqualObjects(@"sublist", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
67
+ }
68
+
69
+ -(void)testSublistInMiddle{
70
+
71
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:2],[NSNumber numberWithInt:3],[NSNumber numberWithInt:4], nil];
72
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3],[NSNumber numberWithInt:4],[NSNumber numberWithInt:5], nil];
73
+ XCTAssertEqualObjects(@"sublist", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
74
+ }
75
+
76
+ -(void)testSublistAtEnd{
77
+
78
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:3],[NSNumber numberWithInt:4],[NSNumber numberWithInt:5], nil];
79
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3],[NSNumber numberWithInt:4],[NSNumber numberWithInt:5], nil];
80
+ XCTAssertEqualObjects(@"sublist", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
81
+ }
82
+
83
+ -(void)testAtStartOfSuperlist{
84
+
85
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3],[NSNumber numberWithInt:4],[NSNumber numberWithInt:5], nil];
86
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2], nil];
87
+ ;
88
+ XCTAssertEqualObjects(@"superlist", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
89
+ }
90
+
91
+ -(void)testAtMiddleOfSuperlist{
92
+
93
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3],[NSNumber numberWithInt:4],[NSNumber numberWithInt:5], nil];
94
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:2],[NSNumber numberWithInt:3], nil];
95
+ ;
96
+ XCTAssertEqualObjects(@"superlist", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
97
+ }
98
+
99
+ -(void)testAtEndOfSuperlist{
100
+
101
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3],[NSNumber numberWithInt:4],[NSNumber numberWithInt:5], nil];
102
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:3],[NSNumber numberWithInt:4],[NSNumber numberWithInt:5], nil];
103
+ ;
104
+ XCTAssertEqualObjects(@"superlist", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
105
+ }
106
+
107
+ -(void)testFirstListMissingElementFromSecondList{
108
+
109
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:3], nil];
110
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3], nil];
111
+ ;
112
+ XCTAssertEqualObjects(@"unequal", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
113
+ }
114
+
115
+ -(void)testSecondListMissingOneElementFromFirstList{
116
+
117
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3], nil];
118
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:3], nil];
119
+ ;
120
+ XCTAssertEqualObjects(@"unequal", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
121
+ }
122
+
123
+ -(void)testOrderMattersToAList{
124
+
125
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:2],[NSNumber numberWithInt:3],nil];
126
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:3],[NSNumber numberWithInt:2],[NSNumber numberWithInt:1], nil];
127
+ ;
128
+ XCTAssertEqualObjects(@"unequal", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
129
+ }
130
+
131
+ -(void)testSameDigitsButDifferentNumbers{
132
+
133
+ NSArray *firstList = [NSArray arrayWithObjects:[NSNumber numberWithInt:1],[NSNumber numberWithInt:0],[NSNumber numberWithInt:1],nil];
134
+ NSArray *secondList = [NSArray arrayWithObjects:[NSNumber numberWithInt:10],[NSNumber numberWithInt:1], nil];
135
+ ;
136
+ XCTAssertEqualObjects(@"unequal", [SublistExample classifierForFirstList:firstList andSecondList:secondList]);
137
+ }
138
+
139
+ @end
data/tracks/objective-c/xcodeProject/ObjectiveC.xcodeproj/project.pbxproj CHANGED
@@ -47,9 +47,18 @@
47
47
  1EFACABA1CCCAF3D006F2E69 /* SpaceAgeTest.m in Sources */ = {isa = PBXBuildFile; fileRef = 1EFACA9F1CCCAF3D006F2E69 /* SpaceAgeTest.m */; };
48
48
  1EFACABB1CCCAF3D006F2E69 /* WordCountExample.m in Sources */ = {isa = PBXBuildFile; fileRef = 1EFACAA11CCCAF3D006F2E69 /* WordCountExample.m */; };
49
49
  1EFACABC1CCCAF3D006F2E69 /* WordCountTest.m in Sources */ = {isa = PBXBuildFile; fileRef = 1EFACAA21CCCAF3D006F2E69 /* WordCountTest.m */; };
50
+
51
+ A0BBFCBF1E37719800230071 /* SublistExample.m in Sources */ = {isa = PBXBuildFile; fileRef = A0BBFCBE1E37719800230071 /* SublistExample.m */; };
52
+ A0BBFCC31E37728100230071 /* SublistTest.m in Sources */ = {isa = PBXBuildFile; fileRef = A0BBFCC21E37728100230071 /* SublistTest.m */; };
53
+
54
+
55
+ A097D40F1E363C2700EAF2C2 /* BracketPushExample.m in Sources */ = {isa = PBXBuildFile; fileRef = A097D40D1E363C2700EAF2C2 /* BracketPushExample.m */; };
56
+ A097D4101E363C2700EAF2C2 /* BracketPushTest.m in Sources */ = {isa = PBXBuildFile; fileRef = A097D40E1E363C2700EAF2C2 /* BracketPushTest.m */; };
57
+
50
58
  A065F5781E3098080048E337 /* BeerSongExample.m in Sources */ = {isa = PBXBuildFile; fileRef = A065F5761E3098080048E337 /* BeerSongExample.m */; };
51
59
  A065F5791E3098080048E337 /* BeerSongTest.m in Sources */ = {isa = PBXBuildFile; fileRef = A065F5771E3098080048E337 /* BeerSongTest.m */; };
52
- E907D0CA1D6B731600106C42 /* GigasecondExample.m in Sources */ = {isa = PBXBuildFile; fileRef = E907D0C91D6B731600106C42 /* GigasecondExample.m */; };
60
+
61
+ E907D0CA1D6B731600106C42 /* GigasecondExample.m in Sources */ = {isa = PBXBuildFile; fileRef = E907D0C91D6B731600106C42 /* GigasecondExample.m */; };
53
62
  E907D0CC1D6B734800106C42 /* GigasecondTest.m in Sources */ = {isa = PBXBuildFile; fileRef = E907D0CB1D6B734800106C42 /* GigasecondTest.m */; };
54
63
  E907FE921D87547D00B93DA9 /* ScrabbleScoreExample.m in Sources */ = {isa = PBXBuildFile; fileRef = E907FE911D87547D00B93DA9 /* ScrabbleScoreExample.m */; };
55
64
  E907FE941D87554500B93DA9 /* ScrabbleScoreTest.m in Sources */ = {isa = PBXBuildFile; fileRef = E907FE931D87554500B93DA9 /* ScrabbleScoreTest.m */; };
@@ -131,9 +140,21 @@
131
140
  1EFACAA01CCCAF3D006F2E69 /* WordCountExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = WordCountExample.h; path = "../../exercises/word-count/WordCountExample.h"; sourceTree = "<group>"; };
132
141
  1EFACAA11CCCAF3D006F2E69 /* WordCountExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = WordCountExample.m; path = "../../exercises/word-count/WordCountExample.m"; sourceTree = "<group>"; };
133
142
  1EFACAA21CCCAF3D006F2E69 /* WordCountTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = WordCountTest.m; path = "../../exercises/word-count/WordCountTest.m"; sourceTree = "<group>"; };
143
+
144
+ A0BBFCBD1E37719800230071 /* SublistExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = SublistExample.h; path = ../../exercises/sublist/SublistExample.h; sourceTree = "<group>"; };
145
+ A0BBFCBE1E37719800230071 /* SublistExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = SublistExample.m; path = ../../exercises/sublist/SublistExample.m; sourceTree = "<group>"; };
146
+ A0BBFCC21E37728100230071 /* SublistTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = SublistTest.m; path = ../../exercises/sublist/SublistTest.m; sourceTree = "<group>"; };
147
+
148
+
149
+ A097D40C1E363C1A00EAF2C2 /* BracketPushExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = BracketPushExample.h; path = "../../exercises/bracket-push/BracketPushExample.h"; sourceTree = "<group>"; };
150
+ A097D40D1E363C2700EAF2C2 /* BracketPushExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = BracketPushExample.m; path = "../../exercises/bracket-push/BracketPushExample.m"; sourceTree = "<group>"; };
151
+ A097D40E1E363C2700EAF2C2 /* BracketPushTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = BracketPushTest.m; path = "../../exercises/bracket-push/BracketPushTest.m"; sourceTree = "<group>"; };
152
+
134
153
  A065F5751E3098080048E337 /* BeerSongExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = BeerSongExample.h; path = "../../exercises/beer-song/BeerSongExample.h"; sourceTree = "<group>"; };
135
154
  A065F5761E3098080048E337 /* BeerSongExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = BeerSongExample.m; path = "../../exercises/beer-song/BeerSongExample.m"; sourceTree = "<group>"; };
136
155
  A065F5771E3098080048E337 /* BeerSongTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = BeerSongTest.m; path = "../../exercises/beer-song/BeerSongTest.m"; sourceTree = "<group>"; };
156
+
157
+
137
158
  E907D0C81D6B731600106C42 /* GigasecondExample.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = GigasecondExample.h; path = ../../exercises/gigasecond/GigasecondExample.h; sourceTree = "<group>"; };
138
159
  E907D0C91D6B731600106C42 /* GigasecondExample.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = GigasecondExample.m; path = ../../exercises/gigasecond/GigasecondExample.m; sourceTree = "<group>"; };
139
160
  E907D0CB1D6B734800106C42 /* GigasecondTest.m */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.objc; name = GigasecondTest.m; path = ../../exercises/gigasecond/GigasecondTest.m; sourceTree = "<group>"; };
@@ -214,6 +235,7 @@
214
235
  E9386EEB1E0B68F90009A414 /* AtbashCipher */,
215
236
  A0CE03811E2F994200669F42 /* BeerSong */,
216
237
  E9E8B6EC1D519DEF0012F12C /* Bob */,
238
+ A09A906D1E28C1380087CCB7 /* BracketPush */,
217
239
  E9381D4F1D8F2DA4003F22A1 /* Clock */,
218
240
  E9381D431D8EDFB8003F22A1 /* DifferenceOfSquares */,
219
241
  E9E8B6ED1D519DF50012F12C /* Etl */,
@@ -236,6 +258,7 @@
236
258
  E907FE8F1D87545300B93DA9 /* ScrabbleScore */,
237
259
  E9C1C0201D9D98B80015E86E /* SecretHandshake */,
238
260
  E9E8B6F61D519E340012F12C /* SpaceAge */,
261
+ A0BBFCBC1E37703D00230071 /* Sublist */,
239
262
  E99D1D7B1D5532C50006A303 /* SumOfMultiples */,
240
263
  E96993951DF60DF1009EA223 /* Transpose */,
241
264
  E947A4DB1D81FDDA00633720 /* Triangle */,
@@ -261,6 +284,30 @@
261
284
  name = Products;
262
285
  sourceTree = "<group>";
263
286
  };
287
+
288
+ A0BBFCBC1E37703D00230071 /* Sublist */ = {
289
+ isa = PBXGroup;
290
+ children = (
291
+ A0BBFCBD1E37719800230071 /* SublistExample.h */,
292
+ A0BBFCBE1E37719800230071 /* SublistExample.m */,
293
+ A0BBFCC21E37728100230071 /* SublistTest.m */,
294
+ );
295
+ name = Sublist;
296
+ sourceTree = "<group>";
297
+ };
298
+
299
+
300
+ A09A906D1E28C1380087CCB7 /* BracketPush */ = {
301
+ isa = PBXGroup;
302
+ children = (
303
+ A097D40C1E363C1A00EAF2C2 /* BracketPushExample.h */,
304
+ A097D40D1E363C2700EAF2C2 /* BracketPushExample.m */,
305
+ A097D40E1E363C2700EAF2C2 /* BracketPushTest.m */,
306
+ );
307
+ name = BracketPush;
308
+ sourceTree = "<group>";
309
+ };
310
+
264
311
  A0CE03811E2F994200669F42 /* BeerSong */ = {
265
312
  isa = PBXGroup;
266
313
  children = (
@@ -269,8 +316,10 @@
269
316
  A065F5771E3098080048E337 /* BeerSongTest.m */,
270
317
  );
271
318
  name = BeerSong;
272
- sourceTree = "<group>";
319
+ sourceTree = "<group>";
273
320
  };
321
+
322
+
274
323
  E907D0C71D6B72B600106C42 /* Gigasecond */ = {
275
324
  isa = PBXGroup;
276
325
  children = (
@@ -685,11 +734,13 @@
685
734
  E9C1C0291D9DB16B0015E86E /* AcronymExample.m in Sources */,
686
735
  1EFACAA41CCCAF3D006F2E69 /* AnagramTest.m in Sources */,
687
736
  E907FE921D87547D00B93DA9 /* ScrabbleScoreExample.m in Sources */,
737
+ A097D4101E363C2700EAF2C2 /* BracketPushTest.m in Sources */,
688
738
  1EFACABC1CCCAF3D006F2E69 /* WordCountTest.m in Sources */,
689
739
  1EFACAB11CCCAF3D006F2E69 /* NucleotideCountExample.m in Sources */,
690
740
  E9381D481D8EE00C003F22A1 /* DifferenceOfSquaresTest.m in Sources */,
691
741
  E907FE941D87554500B93DA9 /* ScrabbleScoreTest.m in Sources */,
692
742
  1EFACAB51CCCAF3D006F2E69 /* PhoneNumberExample.m in Sources */,
743
+ A0BBFCBF1E37719800230071 /* SublistExample.m in Sources */,
693
744
  E951B6B91D429550009EB5B6 /* AllergiesTest.m in Sources */,
694
745
  A065F5791E3098080048E337 /* BeerSongTest.m in Sources */,
695
746
  E9381D461D8EDFFA003F22A1 /* DifferenceOfSquaresExample.m in Sources */,
@@ -699,6 +750,7 @@
699
750
  E9381D521D8F2DCC003F22A1 /* ClockExample.m in Sources */,
700
751
  E99D1D811D5533BF0006A303 /* SumOfMultiplesExample.m in Sources */,
701
752
  E9F390071DFCA337005C5F46 /* IsogramExample.m in Sources */,
753
+ A0BBFCC31E37728100230071 /* SublistTest.m in Sources */,
702
754
  E9C1C02F1D9EC1130015E86E /* RunLengthEncodingExample.m in Sources */,
703
755
  E92FCC0F1D78F3B600061017 /* MeetupTest.m in Sources */,
704
756
  E9381D4E1D8F2982003F22A1 /* RaindropsTest.m in Sources */,
@@ -711,6 +763,7 @@
711
763
  E907D0CC1D6B734800106C42 /* GigasecondTest.m in Sources */,
712
764
  E9C1C0311D9EC1270015E86E /* RunLengthEncodingTest.m in Sources */,
713
765
  1EFACAA81CCCAF3D006F2E69 /* EtlTest.m in Sources */,
766
+ A097D40F1E363C2700EAF2C2 /* BracketPushExample.m in Sources */,
714
767
  E947A4E01D81FE3A00633720 /* TriangleTest.m in Sources */,
715
768
  1EFACAA91CCCAF3D006F2E69 /* GradeSchoolExample.m in Sources */,
716
769
  1EFACABA1CCCAF3D006F2E69 /* SpaceAgeTest.m in Sources */,
data/tracks/ocaml/exercises/dominoes/test.ml CHANGED
@@ -4,16 +4,22 @@ open Dominoes
4
4
 
5
5
  let print_dominoe (d1, d2) = sprintf "(%d,%d)" d1 d2
6
6
 
7
+ let dominoes_printer xs = "[" ^ String.concat ~sep:";" (List.map xs ~f:print_dominoe) ^ "]"
7
8
  let option_printer = function
8
9
  | None -> "None"
9
- | Some xs -> "Some [" ^ String.concat ~sep:";" (List.map xs ~f:print_dominoe) ^ "]"
10
+ | Some xs -> "Some " ^ dominoes_printer xs
10
11
 
11
- let drop_1_right xs = List.rev xs |> List.tl_exn |> List.rev
12
+ let rotate_1 xs = List.tl_exn xs @ [List.hd_exn xs]
12
13
 
13
- let check_chain (chained: dominoe list) =
14
+ let norm l =
15
+ let norm1 (x, y) = if x > y then (y, x) else (x, y) in
16
+ List.map ~f:norm1 l |> List.sort ~cmp:compare
17
+
18
+ let check_chain (input: dominoe list) (chained: dominoe list) =
19
+ assert_equal (norm input) (norm chained) ~printer:dominoes_printer ~msg:"chain doesn't use the same dominoes as the input";
14
20
  let assert_dominoes_match d1 d2 =
15
21
  if snd d1 <> fst d2 then failwith @@ sprintf "%s and %s cannot be chained together" (print_dominoe d1) (print_dominoe d2) else () in
16
- let consecutives = List.zip_exn (drop_1_right chained) (List.tl_exn chained) in
22
+ let consecutives = List.zip_exn chained (rotate_1 chained) in
17
23
  List.iter consecutives ~f:(fun (d1, d2) -> assert_dominoes_match d1 d2)
18
24
 
19
25
  let assert_empty c = if List.is_empty c then () else failwith "Expected 0 length chain"
@@ -21,7 +27,7 @@ let assert_empty c = if List.is_empty c then () else failwith "Expected 0 length
21
27
  let assert_valid_chain input _ctxt =
22
28
  match chain input with
23
29
  | None -> failwith "Expecting a chain"
24
- | Some(c) -> (if List.is_empty input then assert_empty else check_chain) c
30
+ | Some(c) -> (if List.is_empty input then assert_empty else check_chain input) c
25
31
 
26
32
  let assert_no_chain input _ctxt =
27
33
  assert_equal None (chain input) ~printer:option_printer