trackler 2.0.0.3 → 2.0.0.4

data/tracks/haskell/exercises/series/HINTS.md

@@ -0,0 +1,23 @@
+## Hints
+
+To complete this exercise you need to implement the function `slices`,
+that takes a *text* and returns the subsequences of digits with a
+specified size:
+
+If it is your first time solving this exercise, it is recommended that you
+stick to the provided signature:
+
+```haskell
+slices :: Int -> String -> [[Int]]
+```
+
+Later, it may be a good idea to revisit this problem and play with other data
+types and libraries:
+
+- `ByteString`, from package *bytestring*.
+- `Sequence`, from package *containers*.
+- `Text`, from package *text*.
+- `Vector`, from package *vector*.
+
+The test suite was intentionally designed to accept almost any type signature
+that makes sense, so you are encouraged to find the one you think is the best.

data/tracks/haskell/exercises/series/examples/success-byteseqs/package.yaml

@@ -0,0 +1,19 @@
+name: series
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: Series
+  source-dirs: src
+  dependencies:
+    - bytestring
+    - containers
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - series
+      - hspec

data/tracks/haskell/exercises/series/examples/success-byteseqs/src/Series.hs

@@ -0,0 +1,26 @@
+module Series (slices) where
+
+import Control.Applicative   (liftA2)
+import Control.Monad         (guard)
+import Data.ByteString.Char8 (ByteString, foldr, length, tails, take)
+import Data.Function         (on)
+import Data.Maybe            (mapMaybe)
+import Data.Sequence         (Seq, empty, fromList, singleton, (<|))
+import Prelude        hiding (foldr, length, take)
+
+slices :: Num a => Int -> ByteString -> Seq (Seq a)
+slices 0 _  = singleton empty
+slices n bs = fromList
+            . mapMaybe toDigits
+            . takeWhile ((== n) . length)
+            . map (take n)
+            . tails
+            $ bs
+
+toDigits :: Num a => ByteString -> Maybe (Seq a)
+toDigits = foldr (liftA2 (<|) . toDigit) (Just empty)
+
+toDigit :: Num a => Char -> Maybe a
+toDigit x = guard (0 <= dec && dec <= 9) >> return (fromIntegral dec)
+  where
+    dec = ((-) `on` fromEnum) x '0'

data/tracks/haskell/exercises/series/src/Series.hs

@@ -1,3 +1,4 @@
 module Series (slices) where
 
-slices = undefined
+slices :: Int -> String -> [[Int]]
+slices n xs = undefined

data/tracks/haskell/exercises/series/test/Tests.hs

@@ -1,5 +1,8 @@
 {-# OPTIONS_GHC -fno-warn-type-defaults #-}
+{-# LANGUAGE FlexibleContexts           #-}
+{-# LANGUAGE OverloadedStrings          #-}
 
+import GHC.Exts          (toList)
 import Test.Hspec        (Spec, describe, it, shouldBe)
 import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
 
@@ -11,23 +14,25 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "series" $ do
 
-    -- As of 2016-09-12, there was no reference file
+    -- As of 2016-11-08, there was no reference file
     -- for the test cases in `exercism/x-common`.
 
+    let x `shouldHaveSlices` yss = (map toList . toList) x `shouldBe` yss
+
     it "slices of one" $ do
-      slices 1 ""      `shouldBe` []
-      slices 1 "01234" `shouldBe` [[0], [1], [2], [3], [4]]
+      slices 1 ""      `shouldHaveSlices` []
+      slices 1 "01234" `shouldHaveSlices` [[0], [1], [2], [3], [4]]
 
     it "slices of two" $ do
-      slices 2 ""      `shouldBe` []
-      slices 2 "01"    `shouldBe` [[0,1]]
-      slices 2 "01234" `shouldBe` [[0,1], [1,2], [2,3], [3,4]]
+      slices 2 ""      `shouldHaveSlices` []
+      slices 2 "01"    `shouldHaveSlices` [[0,1]]
+      slices 2 "01234" `shouldHaveSlices` [[0,1], [1,2], [2,3], [3,4]]
 
     it "slices of three" $ do
-      slices 3 "ab"   `shouldBe` []
-      slices 3 "012"  `shouldBe` [[0,1,2]]
-      slices 3 "0123" `shouldBe` [[0,1,2], [1,2,3]]
+      slices 3 "ab"   `shouldHaveSlices` []
+      slices 3 "012"  `shouldHaveSlices` [[0,1,2]]
+      slices 3 "0123" `shouldHaveSlices` [[0,1,2], [1,2,3]]
 
     it "slices of zero" $ do
-      slices 0 ""    `shouldBe` [[]]
-      slices 0 "012" `shouldBe` [[]]
+      slices 0 ""    `shouldHaveSlices` [[]]
+      slices 0 "012" `shouldHaveSlices` [[]]

data/tracks/haskell/exercises/sgf-parsing/package.yaml

@@ -11,7 +11,6 @@ library:
   dependencies:
   # - foo       # List here the packages you
   # - bar       # want to use in your solution.
-    - attoparsec
 
 tests:
   test:

data/tracks/haskell/exercises/sieve/package.yaml

@@ -9,7 +9,6 @@ library:
   dependencies:
   # - foo       # List here the packages you
   # - bar       # want to use in your solution.
-    - vector
 
 tests:
   test:

data/tracks/haskell/exercises/simple-cipher/package.yaml

@@ -9,7 +9,6 @@ library:
   dependencies:
   # - foo       # List here the packages you
   # - bar       # want to use in your solution.
-    - random
 
 tests:
   test:

data/tracks/haskell/exercises/triangle/package.yaml

@@ -9,7 +9,6 @@ library:
   dependencies:
   # - foo       # List here the packages you
   # - bar       # want to use in your solution.
-    - containers
 
 tests:
   test:

data/tracks/haskell/exercises/word-count/examples/success-newtype/src/WordCount.hs

@@ -2,9 +2,9 @@
 
 module WordCount (wordCount) where
 
-import Prelude hiding (null)
+import Prelude hiding (head, init, null, tail)
 import Data.Char      (isAlphaNum)
-import Data.Text      (Text, null, split, toLower)
+import Data.Text      (Text, head, init, null, split, tail, toLower)
 import Data.MultiSet  (MultiSet, Occur, fromList, fromOccurList, toOccurList)
 
 import qualified GHC.Exts (IsList(..))
@@ -12,14 +12,17 @@ import qualified GHC.Exts (IsList(..))
 wordCount :: Text -> Bag Text
 wordCount = Bag
           . fromList
-          . map toLower
-          . wordsBy (not . isAlphaNum)
+          . map (stripQuote . toLower)
+          . wordsBy (\c -> not (isAlphaNum c) && c /= '\'')
 
 -- The `text` package misses this function that
 -- exists in package `split`, but works on lists.
 wordsBy :: (Char -> Bool) -> Text -> [Text]
 wordsBy p = filter (not . null) . split p
 
+stripQuote :: Text -> Text
+stripQuote t = if head t == '\'' then init (tail t) else t
+
 -- MultiSet is not an instance of `IsList`, so we create
 -- a newtype to wrap it, avoiding an orphan instance.
 newtype Bag a = Bag { toMultiSet :: MultiSet a }

data/tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs

@@ -9,5 +9,9 @@ wordCount :: String -> [(String, Int)]
 wordCount = map (head &&& length)
           . group
           . sort
-          . map (map toLower)
-          . wordsBy (not . isAlphaNum)
+          . map (stripQuote . map toLower)
+          . wordsBy (\c -> not (isAlphaNum c) && c /= '\'')
+
+stripQuote :: String -> String
+stripQuote ('\'':t) = init t
+stripQuote s = s

data/tracks/haskell/exercises/word-count/test/Tests.hs

@@ -30,7 +30,7 @@ specs = describe "word-count" $
                    . fromList
                    $ input
 
--- Test cases adapted from `exercism/x-common/word-count.json` on 2016-07-26.
+-- Test cases adapted from `exercism/x-common/word-count` on 2016-11-06.
 
 data Case = Case { description :: String
                  , input       :: String
@@ -56,6 +56,18 @@ cases = [ Case { description = "count one word"
                                , ("red" , 1)
                                , ("blue", 1) ]
                }
+        , Case { description = "handles cramped lists"
+               , input       = "one,two,three"
+               , expected    = [ ("one"  , 1)
+                               , ("two"  , 1)
+                               , ("three", 1) ]
+               }
+        , Case { description = "handles expanded lists"
+               , input       = "one,\ntwo,\nthree"
+               , expected    = [ ("one"  , 1)
+                               , ("two"  , 1)
+                               , ("three", 1) ]
+               }
         , Case { description = "ignore punctuation"
                , input       = "car : carpet as java : javascript!!&@$%^&"
                , expected    = [ ("car"       , 1)
@@ -75,4 +87,21 @@ cases = [ Case { description = "count one word"
                , expected    = [ ("go"  , 3)
                                , ("stop", 2) ]
                }
+        , Case { description = "with apostrophes"
+               , input       = "First: don't laugh. Then: don't cry."
+               , expected    = [ ("first", 1)
+                               , ("don't", 2)
+                               , ("laugh", 1)
+                               , ("then" , 1)
+                               , ("cry"  , 1) ]
+               }
+        , Case { description = "with quotations"
+               , input       = "Joe can't tell between 'large' and large."
+               , expected    = [ ("joe"    , 1)
+                               , ("can't"  , 1)
+                               , ("tell"   , 1)
+                               , ("between", 1)
+                               , ("large"  , 2)
+                               , ("and"    , 1) ]
+               }
         ]

data/tracks/haskell/exercises/wordy/package.yaml

@@ -9,8 +9,6 @@ library:
   dependencies:
   # - foo       # List here the packages you
   # - bar       # want to use in your solution.
-    - attoparsec
-    - text
 
 tests:
   test:

data/tracks/java/docs/INSTALLATION.md

@@ -108,6 +108,8 @@ If you are using Debian or its derivatives (like Ubuntu or Linux Mint), use APT:
 -  Install Gradle:
 
    ```sh
+   $ sudo add-apt-repository ppa:cwchien/gradle
+   $ sudo apt-get update
    $ sudo apt-get install gradle
    ```
 

data/tracks/java/exercises/_template/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/accumulate/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/acronym/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/allergies/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/anagram/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
   testCompile "org.assertj:assertj-core:3.2.0"
 }
 test {

data/tracks/java/exercises/atbash-cipher/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/beer-song/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/binary/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/bob/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/crypto-square/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/etl/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
   testCompile "org.assertj:assertj-core:3.2.0"
   testCompile "com.google.guava:guava:16+"
 }

data/tracks/java/exercises/gigasecond/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/grade-school/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
   testCompile "org.assertj:assertj-core:3.2.0"
 }
 test {

data/tracks/java/exercises/hamming/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/hello-world/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 
 test {

data/tracks/java/exercises/hexadecimal/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/linked-list/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
   testCompile "org.assertj:assertj-core:3.2.0"
 }
 test {

data/tracks/java/exercises/luhn/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/meetup/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
   testCompile "org.assertj:assertj-core:3.2.0"
 }
 test {

data/tracks/java/exercises/nth-prime/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
   testCompile "org.assertj:assertj-core:3.2.0"
 }
 test {

data/tracks/java/exercises/nucleotide-count/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
   testCompile "org.assertj:assertj-core:3.2.0"
 }
 

data/tracks/java/exercises/octal/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/pangram/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/pascals-triangle/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/phone-number/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/pig-latin/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/raindrops/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/rna-transcription/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/robot-name/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 
 test {

data/tracks/java/exercises/roman-numerals/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/scrabble-score/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/sieve/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/simple-cipher/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/simple-linked-list/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
   testCompile "org.assertj:assertj-core:3.2.0"
 }
 test {

data/tracks/java/exercises/space-age/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/strain/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {

data/tracks/java/exercises/triangle/build.gradle

@@ -7,7 +7,7 @@ repositories {
 }
 
 dependencies {
-  testCompile "junit:junit:4.10"
+  testCompile "junit:junit:4.12"
 }
 test {
   testLogging {