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.
- checksums.yaml +4 -4
- data/common/exercises/bob/canonical-data.json +1 -20
- data/common/exercises/raindrops/canonical-data.json +18 -0
- data/common/exercises/sublist/canonical-data.json +5 -0
- data/lib/trackler/version.rb +1 -1
- data/tracks/clojure/config.json +5 -0
- data/tracks/clojure/exercises/pig-latin/project.clj +4 -0
- data/tracks/clojure/exercises/pig-latin/src/example.clj +49 -0
- data/tracks/clojure/exercises/pig-latin/test/pig_latin_test.clj +92 -0
- data/tracks/clojure/exercises/robot-name/src/example.clj +8 -11
- data/tracks/clojure/exercises/robot-name/test/robot_name_test.clj +23 -18
- data/tracks/crystal/config.json +6 -0
- data/tracks/crystal/exercises/acronym/spec/acronym_spec.cr +7 -7
- data/tracks/crystal/exercises/forth/spec/forth_spec.cr +198 -0
- data/tracks/crystal/exercises/forth/src/example.cr +187 -0
- data/tracks/crystal/exercises/hello-world/spec/hello_world_spec.cr +3 -3
- data/tracks/crystal/src/generator/exercises/acronym.cr +1 -1
- data/tracks/crystal/src/generator/exercises/exercise_generator.cr +3 -2
- data/tracks/crystal/src/generator/exercises/forth.cr +56 -0
- data/tracks/crystal/src/generator/exercises/templates/example.tt +2 -2
- data/tracks/crystal/src/generator/spec/exercise_generator_spec.cr +5 -3
- data/tracks/csharp/exercises/wordy/WordyTest.cs +2 -2
- data/tracks/elixir/config.json +83 -70
- data/tracks/fsharp/exercises/wordy/WordyTest.fs +1 -1
- data/tracks/go/config.json +28 -3
- data/tracks/go/exercises/all-your-base/all_your_base_test.go +185 -0
- data/tracks/go/exercises/all-your-base/example.go +60 -0
- data/tracks/go/exercises/isogram/example.go +15 -0
- data/tracks/go/exercises/isogram/isogram_test.go +50 -0
- data/tracks/go/exercises/ledger/ledger.go +2 -2
- data/tracks/go/exercises/pangram/example.go +32 -0
- data/tracks/go/exercises/pangram/pangram_test.go +43 -0
- data/tracks/go/exercises/protein-translation/example.go +59 -0
- data/tracks/go/exercises/protein-translation/protein_translation_test.go +69 -0
- data/tracks/go/exercises/tree-building/tree_building.go +1 -1
- data/tracks/go/exercises/twelve-days/example.go +57 -0
- data/tracks/go/exercises/twelve-days/twelve_days_test.go +79 -0
- data/tracks/haskell/.travis.yml +13 -8
- data/tracks/haskell/config.json +6 -0
- data/tracks/haskell/exercises/accumulate/stack.yaml +1 -1
- data/tracks/haskell/exercises/all-your-base/stack.yaml +1 -1
- data/tracks/haskell/exercises/allergies/stack.yaml +1 -1
- data/tracks/haskell/exercises/alphametics/stack.yaml +1 -1
- data/tracks/haskell/exercises/anagram/stack.yaml +1 -1
- data/tracks/haskell/exercises/atbash-cipher/stack.yaml +1 -1
- data/tracks/haskell/exercises/bank-account/stack.yaml +1 -1
- data/tracks/haskell/exercises/beer-song/stack.yaml +1 -1
- data/tracks/haskell/exercises/binary/stack.yaml +1 -1
- data/tracks/haskell/exercises/binary-search-tree/stack.yaml +1 -1
- data/tracks/haskell/exercises/bob/stack.yaml +1 -1
- data/tracks/haskell/exercises/bowling/HINTS.md +19 -0
- data/tracks/haskell/exercises/bowling/examples/success-standard/package.yaml +16 -0
- data/tracks/haskell/exercises/bowling/examples/success-standard/src/Bowling.hs +84 -0
- data/tracks/haskell/exercises/bowling/package.yaml +19 -0
- data/tracks/haskell/exercises/bowling/src/Bowling.hs +9 -0
- data/tracks/haskell/exercises/bowling/stack.yaml +1 -0
- data/tracks/haskell/exercises/bowling/test/Tests.hs +143 -0
- data/tracks/haskell/exercises/change/stack.yaml +1 -1
- data/tracks/haskell/exercises/clock/stack.yaml +1 -1
- data/tracks/haskell/exercises/connect/stack.yaml +1 -1
- data/tracks/haskell/exercises/crypto-square/stack.yaml +1 -1
- data/tracks/haskell/exercises/custom-set/stack.yaml +1 -1
- data/tracks/haskell/exercises/difference-of-squares/stack.yaml +1 -1
- data/tracks/haskell/exercises/dominoes/stack.yaml +1 -1
- data/tracks/haskell/exercises/etl/stack.yaml +1 -1
- data/tracks/haskell/exercises/food-chain/stack.yaml +1 -1
- data/tracks/haskell/exercises/forth/stack.yaml +1 -1
- data/tracks/haskell/exercises/gigasecond/stack.yaml +1 -1
- data/tracks/haskell/exercises/go-counting/stack.yaml +1 -1
- data/tracks/haskell/exercises/grade-school/stack.yaml +1 -1
- data/tracks/haskell/exercises/grains/stack.yaml +1 -1
- data/tracks/haskell/exercises/hamming/stack.yaml +1 -1
- data/tracks/haskell/exercises/hexadecimal/stack.yaml +1 -1
- data/tracks/haskell/exercises/house/stack.yaml +1 -1
- data/tracks/haskell/exercises/kindergarten-garden/stack.yaml +1 -1
- data/tracks/haskell/exercises/largest-series-product/stack.yaml +1 -1
- data/tracks/haskell/exercises/leap/stack.yaml +1 -1
- data/tracks/haskell/exercises/lens-person/stack.yaml +1 -1
- data/tracks/haskell/exercises/linked-list/stack.yaml +1 -1
- data/tracks/haskell/exercises/list-ops/stack.yaml +1 -1
- data/tracks/haskell/exercises/luhn/stack.yaml +1 -1
- data/tracks/haskell/exercises/matrix/stack.yaml +1 -1
- data/tracks/haskell/exercises/meetup/stack.yaml +1 -1
- data/tracks/haskell/exercises/minesweeper/stack.yaml +1 -1
- data/tracks/haskell/exercises/nth-prime/stack.yaml +1 -1
- data/tracks/haskell/exercises/nucleotide-count/stack.yaml +1 -1
- data/tracks/haskell/exercises/ocr-numbers/stack.yaml +1 -1
- data/tracks/haskell/exercises/octal/stack.yaml +1 -1
- data/tracks/haskell/exercises/palindrome-products/stack.yaml +1 -1
- data/tracks/haskell/exercises/parallel-letter-frequency/stack.yaml +1 -1
- data/tracks/haskell/exercises/pascals-triangle/stack.yaml +1 -1
- data/tracks/haskell/exercises/phone-number/stack.yaml +1 -1
- data/tracks/haskell/exercises/pig-latin/stack.yaml +1 -1
- data/tracks/haskell/exercises/pov/stack.yaml +1 -1
- data/tracks/haskell/exercises/prime-factors/stack.yaml +1 -1
- data/tracks/haskell/exercises/pythagorean-triplet/stack.yaml +1 -1
- data/tracks/haskell/exercises/queen-attack/stack.yaml +1 -1
- data/tracks/haskell/exercises/raindrops/stack.yaml +1 -1
- data/tracks/haskell/exercises/rna-transcription/stack.yaml +1 -1
- data/tracks/haskell/exercises/robot-name/stack.yaml +1 -1
- data/tracks/haskell/exercises/robot-simulator/stack.yaml +1 -1
- data/tracks/haskell/exercises/roman-numerals/stack.yaml +1 -1
- data/tracks/haskell/exercises/saddle-points/stack.yaml +1 -1
- data/tracks/haskell/exercises/say/stack.yaml +1 -1
- data/tracks/haskell/exercises/scrabble-score/stack.yaml +1 -1
- data/tracks/haskell/exercises/secret-handshake/stack.yaml +1 -1
- data/tracks/haskell/exercises/series/stack.yaml +1 -1
- data/tracks/haskell/exercises/sgf-parsing/stack.yaml +1 -1
- data/tracks/haskell/exercises/sieve/stack.yaml +1 -1
- data/tracks/haskell/exercises/simple-cipher/stack.yaml +1 -1
- data/tracks/haskell/exercises/simple-linked-list/stack.yaml +1 -1
- data/tracks/haskell/exercises/space-age/stack.yaml +1 -1
- data/tracks/haskell/exercises/strain/stack.yaml +1 -1
- data/tracks/haskell/exercises/sublist/stack.yaml +1 -1
- data/tracks/haskell/exercises/sum-of-multiples/stack.yaml +1 -1
- data/tracks/haskell/exercises/triangle/stack.yaml +1 -1
- data/tracks/haskell/exercises/trinary/stack.yaml +1 -1
- data/tracks/haskell/exercises/word-count/stack.yaml +1 -1
- data/tracks/haskell/exercises/wordy/stack.yaml +1 -1
- data/tracks/haskell/exercises/zebra-puzzle/stack.yaml +1 -1
- data/tracks/haskell/exercises/zipper/stack.yaml +1 -1
- data/tracks/java/config.json +13 -1
- data/tracks/java/exercises/etl/src/main/java/Etl.java +3 -3
- data/tracks/java/exercises/hello-world/GETTING_STARTED.md +1 -1
- data/tracks/java/exercises/hello-world/src/main/java/HelloWorld.java +3 -3
- data/tracks/java/exercises/minesweeper/build.gradle +17 -0
- data/tracks/java/exercises/minesweeper/src/example/java/MinesweeperBoard.java +111 -0
- data/tracks/java/exercises/minesweeper/src/main/java/MinesweeperBoard.java +5 -0
- data/tracks/java/exercises/minesweeper/src/test/java/MinesweeperBoardTest.java +295 -0
- data/tracks/java/exercises/nucleotide-count/src/test/java/NucleotideTest.java +67 -67
- data/tracks/java/exercises/series/build.gradle +18 -0
- data/tracks/java/exercises/series/src/example/java/Series.java +39 -0
- data/tracks/java/exercises/series/src/main/java/.keep +0 -0
- data/tracks/java/exercises/series/src/main/java/Series.java +3 -0
- data/tracks/java/exercises/series/src/test/java/.keep +0 -0
- data/tracks/java/exercises/series/src/test/java/SeriesTest.java +154 -0
- data/tracks/java/exercises/settings.gradle +2 -0
- data/tracks/javascript/exercises/custom-set/custom-set.spec.js +130 -84
- data/tracks/javascript/exercises/custom-set/example-gen.js +200 -0
- data/tracks/ocaml/Makefile +5 -1
- data/tracks/ocaml/config.json +2 -1
- data/tracks/ocaml/exercises/anagram/test.ml +35 -24
- data/tracks/ocaml/exercises/bob/example.ml +1 -1
- data/tracks/ocaml/exercises/bob/test.ml +53 -40
- data/tracks/ocaml/exercises/hamming/test.ml +41 -31
- data/tracks/ocaml/exercises/raindrops/test.ml +38 -39
- data/tracks/ocaml/tools/test-generator/.merlin +5 -0
- data/tracks/ocaml/tools/test-generator/Makefile +15 -0
- data/tracks/ocaml/tools/test-generator/_tags +0 -0
- data/tracks/ocaml/tools/test-generator/src/codegen.ml +17 -0
- data/tracks/ocaml/tools/test-generator/src/codegen.mli +7 -0
- data/tracks/ocaml/tools/test-generator/src/leap.json +39 -0
- data/tracks/ocaml/tools/test-generator/src/model.ml +31 -0
- data/tracks/ocaml/tools/test-generator/src/parser.ml +61 -0
- data/tracks/ocaml/tools/test-generator/src/parser.mli +9 -0
- data/tracks/ocaml/tools/test-generator/src/special_cases.ml +12 -0
- data/tracks/ocaml/tools/test-generator/src/special_cases.mli +7 -0
- data/tracks/ocaml/tools/test-generator/src/test_gen.ml +25 -0
- data/tracks/ocaml/tools/test-generator/src/test_generator.ml +62 -0
- data/tracks/ocaml/tools/test-generator/src/test_generator.mli +6 -0
- data/tracks/ocaml/tools/test-generator/src/utils.ml +32 -0
- data/tracks/ocaml/tools/test-generator/src/utils.mli +18 -0
- data/tracks/ocaml/tools/test-generator/templates/anagram/template.ml +17 -0
- data/tracks/ocaml/tools/test-generator/templates/bob/template.ml +15 -0
- data/tracks/ocaml/tools/test-generator/templates/hamming/template.ml +30 -0
- data/tracks/ocaml/tools/test-generator/templates/leap/template.ml +15 -0
- data/tracks/ocaml/tools/test-generator/templates/raindrops/template.ml +15 -0
- data/tracks/ocaml/tools/test-generator/templates/word-count/template.ml +19 -0
- data/tracks/ocaml/tools/test-generator/test/all_tests.ml +11 -0
- data/tracks/ocaml/tools/test-generator/test/codegen_test.ml +20 -0
- data/tracks/ocaml/tools/test-generator/test/model_test.ml +27 -0
- data/tracks/ocaml/tools/test-generator/test/parser_test.ml +73 -0
- data/tracks/ocaml/tools/test-generator/test/special_cases_test.ml +22 -0
- data/tracks/ocaml/tools/test-generator/test/test_generator_test.ml +11 -0
- data/tracks/ocaml/tools/test-generator/test/utils_test.ml +21 -0
- data/tracks/perl5/config.json +1 -1
- data/tracks/perl6/accumulate/accumulate.t +8 -2
- data/tracks/perl6/anagram/Example.pm +1 -1
- data/tracks/perl6/anagram/anagram.t +7 -8
- data/tracks/perl6/binary/Example.pm +1 -1
- data/tracks/perl6/binary/binary.t +7 -8
- data/tracks/perl6/bob/bob.t +1 -3
- data/tracks/perl6/config.json +1 -0
- data/tracks/perl6/grains/grains.t +7 -2
- data/tracks/perl6/leap/leap.t +3 -1
- data/tracks/perl6/raindrops/raindrops.t +8 -2
- data/tracks/perl6/rna-transcription/rna_transcription.t +8 -9
- data/tracks/perl6/robot-name/robot.t +8 -9
- data/tracks/perl6/scrabble-score/Example.pm +1 -1
- data/tracks/perl6/scrabble-score/scrabble_score.t +8 -2
- data/tracks/perl6/word-count/word_count.t +8 -2
- data/tracks/php/config.json +5 -0
- data/tracks/php/exercises/markdown/example.php +85 -0
- data/tracks/php/exercises/markdown/markdown.php +82 -0
- data/tracks/php/exercises/markdown/markdown_test.php +57 -0
- data/tracks/python/exercises/hamming/example.py +3 -0
- data/tracks/python/exercises/hamming/hamming_test.py +40 -14
- data/tracks/python/exercises/rna-transcription/example.py +6 -1
- data/tracks/python/exercises/rna-transcription/rna_transcription_test.py +9 -0
- data/tracks/ruby/config.json +6 -0
- data/tracks/ruby/exercises/dominoes/.version +1 -0
- data/tracks/ruby/exercises/dominoes/dominoes_test.rb +149 -0
- data/tracks/ruby/exercises/dominoes/example.rb +37 -0
- data/tracks/ruby/exercises/dominoes/example.tt +57 -0
- data/tracks/ruby/exercises/pangram/.version +1 -1
- data/tracks/ruby/exercises/pangram/example.rb +2 -2
- data/tracks/ruby/exercises/pangram/example.tt +5 -7
- data/tracks/ruby/exercises/pangram/pangram_test.rb +30 -25
- data/tracks/ruby/exercises/queen-attack/.version +1 -0
- data/tracks/ruby/exercises/queen-attack/example.rb +5 -30
- data/tracks/ruby/exercises/queen-attack/example.tt +22 -0
- data/tracks/ruby/exercises/queen-attack/queen_attack_test.rb +46 -95
- data/tracks/ruby/exercises/triangle/.version +1 -0
- data/tracks/ruby/exercises/triangle/example.rb +15 -22
- data/tracks/ruby/exercises/triangle/example.tt +20 -0
- data/tracks/ruby/exercises/triangle/triangle_test.rb +80 -40
- data/tracks/ruby/lib/dominoes_cases.rb +23 -0
- data/tracks/ruby/lib/pangram_cases.rb +19 -4
- data/tracks/ruby/lib/queen_attack_cases.rb +54 -0
- data/tracks/ruby/lib/triangle_cases.rb +51 -0
- data/tracks/scala/config.json +6 -0
- data/tracks/scala/exercises/dominoes/Example.scala +41 -0
- data/tracks/scala/exercises/dominoes/build.sbt +3 -0
- data/tracks/scala/exercises/dominoes/src/main/scala/Dominoes.scala +4 -0
- data/tracks/scala/exercises/dominoes/src/test/scala/DominoesSuite.scala +91 -0
- metadata +83 -2
data/tracks/haskell/.travis.yml
CHANGED
@@ -11,11 +11,11 @@ cache:
|
|
11
11
|
- $HOME/.foldercache # Per exercise `.stack-work` cache.
|
12
12
|
|
13
13
|
env:
|
14
|
-
- RESOLVER="
|
15
|
-
- RESOLVER="nightly"
|
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
|
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
|
-
|
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
|
|
data/tracks/haskell/config.json
CHANGED
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
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,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 @@
|
|
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:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|
@@ -1 +1 @@
|
|
1
|
-
resolver:
|
1
|
+
resolver: lts-7.9
|