trackler 2.2.1.84 → 2.2.1.85

data/tracks/haskell/config.json

@@ -266,6 +266,15 @@
         "Maybe"
       ]
     },
+    {
+      "uuid": "d1dc946d-a142-42ed-abec-e53605635c0d",
+      "slug": "twelve-days",
+      "core": false,
+      "unlocked_by": null,
+      "difficulty": 3,
+      "topics": [
+      ]
+    },
     {
       "uuid": "382e4fbd-99d6-400b-962c-ebb4a411bcea",
       "slug": "beer-song",

data/tracks/haskell/docs/LEARNING.md

@@ -1,12 +1,12 @@
-## Learning Haskell 
+## Learning Haskell
 
 Haskell is a purely functional language, which is a paradigm fundamentally different than the more
 commonly taught [object oriented approach](https://en.wikipedia.org/wiki/Object-oriented_programming). Because of this,
 learning Haskell can feel different than simply picking up another language.
 
 Fortunately there are numerous resources which presume some programming knowledge to begin with, such
-as 
-  - the popular [Learn You a Haskell For Great Good!](http://learnyouahaskell.com/) 
+as
+  - the popular [Learn You a Haskell For Great Good!](http://learnyouahaskell.com/)
   - University of Glasgow's [Functional Programming in Haskell](https://www.futurelearn.com/courses/functional-programming-haskell) course
   - FP Complete's [School of Haskell](https://www.schoolofhaskell.com/)
   - and the [Happy Learn Haskell Tutorial](http://www.happylearnhaskelltutorial.com/).

data/tracks/haskell/exercises/food-chain/examples/success-standard/src/FoodChain.hs

@@ -43,4 +43,4 @@ comment animal = case animal of
   Dog    -> "What a hog, to swallow a dog!"
   Goat   -> "Just opened her throat and swallowed a goat!"
   Cow    -> "I don't know how she swallowed a cow!"
-  Horse  -> "She's dead, of course!" 
+  Horse  -> "She's dead, of course!"

data/tracks/haskell/exercises/forth/examples/success-standard/src/Forth.hs

@@ -17,10 +17,10 @@ import Control.Arrow (first)
 
 type Value = Int
 type FWord = Text
-data Term 
+data Term
      = StartDefinition
      | EndDefinition
-     | V Value 
+     | V Value
      | W FWord
      deriving (Show, Ord, Eq)
 

data/tracks/haskell/exercises/parallel-letter-frequency/examples/success-standard/src/Frequency.hs

@@ -11,7 +11,7 @@ import qualified Data.Text as T
 -- | Compute the frequency of letters in the text using the given number of
 --   parallel workers.
 frequency :: Int -> [Text] -> Map Char Int
-frequency workers texts = 
+frequency workers texts =
     let chunkSize = ceiling (length texts % workers)
         freqs = map countLetters texts `using` parListChunk chunkSize rdeepseq
     in Map.unionsWith (+) freqs

data/tracks/haskell/exercises/sgf-parsing/examples/success-standard/src/Sgf.hs

@@ -38,7 +38,7 @@ prop :: Parser (Text, [Text])
 prop = (,) <$> (T.pack <$> many1 (satisfy isUpper)) <*> many1 val
 
 -- | Parse a value, complete with brackets.
--- 
+--
 -- This is a bit tricky as there are escape sequences to take into account.
 --
 -- We'll use a simple folder with one bit of state: whether the last

data/tracks/haskell/exercises/twelve-days/README.md

@@ -0,0 +1,89 @@
+# Twelve Days
+
+Output the lyrics to 'The Twelve Days of Christmas'.
+
+```text
+On the first day of Christmas my true love gave to me, a Partridge in a Pear Tree.
+
+On the second day of Christmas my true love gave to me, two Turtle Doves, and a Partridge in a Pear Tree.
+
+On the third day of Christmas my true love gave to me, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree.
+
+On the fourth day of Christmas my true love gave to me, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree.
+
+On the fifth day of Christmas my true love gave to me, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree.
+
+On the sixth day of Christmas my true love gave to me, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree.
+
+On the seventh day of Christmas my true love gave to me, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree.
+
+On the eighth day of Christmas my true love gave to me, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree.
+
+On the ninth day of Christmas my true love gave to me, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree.
+
+On the tenth day of Christmas my true love gave to me, ten Lords-a-Leaping, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree.
+
+On the eleventh day of Christmas my true love gave to me, eleven Pipers Piping, ten Lords-a-Leaping, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree.
+
+On the twelfth day of Christmas my true love gave to me, twelve Drummers Drumming, eleven Pipers Piping, ten Lords-a-Leaping, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree.
+```
+
+
+## Getting Started
+
+For installation and learning resources, refer to the
+[exercism help page](http://exercism.io/languages/haskell).
+
+## Running the tests
+
+To run the test suite, execute the following command:
+
+```bash
+stack test
+```
+
+#### If you get an error message like this...
+
+```
+No .cabal file found in directory
+```
+
+You are probably running an old stack version and need
+to upgrade it.
+
+#### Otherwise, if you get an error message like this...
+
+```
+No compiler found, expected minor version match with...
+Try running "stack setup" to install the correct GHC...
+```
+
+Just do as it says and it will download and install
+the correct compiler version:
+
+```bash
+stack setup
+```
+
+## Running *GHCi*
+
+If you want to play with your solution in GHCi, just run the command:
+
+```bash
+stack ghci
+```
+
+## Feedback, Issues, Pull Requests
+
+The [exercism/haskell](https://github.com/exercism/haskell) repository on
+GitHub is the home for all of the Haskell exercises.
+
+If you have feedback about an exercise, or want to help implementing a new
+one, head over there and create an issue.  We'll do our best to help you!
+
+## Source
+
+Wikipedia [http://en.wikipedia.org/wiki/The_Twelve_Days_of_Christmas_(song)](http://en.wikipedia.org/wiki/The_Twelve_Days_of_Christmas_(song))
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/haskell/exercises/twelve-days/examples/success-standard/package.yaml

@@ -0,0 +1,16 @@
+name: twelve-days
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: TwelveDays
+  source-dirs: src
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - twelve-days
+      - hspec

data/tracks/haskell/exercises/twelve-days/examples/success-standard/src/TwelveDays.hs

@@ -0,0 +1,36 @@
+module TwelveDays (recite) where
+
+recite :: Int -> Int -> [String]
+recite start stop
+  | start <= stop = lyrics start : recite (start + 1) stop
+  | otherwise     = []
+
+lyrics :: Int -> String
+lyrics days =
+  beginning ++ end days
+  where
+    beginning =
+      let (day, _) = verse days
+      in "On the " ++ day ++ " day of Christmas my true love gave to me"
+    end days'
+      | days < 13 && days' > 0 = let (_, gift) = verse days'
+                                 in prefix days' ++ gift ++ end (days' - 1)
+      | otherwise              = "."
+      where
+        prefix 1 = if days > 1 then ", and " else ", "
+        prefix _ = ", "
+
+verse :: Int -> (String, String)
+verse 12 = ("twelfth", "twelve Drummers Drumming")
+verse 11 = ("eleventh", "eleven Pipers Piping")
+verse 10 = ("tenth", "ten Lords-a-Leaping")
+verse  9 = ("ninth", "nine Ladies Dancing")
+verse  8 = ("eighth", "eight Maids-a-Milking")
+verse  7 = ("seventh", "seven Swans-a-Swimming")
+verse  6 = ("sixth", "six Geese-a-Laying")
+verse  5 = ("fifth", "five Gold Rings")
+verse  4 = ("fourth", "four Calling Birds")
+verse  3 = ("third", "three French Hens")
+verse  2 = ("second", "two Turtle Doves")
+verse  1 = ("first", "a Partridge in a Pear Tree")
+verse  _ = ("", "")

data/tracks/haskell/exercises/twelve-days/package.yaml

@@ -0,0 +1,20 @@
+name: twelve-days
+version: 1.0.0.1
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: TwelveDays
+  source-dirs: src
+  dependencies:
+  # - foo       # List here the packages you
+  # - bar       # want to use in your solution.
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - twelve-days
+      - hspec

data/tracks/haskell/exercises/twelve-days/src/TwelveDays.hs

@@ -0,0 +1,4 @@
+module TwelveDays (recite) where
+
+recite :: Int -> Int -> [String]
+recite start stop = error "You need to implement this function."

data/tracks/haskell/exercises/twelve-days/stack.yaml

@@ -0,0 +1 @@
+resolver: lts-9.11

data/tracks/haskell/exercises/twelve-days/test/Tests.hs

@@ -0,0 +1,146 @@
+{-# LANGUAGE RecordWildCards #-}
+
+import Data.Foldable     (for_)
+import Test.Hspec        (Spec, describe, it, shouldBe)
+import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
+
+import TwelveDays (recite)
+
+main :: IO ()
+main = hspecWith defaultConfig {configFastFail = True} specs
+
+specs :: Spec
+specs = describe "responseFor" $ for_ cases test
+  where
+      test Case{..} = it description assertion
+        where
+          assertion = recite start stop `shouldBe` expected
+
+data Case = Case { description :: String
+                 , start       :: Int
+                 , stop        :: Int
+                 , expected    :: [String]
+                 }
+
+cases :: [Case]
+cases = [ Case { description = "first day a partridge in a pear tree"
+               , start = 1
+               , stop = 1
+               , expected = [
+                   "On the first day of Christmas my true love gave to me, a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "second day two turtle doves"
+               , start = 2
+               , stop = 2
+               , expected = [
+                   "On the second day of Christmas my true love gave to me, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "third day three french hens"
+               , start = 3
+               , stop = 3
+               , expected = [
+                   "On the third day of Christmas my true love gave to me, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "fourth day four calling birds"
+               , start = 4
+               , stop = 4
+               , expected = [
+                   "On the fourth day of Christmas my true love gave to me, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "fifth day five gold rings"
+               , start = 5
+               , stop = 5
+               , expected = [
+                   "On the fifth day of Christmas my true love gave to me, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "sixth day six geese-a-laying"
+               , start = 6
+               , stop = 6
+               , expected = [
+                   "On the sixth day of Christmas my true love gave to me, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "seventh day seven swans-a-swimming"
+               , start = 7
+               , stop = 7
+               , expected = [
+                   "On the seventh day of Christmas my true love gave to me, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "eighth day eight maids-a-milking"
+               , start = 8
+               , stop = 8
+               , expected = [
+                   "On the eighth day of Christmas my true love gave to me, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "ninth day nine ladies dancing"
+               , start = 9
+               , stop = 9
+               , expected = [
+                   "On the ninth day of Christmas my true love gave to me, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "tenth day ten lords-a-leaping"
+               , start = 10
+               , stop = 10
+               , expected = [
+                   "On the tenth day of Christmas my true love gave to me, ten Lords-a-Leaping, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "eleventh day eleven pipers piping"
+               , start = 11
+               , stop = 11
+               , expected = [
+                   "On the eleventh day of Christmas my true love gave to me, eleven Pipers Piping, ten Lords-a-Leaping, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "twelfth day twelve drummers drumming"
+               , start = 12
+               , stop = 12
+               , expected = [
+                   "On the twelfth day of Christmas my true love gave to me, twelve Drummers Drumming, eleven Pipers Piping, ten Lords-a-Leaping, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "recites first three verses of the song"
+               , start = 1
+               , stop = 3
+               , expected = [
+                   "On the first day of Christmas my true love gave to me, a Partridge in a Pear Tree."
+                 , "On the second day of Christmas my true love gave to me, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the third day of Christmas my true love gave to me, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "recites three verses from the middle of the song"
+               , start = 4
+               , stop = 6
+               , expected = [
+                   "On the fourth day of Christmas my true love gave to me, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the fifth day of Christmas my true love gave to me, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the sixth day of Christmas my true love gave to me, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        , Case { description = "recites the whole song"
+               , start = 1
+               , stop = 12
+               , expected = [
+                   "On the first day of Christmas my true love gave to me, a Partridge in a Pear Tree."
+                 , "On the second day of Christmas my true love gave to me, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the third day of Christmas my true love gave to me, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the fourth day of Christmas my true love gave to me, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the fifth day of Christmas my true love gave to me, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the sixth day of Christmas my true love gave to me, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the seventh day of Christmas my true love gave to me, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the eighth day of Christmas my true love gave to me, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the ninth day of Christmas my true love gave to me, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the tenth day of Christmas my true love gave to me, ten Lords-a-Leaping, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the eleventh day of Christmas my true love gave to me, eleven Pipers Piping, ten Lords-a-Leaping, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 , "On the twelfth day of Christmas my true love gave to me, twelve Drummers Drumming, eleven Pipers Piping, ten Lords-a-Leaping, nine Ladies Dancing, eight Maids-a-Milking, seven Swans-a-Swimming, six Geese-a-Laying, five Gold Rings, four Calling Birds, three French Hens, two Turtle Doves, and a Partridge in a Pear Tree."
+                 ]
+               }
+        ]

data/tracks/haskell/exercises/zipper/examples/success-standard/src/Zipper.hs

@@ -16,7 +16,7 @@ module Zipper (
 ) where
 
 -- | A binary tree.
-data BinTree a = BT { 
+data BinTree a = BT {
     btValue :: a,                 -- ^ Value
     btLeft  :: Maybe (BinTree a), -- ^ Left child
     btRight :: Maybe (BinTree a)  -- ^ Right child
@@ -53,7 +53,7 @@ toTree (Z v l r zt) = go (BT v l r) zt
 
 -- | Get the value of the focus node.
 value :: Zipper a -> a
-value = zValue 
+value = zValue
 
 -- | Get the left child of the focus node, if any.
 left :: Zipper a -> Maybe (Zipper a)
@@ -81,4 +81,4 @@ setLeft t z = z { zLeft = t }
 
 -- | Replace a right child tree.
 setRight :: Maybe (BinTree a) -> Zipper a -> Zipper a
-setRight t z = z { zRight = t } 
+setRight t z = z { zRight = t }

data/tracks/java/exercises/allergies/.meta/version

@@ -0,0 +1,2 @@
+1.1.0
+

data/tracks/java/exercises/allergies/src/test/java/AllergiesTest.java

@@ -6,6 +6,8 @@ import java.util.List;
 import java.util.Collections;
 
 import static org.junit.Assert.assertEquals;
+import static org.junit.Assert.assertTrue;
+import static org.junit.Assert.assertFalse;
 
 public class AllergiesTest {
 
@@ -14,10 +16,9 @@ public class AllergiesTest {
     public void noAllergiesMeansNotAllergicToAnything() {
         Allergies allergies = new Allergies(0);
 
-        assertEquals(false, allergies.isAllergicTo(Allergen.EGGS));
-        assertEquals(false, allergies.isAllergicTo(Allergen.PEANUTS));
-        assertEquals(false, allergies.isAllergicTo(Allergen.STRAWBERRIES));
-        assertEquals(false, allergies.isAllergicTo(Allergen.CATS));
+        assertFalse(allergies.isAllergicTo(Allergen.PEANUTS));
+        assertFalse(allergies.isAllergicTo(Allergen.CATS));
+        assertFalse(allergies.isAllergicTo(Allergen.STRAWBERRIES));
     }
 
     @Ignore("Remove to run test")
@@ -25,73 +26,17 @@ public class AllergiesTest {
     public void allergicToEggs() {
         Allergies allergies = new Allergies(1);
 
-        assertEquals(true, allergies.isAllergicTo(Allergen.EGGS));
+        assertTrue(allergies.isAllergicTo(Allergen.EGGS));
     }
 
     @Ignore("Remove to run test")
     @Test
-    public void allergicToPeanuts() {
-        Allergies allergies = new Allergies(2);
-
-        assertEquals(true, allergies.isAllergicTo(Allergen.PEANUTS));
-    }
-
-    @Ignore("Remove to run test")
-    @Test
-    public void allergicToShellfish() {
-        Allergies allergies = new Allergies(4);
-
-        assertEquals(true, allergies.isAllergicTo(Allergen.SHELLFISH));
-    }
-
-    @Ignore("Remove to run test")
-    @Test
-    public void allergicToStrawberries() {
-        Allergies allergies = new Allergies(8);
-
-        assertEquals(true, allergies.isAllergicTo(Allergen.STRAWBERRIES));
-    }
-
-    @Ignore("Remove to run test")
-    @Test
-    public void allergicToTomatoes() {
-        Allergies allergies = new Allergies(16);
-
-        assertEquals(true, allergies.isAllergicTo(Allergen.TOMATOES));
-    }
-
-    @Ignore("Remove to run test")
-    @Test
-    public void allergicToChocolate() {
-        Allergies allergies = new Allergies(32);
-
-        assertEquals(true, allergies.isAllergicTo(Allergen.CHOCOLATE));
-    }
-
-    @Ignore("Remove to run test")
-    @Test
-    public void allergicToPollen() {
-        Allergies allergies = new Allergies(64);
-
-        assertEquals(true, allergies.isAllergicTo(Allergen.POLLEN));
-    }
-
-    @Ignore("Remove to run test")
-    @Test
-    public void allergicToCats() {
-        Allergies allergies = new Allergies(128);
-
-        assertEquals(true, allergies.isAllergicTo(Allergen.CATS));
-    }
-
-    @Ignore("Remove to run test")
-    @Test
-    public void isAllergicToEggsInAdditionToOtherStuff() {
+    public void allergicToEggsInAdditionToOtherStuff() {
         Allergies allergies = new Allergies(5);
 
-        assertEquals(true, allergies.isAllergicTo(Allergen.EGGS));
-        assertEquals(true, allergies.isAllergicTo(Allergen.SHELLFISH));
-        assertEquals(false, allergies.isAllergicTo(Allergen.STRAWBERRIES));
+        assertTrue(allergies.isAllergicTo(Allergen.EGGS));
+        assertTrue(allergies.isAllergicTo(Allergen.SHELLFISH));
+        assertFalse(allergies.isAllergicTo(Allergen.STRAWBERRIES));
     }
 
     @Ignore("Remove to run test")