trackler 2.0.0.8 → 2.0.0.9

Sign up to get free protection for your applications and to get access to all the features.
Files changed (226) hide show
  1. checksums.yaml +4 -4
  2. data/common/exercises/bob/canonical-data.json +1 -20
  3. data/common/exercises/raindrops/canonical-data.json +18 -0
  4. data/common/exercises/sublist/canonical-data.json +5 -0
  5. data/lib/trackler/version.rb +1 -1
  6. data/tracks/clojure/config.json +5 -0
  7. data/tracks/clojure/exercises/pig-latin/project.clj +4 -0
  8. data/tracks/clojure/exercises/pig-latin/src/example.clj +49 -0
  9. data/tracks/clojure/exercises/pig-latin/test/pig_latin_test.clj +92 -0
  10. data/tracks/clojure/exercises/robot-name/src/example.clj +8 -11
  11. data/tracks/clojure/exercises/robot-name/test/robot_name_test.clj +23 -18
  12. data/tracks/crystal/config.json +6 -0
  13. data/tracks/crystal/exercises/acronym/spec/acronym_spec.cr +7 -7
  14. data/tracks/crystal/exercises/forth/spec/forth_spec.cr +198 -0
  15. data/tracks/crystal/exercises/forth/src/example.cr +187 -0
  16. data/tracks/crystal/exercises/hello-world/spec/hello_world_spec.cr +3 -3
  17. data/tracks/crystal/src/generator/exercises/acronym.cr +1 -1
  18. data/tracks/crystal/src/generator/exercises/exercise_generator.cr +3 -2
  19. data/tracks/crystal/src/generator/exercises/forth.cr +56 -0
  20. data/tracks/crystal/src/generator/exercises/templates/example.tt +2 -2
  21. data/tracks/crystal/src/generator/spec/exercise_generator_spec.cr +5 -3
  22. data/tracks/csharp/exercises/wordy/WordyTest.cs +2 -2
  23. data/tracks/elixir/config.json +83 -70
  24. data/tracks/fsharp/exercises/wordy/WordyTest.fs +1 -1
  25. data/tracks/go/config.json +28 -3
  26. data/tracks/go/exercises/all-your-base/all_your_base_test.go +185 -0
  27. data/tracks/go/exercises/all-your-base/example.go +60 -0
  28. data/tracks/go/exercises/isogram/example.go +15 -0
  29. data/tracks/go/exercises/isogram/isogram_test.go +50 -0
  30. data/tracks/go/exercises/ledger/ledger.go +2 -2
  31. data/tracks/go/exercises/pangram/example.go +32 -0
  32. data/tracks/go/exercises/pangram/pangram_test.go +43 -0
  33. data/tracks/go/exercises/protein-translation/example.go +59 -0
  34. data/tracks/go/exercises/protein-translation/protein_translation_test.go +69 -0
  35. data/tracks/go/exercises/tree-building/tree_building.go +1 -1
  36. data/tracks/go/exercises/twelve-days/example.go +57 -0
  37. data/tracks/go/exercises/twelve-days/twelve_days_test.go +79 -0
  38. data/tracks/haskell/.travis.yml +13 -8
  39. data/tracks/haskell/config.json +6 -0
  40. data/tracks/haskell/exercises/accumulate/stack.yaml +1 -1
  41. data/tracks/haskell/exercises/all-your-base/stack.yaml +1 -1
  42. data/tracks/haskell/exercises/allergies/stack.yaml +1 -1
  43. data/tracks/haskell/exercises/alphametics/stack.yaml +1 -1
  44. data/tracks/haskell/exercises/anagram/stack.yaml +1 -1
  45. data/tracks/haskell/exercises/atbash-cipher/stack.yaml +1 -1
  46. data/tracks/haskell/exercises/bank-account/stack.yaml +1 -1
  47. data/tracks/haskell/exercises/beer-song/stack.yaml +1 -1
  48. data/tracks/haskell/exercises/binary/stack.yaml +1 -1
  49. data/tracks/haskell/exercises/binary-search-tree/stack.yaml +1 -1
  50. data/tracks/haskell/exercises/bob/stack.yaml +1 -1
  51. data/tracks/haskell/exercises/bowling/HINTS.md +19 -0
  52. data/tracks/haskell/exercises/bowling/examples/success-standard/package.yaml +16 -0
  53. data/tracks/haskell/exercises/bowling/examples/success-standard/src/Bowling.hs +84 -0
  54. data/tracks/haskell/exercises/bowling/package.yaml +19 -0
  55. data/tracks/haskell/exercises/bowling/src/Bowling.hs +9 -0
  56. data/tracks/haskell/exercises/bowling/stack.yaml +1 -0
  57. data/tracks/haskell/exercises/bowling/test/Tests.hs +143 -0
  58. data/tracks/haskell/exercises/change/stack.yaml +1 -1
  59. data/tracks/haskell/exercises/clock/stack.yaml +1 -1
  60. data/tracks/haskell/exercises/connect/stack.yaml +1 -1
  61. data/tracks/haskell/exercises/crypto-square/stack.yaml +1 -1
  62. data/tracks/haskell/exercises/custom-set/stack.yaml +1 -1
  63. data/tracks/haskell/exercises/difference-of-squares/stack.yaml +1 -1
  64. data/tracks/haskell/exercises/dominoes/stack.yaml +1 -1
  65. data/tracks/haskell/exercises/etl/stack.yaml +1 -1
  66. data/tracks/haskell/exercises/food-chain/stack.yaml +1 -1
  67. data/tracks/haskell/exercises/forth/stack.yaml +1 -1
  68. data/tracks/haskell/exercises/gigasecond/stack.yaml +1 -1
  69. data/tracks/haskell/exercises/go-counting/stack.yaml +1 -1
  70. data/tracks/haskell/exercises/grade-school/stack.yaml +1 -1
  71. data/tracks/haskell/exercises/grains/stack.yaml +1 -1
  72. data/tracks/haskell/exercises/hamming/stack.yaml +1 -1
  73. data/tracks/haskell/exercises/hexadecimal/stack.yaml +1 -1
  74. data/tracks/haskell/exercises/house/stack.yaml +1 -1
  75. data/tracks/haskell/exercises/kindergarten-garden/stack.yaml +1 -1
  76. data/tracks/haskell/exercises/largest-series-product/stack.yaml +1 -1
  77. data/tracks/haskell/exercises/leap/stack.yaml +1 -1
  78. data/tracks/haskell/exercises/lens-person/stack.yaml +1 -1
  79. data/tracks/haskell/exercises/linked-list/stack.yaml +1 -1
  80. data/tracks/haskell/exercises/list-ops/stack.yaml +1 -1
  81. data/tracks/haskell/exercises/luhn/stack.yaml +1 -1
  82. data/tracks/haskell/exercises/matrix/stack.yaml +1 -1
  83. data/tracks/haskell/exercises/meetup/stack.yaml +1 -1
  84. data/tracks/haskell/exercises/minesweeper/stack.yaml +1 -1
  85. data/tracks/haskell/exercises/nth-prime/stack.yaml +1 -1
  86. data/tracks/haskell/exercises/nucleotide-count/stack.yaml +1 -1
  87. data/tracks/haskell/exercises/ocr-numbers/stack.yaml +1 -1
  88. data/tracks/haskell/exercises/octal/stack.yaml +1 -1
  89. data/tracks/haskell/exercises/palindrome-products/stack.yaml +1 -1
  90. data/tracks/haskell/exercises/parallel-letter-frequency/stack.yaml +1 -1
  91. data/tracks/haskell/exercises/pascals-triangle/stack.yaml +1 -1
  92. data/tracks/haskell/exercises/phone-number/stack.yaml +1 -1
  93. data/tracks/haskell/exercises/pig-latin/stack.yaml +1 -1
  94. data/tracks/haskell/exercises/pov/stack.yaml +1 -1
  95. data/tracks/haskell/exercises/prime-factors/stack.yaml +1 -1
  96. data/tracks/haskell/exercises/pythagorean-triplet/stack.yaml +1 -1
  97. data/tracks/haskell/exercises/queen-attack/stack.yaml +1 -1
  98. data/tracks/haskell/exercises/raindrops/stack.yaml +1 -1
  99. data/tracks/haskell/exercises/rna-transcription/stack.yaml +1 -1
  100. data/tracks/haskell/exercises/robot-name/stack.yaml +1 -1
  101. data/tracks/haskell/exercises/robot-simulator/stack.yaml +1 -1
  102. data/tracks/haskell/exercises/roman-numerals/stack.yaml +1 -1
  103. data/tracks/haskell/exercises/saddle-points/stack.yaml +1 -1
  104. data/tracks/haskell/exercises/say/stack.yaml +1 -1
  105. data/tracks/haskell/exercises/scrabble-score/stack.yaml +1 -1
  106. data/tracks/haskell/exercises/secret-handshake/stack.yaml +1 -1
  107. data/tracks/haskell/exercises/series/stack.yaml +1 -1
  108. data/tracks/haskell/exercises/sgf-parsing/stack.yaml +1 -1
  109. data/tracks/haskell/exercises/sieve/stack.yaml +1 -1
  110. data/tracks/haskell/exercises/simple-cipher/stack.yaml +1 -1
  111. data/tracks/haskell/exercises/simple-linked-list/stack.yaml +1 -1
  112. data/tracks/haskell/exercises/space-age/stack.yaml +1 -1
  113. data/tracks/haskell/exercises/strain/stack.yaml +1 -1
  114. data/tracks/haskell/exercises/sublist/stack.yaml +1 -1
  115. data/tracks/haskell/exercises/sum-of-multiples/stack.yaml +1 -1
  116. data/tracks/haskell/exercises/triangle/stack.yaml +1 -1
  117. data/tracks/haskell/exercises/trinary/stack.yaml +1 -1
  118. data/tracks/haskell/exercises/word-count/stack.yaml +1 -1
  119. data/tracks/haskell/exercises/wordy/stack.yaml +1 -1
  120. data/tracks/haskell/exercises/zebra-puzzle/stack.yaml +1 -1
  121. data/tracks/haskell/exercises/zipper/stack.yaml +1 -1
  122. data/tracks/java/config.json +13 -1
  123. data/tracks/java/exercises/etl/src/main/java/Etl.java +3 -3
  124. data/tracks/java/exercises/hello-world/GETTING_STARTED.md +1 -1
  125. data/tracks/java/exercises/hello-world/src/main/java/HelloWorld.java +3 -3
  126. data/tracks/java/exercises/minesweeper/build.gradle +17 -0
  127. data/tracks/java/exercises/minesweeper/src/example/java/MinesweeperBoard.java +111 -0
  128. data/tracks/java/exercises/minesweeper/src/main/java/MinesweeperBoard.java +5 -0
  129. data/tracks/java/exercises/minesweeper/src/test/java/MinesweeperBoardTest.java +295 -0
  130. data/tracks/java/exercises/nucleotide-count/src/test/java/NucleotideTest.java +67 -67
  131. data/tracks/java/exercises/series/build.gradle +18 -0
  132. data/tracks/java/exercises/series/src/example/java/Series.java +39 -0
  133. data/tracks/java/exercises/series/src/main/java/.keep +0 -0
  134. data/tracks/java/exercises/series/src/main/java/Series.java +3 -0
  135. data/tracks/java/exercises/series/src/test/java/.keep +0 -0
  136. data/tracks/java/exercises/series/src/test/java/SeriesTest.java +154 -0
  137. data/tracks/java/exercises/settings.gradle +2 -0
  138. data/tracks/javascript/exercises/custom-set/custom-set.spec.js +130 -84
  139. data/tracks/javascript/exercises/custom-set/example-gen.js +200 -0
  140. data/tracks/ocaml/Makefile +5 -1
  141. data/tracks/ocaml/config.json +2 -1
  142. data/tracks/ocaml/exercises/anagram/test.ml +35 -24
  143. data/tracks/ocaml/exercises/bob/example.ml +1 -1
  144. data/tracks/ocaml/exercises/bob/test.ml +53 -40
  145. data/tracks/ocaml/exercises/hamming/test.ml +41 -31
  146. data/tracks/ocaml/exercises/raindrops/test.ml +38 -39
  147. data/tracks/ocaml/tools/test-generator/.merlin +5 -0
  148. data/tracks/ocaml/tools/test-generator/Makefile +15 -0
  149. data/tracks/ocaml/tools/test-generator/_tags +0 -0
  150. data/tracks/ocaml/tools/test-generator/src/codegen.ml +17 -0
  151. data/tracks/ocaml/tools/test-generator/src/codegen.mli +7 -0
  152. data/tracks/ocaml/tools/test-generator/src/leap.json +39 -0
  153. data/tracks/ocaml/tools/test-generator/src/model.ml +31 -0
  154. data/tracks/ocaml/tools/test-generator/src/parser.ml +61 -0
  155. data/tracks/ocaml/tools/test-generator/src/parser.mli +9 -0
  156. data/tracks/ocaml/tools/test-generator/src/special_cases.ml +12 -0
  157. data/tracks/ocaml/tools/test-generator/src/special_cases.mli +7 -0
  158. data/tracks/ocaml/tools/test-generator/src/test_gen.ml +25 -0
  159. data/tracks/ocaml/tools/test-generator/src/test_generator.ml +62 -0
  160. data/tracks/ocaml/tools/test-generator/src/test_generator.mli +6 -0
  161. data/tracks/ocaml/tools/test-generator/src/utils.ml +32 -0
  162. data/tracks/ocaml/tools/test-generator/src/utils.mli +18 -0
  163. data/tracks/ocaml/tools/test-generator/templates/anagram/template.ml +17 -0
  164. data/tracks/ocaml/tools/test-generator/templates/bob/template.ml +15 -0
  165. data/tracks/ocaml/tools/test-generator/templates/hamming/template.ml +30 -0
  166. data/tracks/ocaml/tools/test-generator/templates/leap/template.ml +15 -0
  167. data/tracks/ocaml/tools/test-generator/templates/raindrops/template.ml +15 -0
  168. data/tracks/ocaml/tools/test-generator/templates/word-count/template.ml +19 -0
  169. data/tracks/ocaml/tools/test-generator/test/all_tests.ml +11 -0
  170. data/tracks/ocaml/tools/test-generator/test/codegen_test.ml +20 -0
  171. data/tracks/ocaml/tools/test-generator/test/model_test.ml +27 -0
  172. data/tracks/ocaml/tools/test-generator/test/parser_test.ml +73 -0
  173. data/tracks/ocaml/tools/test-generator/test/special_cases_test.ml +22 -0
  174. data/tracks/ocaml/tools/test-generator/test/test_generator_test.ml +11 -0
  175. data/tracks/ocaml/tools/test-generator/test/utils_test.ml +21 -0
  176. data/tracks/perl5/config.json +1 -1
  177. data/tracks/perl6/accumulate/accumulate.t +8 -2
  178. data/tracks/perl6/anagram/Example.pm +1 -1
  179. data/tracks/perl6/anagram/anagram.t +7 -8
  180. data/tracks/perl6/binary/Example.pm +1 -1
  181. data/tracks/perl6/binary/binary.t +7 -8
  182. data/tracks/perl6/bob/bob.t +1 -3
  183. data/tracks/perl6/config.json +1 -0
  184. data/tracks/perl6/grains/grains.t +7 -2
  185. data/tracks/perl6/leap/leap.t +3 -1
  186. data/tracks/perl6/raindrops/raindrops.t +8 -2
  187. data/tracks/perl6/rna-transcription/rna_transcription.t +8 -9
  188. data/tracks/perl6/robot-name/robot.t +8 -9
  189. data/tracks/perl6/scrabble-score/Example.pm +1 -1
  190. data/tracks/perl6/scrabble-score/scrabble_score.t +8 -2
  191. data/tracks/perl6/word-count/word_count.t +8 -2
  192. data/tracks/php/config.json +5 -0
  193. data/tracks/php/exercises/markdown/example.php +85 -0
  194. data/tracks/php/exercises/markdown/markdown.php +82 -0
  195. data/tracks/php/exercises/markdown/markdown_test.php +57 -0
  196. data/tracks/python/exercises/hamming/example.py +3 -0
  197. data/tracks/python/exercises/hamming/hamming_test.py +40 -14
  198. data/tracks/python/exercises/rna-transcription/example.py +6 -1
  199. data/tracks/python/exercises/rna-transcription/rna_transcription_test.py +9 -0
  200. data/tracks/ruby/config.json +6 -0
  201. data/tracks/ruby/exercises/dominoes/.version +1 -0
  202. data/tracks/ruby/exercises/dominoes/dominoes_test.rb +149 -0
  203. data/tracks/ruby/exercises/dominoes/example.rb +37 -0
  204. data/tracks/ruby/exercises/dominoes/example.tt +57 -0
  205. data/tracks/ruby/exercises/pangram/.version +1 -1
  206. data/tracks/ruby/exercises/pangram/example.rb +2 -2
  207. data/tracks/ruby/exercises/pangram/example.tt +5 -7
  208. data/tracks/ruby/exercises/pangram/pangram_test.rb +30 -25
  209. data/tracks/ruby/exercises/queen-attack/.version +1 -0
  210. data/tracks/ruby/exercises/queen-attack/example.rb +5 -30
  211. data/tracks/ruby/exercises/queen-attack/example.tt +22 -0
  212. data/tracks/ruby/exercises/queen-attack/queen_attack_test.rb +46 -95
  213. data/tracks/ruby/exercises/triangle/.version +1 -0
  214. data/tracks/ruby/exercises/triangle/example.rb +15 -22
  215. data/tracks/ruby/exercises/triangle/example.tt +20 -0
  216. data/tracks/ruby/exercises/triangle/triangle_test.rb +80 -40
  217. data/tracks/ruby/lib/dominoes_cases.rb +23 -0
  218. data/tracks/ruby/lib/pangram_cases.rb +19 -4
  219. data/tracks/ruby/lib/queen_attack_cases.rb +54 -0
  220. data/tracks/ruby/lib/triangle_cases.rb +51 -0
  221. data/tracks/scala/config.json +6 -0
  222. data/tracks/scala/exercises/dominoes/Example.scala +41 -0
  223. data/tracks/scala/exercises/dominoes/build.sbt +3 -0
  224. data/tracks/scala/exercises/dominoes/src/main/scala/Dominoes.scala +4 -0
  225. data/tracks/scala/exercises/dominoes/src/test/scala/DominoesSuite.scala +91 -0
  226. metadata +83 -2
@@ -11,11 +11,11 @@ cache:
11
11
  - $HOME/.foldercache # Per exercise `.stack-work` cache.
12
12
 
13
13
  env:
14
- - RESOLVER="nightly-2016-07-17" CURRENT="YES" # Equal to each stack.yaml.
15
- - RESOLVER="nightly" # Latest nightly snapshot.
14
+ - RESOLVER="lts-7.9" CURRENT="YES" # Equal to each stack.yaml.
15
+ - RESOLVER="nightly" # Latest nightly snapshot.
16
16
 
17
17
  matrix:
18
- allow_failures: # The snapshot `nightly` is just an aliases to
18
+ allow_failures: # The snapshot `nightly` is just an alias to
19
19
  - env: RESOLVER="nightly" # the newest version released. We don't want
20
20
  fast_finish: true # Travis to fail on new incompatible releases.
21
21
 
@@ -50,6 +50,7 @@ script:
50
50
  }
51
51
 
52
52
  for exercise in ${TRAVIS_BUILD_DIR}/exercises/* ; do
53
+ exercisename=$(basename "$exercise")
53
54
  pushd ${exercise}
54
55
 
55
56
  if ! stat -t examples/*/ > /dev/null 2>&1; then
@@ -58,17 +59,21 @@ script:
58
59
  else
59
60
  for example in examples/*/ ; do
60
61
  examplename=$(basename "$example")
61
- exercisename=$(basename "$exercise")
62
+
63
+ buildfolder="${TRAVIS_BUILD_DIR}/build/${exercisename}/${examplename}"
64
+ mkdir -p "${buildfolder}"
65
+ cp -r stack.yaml test ${example}/* "${buildfolder}"
66
+
67
+ pushd $buildfolder
68
+
62
69
  examplecache="${HOME}/.foldercache/${exercisename}/${examplename}/.stack-work"
63
70
  mkdir -p "$examplecache"
64
71
  ln -f -s "$examplecache"
65
72
 
66
73
  echo "testing ${example}"
67
- rm -f src/*.hs
68
- mv ${example}/src/*.hs src
69
- mv ${example}/package.yaml .
70
-
71
74
  test_exercise
75
+
76
+ popd
72
77
  done
73
78
  fi
74
79
 
@@ -376,6 +376,12 @@
376
376
  "topics": [
377
377
  ]
378
378
  },
379
+ {
380
+ "slug": "bowling",
381
+ "difficulty": 7,
382
+ "topics": [
383
+ ]
384
+ },
379
385
  {
380
386
  "slug": "connect",
381
387
  "difficulty": 8,
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -0,0 +1,19 @@
1
+ ## Hints
2
+
3
+ To complete this exercise you need to implement the function `score`,
4
+ that takes a sequence of bowling *rolls* and returns the final score or
5
+ the appropriate error:
6
+
7
+ ```haskell
8
+ score :: [Int] -> Either BowlingError Int
9
+
10
+ data BowlingError = IncompleteGame
11
+ | InvalidRoll { rollIndex :: Int, rollValue :: Int }
12
+ deriving (Eq, Show)
13
+ ```
14
+
15
+ You will find these definitions already in place, but it is up to you
16
+ to define the function.
17
+
18
+ Keep in mind that the test suite expects the rolls to be numbered
19
+ starting from zero.
@@ -0,0 +1,16 @@
1
+ name: bowling
2
+
3
+ dependencies:
4
+ - base
5
+
6
+ library:
7
+ exposed-modules: Bowling
8
+ source-dirs: src
9
+
10
+ tests:
11
+ test:
12
+ main: Tests.hs
13
+ source-dirs: test
14
+ dependencies:
15
+ - bowling
16
+ - hspec
@@ -0,0 +1,84 @@
1
+ module Bowling (score, BowlingError(..)) where
2
+
3
+ import Data.List (tails)
4
+
5
+ data BowlingError = IncompleteGame
6
+ | InvalidRoll { rollIndex :: Int, rollValue :: Int }
7
+ deriving (Eq, Show)
8
+
9
+ type Roll = Int
10
+
11
+ data Frame = Frame { whichFrame :: Int, rolls :: [Roll] }
12
+
13
+ type ScoreState = Either BowlingError (Frame, Int, Int) -- (frame, rollIndex, totalScore)
14
+
15
+ score :: [Int] -> Either BowlingError Int
16
+ score rolls' = totalScoreState >>= completedScore
17
+ where
18
+ totalScoreState = foldl scoreRoll startState rolls''
19
+ startState = Right (Frame 1 [], 0, 0)
20
+ rolls'' = filter (not . null) $ tails rolls'
21
+ completedScore :: (Frame, Int, Int) -> Either BowlingError Int
22
+ completedScore (f, _, totalScore)
23
+ | complete f && finalFrame f = Right totalScore
24
+ | otherwise = Left IncompleteGame
25
+
26
+ scoreRoll :: ScoreState -> [Roll] -> ScoreState
27
+ scoreRoll scoreState rolls' = do
28
+ (f, ri, s) <- scoreState
29
+ scoreRoll' f ri s rolls'
30
+
31
+ scoreRoll' :: Frame -> Int -> Int -> [Roll] -> ScoreState
32
+ scoreRoll' _ ri _ (r:_) | r < 0 || r > 10 = Left $ InvalidRoll ri r
33
+ scoreRoll' f@(Frame 10 (fr:_)) ri totalScore (r:_)
34
+ | throws f < 2 = Right (addRoll f r, succ ri, totalScore + fr + r)
35
+ | throws f == 2 && (fr == 10 || spare f) = addFillBall
36
+ | otherwise = Left $ InvalidRoll ri r -- no more rolls possible
37
+ where
38
+ addFillBall :: ScoreState
39
+ addFillBall
40
+ | firstRoll == 10 && secondRoll /= 10 && secondRoll + r > 10 = Left $ InvalidRoll ri r
41
+ | otherwise = Right (addRoll f r, succ ri, totalScore + r)
42
+ where [firstRoll, secondRoll] = rolls f
43
+ scoreRoll' f@(Frame n _) ri totalScore rs@(r:_)
44
+ | complete f = Right (Frame (succ n) [r], succ ri, totalScore + fscore f rs)
45
+ | pins f + r <= 10 = Right (addRoll f r, succ ri, totalScore)
46
+ scoreRoll' _ ri _ (r:_) = Left $ InvalidRoll ri r
47
+ scoreRoll' _ _ _ _ = undefined -- to avoid compiler warning
48
+
49
+ -- Frame functions
50
+ addRoll :: Frame -> Roll -> Frame
51
+ addRoll f r = Frame (whichFrame f) (rolls f ++ [r])
52
+
53
+ throws :: Frame -> Int
54
+ throws = length . rolls
55
+
56
+ pins :: Frame -> Int
57
+ pins = sum . rolls
58
+
59
+ strike :: Frame -> Bool
60
+ strike f = throws f == 1 && pins f == 10
61
+
62
+ spare :: Frame -> Bool
63
+ spare f = throws f == 2 && pins f == 10
64
+
65
+ finalFrame :: Frame -> Bool
66
+ finalFrame (Frame n _) = n == 10
67
+
68
+ complete :: Frame -> Bool
69
+ complete f
70
+ | not $ finalFrame f = strike f || throws f == 2
71
+ | head (rolls f) == 10 || sum (take 2 $ rolls f) == 10 = throws f == 3
72
+ | otherwise = throws f == 2
73
+
74
+ fscore :: Frame -> [Roll] -> Int
75
+ fscore f rs = pins f + bonus
76
+ where
77
+ bonus
78
+ | finalFrame f = 0
79
+ | strike f = nextRoll + nextToNextRoll
80
+ | spare f = nextRoll
81
+ | otherwise = 0
82
+ nextRoll = head rs
83
+ nextToNextRoll = head $ tail rs
84
+
@@ -0,0 +1,19 @@
1
+ name: bowling
2
+
3
+ dependencies:
4
+ - base
5
+
6
+ library:
7
+ exposed-modules: Bowling
8
+ source-dirs: src
9
+ dependencies:
10
+ # - foo # List here the packages you
11
+ # - bar # want to use in your solution.
12
+
13
+ tests:
14
+ test:
15
+ main: Tests.hs
16
+ source-dirs: test
17
+ dependencies:
18
+ - bowling
19
+ - hspec
@@ -0,0 +1,9 @@
1
+ module Bowling (score, BowlingError(..)) where
2
+
3
+ data BowlingError = IncompleteGame
4
+ | InvalidRoll { rollIndex :: Int, rollValue :: Int }
5
+ deriving (Eq, Show)
6
+
7
+ score :: [Int] -> Either BowlingError Int
8
+ score = undefined
9
+
@@ -0,0 +1 @@
1
+ resolver: lts-7.9
@@ -0,0 +1,143 @@
1
+ {-# LANGUAGE RecordWildCards #-}
2
+
3
+ import Data.Foldable (for_)
4
+ import Test.Hspec (Spec, describe, it, shouldBe)
5
+ import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
6
+
7
+ import Bowling (score, BowlingError(..))
8
+
9
+ main :: IO ()
10
+ main = hspecWith defaultConfig {configFastFail = True} specs
11
+
12
+ specs :: Spec
13
+ specs = describe "bowling" $
14
+ describe "roll, score" $ for_ cases test
15
+ where
16
+
17
+ test Case{..} = it description assertion
18
+ where
19
+ assertion = result `shouldBe` expected
20
+ result = score rolls
21
+
22
+ -- Test cases adapted from `exercism/x-common/bowling` on 2016-11-20.
23
+
24
+ data Case = Case { description :: String
25
+ , rolls :: [Int]
26
+ , expected :: Either BowlingError Int
27
+ }
28
+
29
+ cases :: [Case]
30
+ cases = [ Case { description = "should be able to score a game with all zeros"
31
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
32
+ , expected = Right 0
33
+ }
34
+ , Case { description = "should be able to score a game with no strikes or spares"
35
+ , rolls = [3, 6, 3, 6, 3, 6, 3, 6, 3, 6, 3, 6, 3, 6, 3, 6, 3, 6, 3, 6]
36
+ , expected = Right 90
37
+ }
38
+ , Case { description = "a spare followed by zeros is worth ten points"
39
+ , rolls = [6, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
40
+ , expected = Right 10
41
+ }
42
+ , Case { description = "points scored in the roll after a spare are counted twice"
43
+ , rolls = [6, 4, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
44
+ , expected = Right 16
45
+ }
46
+ , Case { description = "consecutive spares each get a one roll bonus"
47
+ , rolls = [5, 5, 3, 7, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
48
+ , expected = Right 31
49
+ }
50
+ , Case { description = "a spare in the last frame gets a one roll bonus that is counted once"
51
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 3, 7]
52
+ , expected = Right 17
53
+ }
54
+ , Case { description = "a strike earns ten points in a frame with a single roll"
55
+ , rolls = [10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
56
+ , expected = Right 10
57
+ }
58
+ , Case { description = "points scored in the two rolls after a strike are counted twice as a bonus"
59
+ , rolls = [10, 5, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
60
+ , expected = Right 26
61
+ }
62
+ , Case { description = "consecutive strikes each get the two roll bonus"
63
+ , rolls = [10, 10, 10, 5, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
64
+ , expected = Right 81
65
+ }
66
+ , Case { description = "a strike in the last frame gets a two roll bonus that is counted once"
67
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 7, 1]
68
+ , expected = Right 18
69
+ }
70
+ , Case { description = "rolling a spare with the two roll bonus does not get a bonus roll"
71
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 7, 3]
72
+ , expected = Right 20
73
+ }
74
+ , Case { description = "strikes with the two roll bonus do not get bonus rolls"
75
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 10, 10]
76
+ , expected = Right 30
77
+ }
78
+ , Case { description = "a strike with the one roll bonus after a spare in the last frame does not get a bonus"
79
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 3, 10]
80
+ , expected = Right 20
81
+ }
82
+ , Case { description = "all strikes is a perfect game"
83
+ , rolls = [10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10]
84
+ , expected = Right 300
85
+ }
86
+ , Case { description = "rolls can not score negative points"
87
+ , rolls = [-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
88
+ , expected = Left $ InvalidRoll 0 (-1)
89
+ }
90
+ , Case { description = "a roll can not score more than 10 points"
91
+ , rolls = [11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
92
+ , expected = Left $ InvalidRoll 0 11
93
+ }
94
+ , Case { description = "two rolls in a frame can not score more than 10 points"
95
+ , rolls = [5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
96
+ , expected = Left $ InvalidRoll 1 6
97
+ }
98
+ , Case { description = "bonus roll after a strike in the last frame can not score more than 10 points"
99
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 11]
100
+ , expected = Left $ InvalidRoll 19 11
101
+ }
102
+ , Case { description = "two bonus rolls after a strike in the last frame can not score more than 10 points"
103
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 5, 6]
104
+ , expected = Left $ InvalidRoll 20 6
105
+ }
106
+ , Case { description = "two bonus rolls after a strike in the last frame can score more than 10 points if one is a strike"
107
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 10, 6]
108
+ , expected = Right 26
109
+ }
110
+ , Case { description = "the second bonus rolls after a strike in the last frame can not be a strike if the first one is not a strike"
111
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 6, 10]
112
+ , expected = Left $ InvalidRoll 20 10
113
+ }
114
+ , Case { description = "second bonus roll after a strike in the last frame can not score than 10 points"
115
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 10, 11]
116
+ , expected = Left $ InvalidRoll 20 11
117
+ }
118
+ , Case { description = "an unstarted game can not be scored"
119
+ , rolls = []
120
+ , expected = Left IncompleteGame
121
+ }
122
+ , Case { description = "an incomplete game can not be scored"
123
+ , rolls = [0, 0]
124
+ , expected = Left IncompleteGame
125
+ }
126
+ , Case { description = "a game with more than ten frames can not be scored"
127
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
128
+ , expected = Left $ InvalidRoll 20 0
129
+ }
130
+ , Case { description = "bonus rolls for a strike in the last frame must be rolled before score can be calculated"
131
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10]
132
+ , expected = Left IncompleteGame
133
+ }
134
+ , Case { description = "both bonus rolls for a strike in the last frame must be rolled before score can be calculated"
135
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 10]
136
+ , expected = Left IncompleteGame
137
+ }
138
+ , Case { description = "bonus roll for a spare in the last frame must be rolled before score can be calculated"
139
+ , rolls = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 3]
140
+ , expected = Left IncompleteGame
141
+ }
142
+ ]
143
+
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9
@@ -1 +1 @@
1
- resolver: nightly-2016-07-17
1
+ resolver: lts-7.9