trackler 2.0.0.2 → 2.0.0.3

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

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

data/tracks/haskell/exercises/alphametics/src/Alphametics.hs

@@ -0,0 +1,4 @@
+module Alphametics (solve) where
+
+solve :: String -> Maybe [(Char, Int)]
+solve puzzle = undefined

data/tracks/haskell/exercises/alphametics/stack.yaml

@@ -0,0 +1 @@
+resolver: nightly-2016-07-17

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

@@ -0,0 +1,78 @@
+{-# LANGUAGE RecordWildCards #-}
+
+import Data.Foldable     (for_)
+import Data.Function     (on)
+import Data.List         (sort)
+import Test.Hspec        (Spec, describe, it, shouldBe)
+import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
+
+import Alphametics (solve)
+
+main :: IO ()
+main = hspecWith defaultConfig {configFastFail = True} specs
+
+specs :: Spec
+specs = describe "alphametics" $
+          describe "solve" $ for_ cases test
+  where
+
+    test Case{..} = it description assertion
+      where
+        shouldMatchSolution = shouldBe `on` fmap sort
+        assertion = solve puzzle `shouldMatchSolution` expected
+
+-- Test cases adapted from `exercism/x-common/exercises/alphametics/canonical-data.json` on 2016-10-26.
+
+data Case = Case { description :: String
+                 , puzzle      :: String
+                 , expected    :: Maybe[(Char, Int)]
+                 }
+
+cases :: [Case]
+cases = [ Case { description = "puzzle with three letters"
+               , puzzle      = "I + BB == ILL"
+               , expected    = Just [('I', 1), ('B', 9), ('L', 0)]
+               }
+        , Case { description = "solution must have unique value for each letter"
+               , puzzle      = "A == B"
+               , expected    = Nothing
+               }
+        , Case { description = "leading zero solution is invalid"
+               , puzzle      = "ACA + DD == BD"
+               , expected    = Nothing
+               }
+        , Case { description = "puzzle with four letters"
+               , puzzle      = "AS + A == MOM"
+               , expected    = Just [('A', 9), ('S', 2), ('M', 1), ('O', 0)]
+               }
+        , Case { description = "puzzle with six letters"
+               , puzzle      = "NO + NO + TOO == LATE"
+               , expected    = Just [('N', 7), ('O', 4), ('T', 9), ('L', 1),
+                                      ('A', 0), ('E', 2)]
+               }
+        , Case { description = "puzzle with seven letters"
+               , puzzle      = "HE + SEES + THE == LIGHT"
+               , expected    = Just [('E', 4), ('G', 2), ('H', 5), ('I', 0),
+                                      ('L', 1), ('S', 9), ('T', 7)]
+               }
+        , Case { description = "puzzle with eight letters"
+               , puzzle      = "SEND + MORE == MONEY"
+               , expected    = Just [('S', 9), ('E', 5), ('N', 6), ('D', 7), ('M', 1),
+                                      ('O', 0), ('R', 8), ('Y', 2)]
+               }
+        -- some more (and more demanding) tests
+--        , Case { description  = "puzzle with ten letters"
+--               , puzzle       = "AND + A + STRONG + OFFENSE + AS + A + GOOD == DEFENSE"
+--               , expected     = Just [('A', 5), ('D', 3), ('E', 4), ('F', 7), ('G', 8),
+--                                      ('N', 0), ('O', 2), ('R', 1), ('S', 6), ('T', 9)]
+--               }
+--        , Case { description  = "puzzle with multiplication"
+--               , puzzle       = "IF * DR == DORI"
+--               , expected     = Just [('I', 8), ('F', 2), ('D', 3), ('R', 9), ('O', 1)]
+--               }
+--        , Case { description  = "puzzle with exponents"
+--               , puzzle       = "PI * R ^ 2 == AREA"
+--               , expected     = Just [('P', 9), ('I', 6), ('R', 7), ('A', 4), ('E', 0)]
+--               }
+        ]
+

data/tracks/haskell/exercises/anagram/examples/{list-string → success-liststring}/package.yaml

@@ -6,7 +6,6 @@ dependencies:
 library:
   exposed-modules: Anagram
   source-dirs: src
-  dependencies:
 
 tests:
   test:

data/tracks/haskell/exercises/atbash-cipher/examples/success-standard/package.yaml

@@ -0,0 +1,18 @@
+name: atbash-cipher
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: Atbash
+  source-dirs: src
+  dependencies:
+    - split
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - atbash-cipher
+      - hspec

data/tracks/haskell/exercises/bank-account/examples/success-standard/package.yaml

@@ -0,0 +1,18 @@
+name: bank-account
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: BankAccount
+  source-dirs: src
+  dependencies:
+    - stm
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - bank-account
+      - hspec

data/tracks/haskell/exercises/beer-song/examples/success-standard/package.yaml

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

data/tracks/haskell/exercises/binary-search-tree/examples/success-standard/package.yaml

@@ -0,0 +1,16 @@
+name: binary-search-tree
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: BST
+  source-dirs: src
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - binary-search-tree
+      - hspec

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

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

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

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

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

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

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

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

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

@@ -0,0 +1,18 @@
+name: connect
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: Connect
+  source-dirs: src
+  dependencies:
+    - array
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - connect
+      - hspec

data/tracks/haskell/exercises/crypto-square/examples/success-standard/package.yaml

@@ -0,0 +1,18 @@
+name: crypto-square
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: CryptoSquare
+  source-dirs: src
+  dependencies:
+    - split
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - crypto-square
+      - hspec

data/tracks/haskell/exercises/custom-set/examples/success-standard/package.yaml

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

data/tracks/haskell/exercises/difference-of-squares/examples/success-standard/package.yaml

@@ -0,0 +1,16 @@
+name: difference-of-squares
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: Squares
+  source-dirs: src
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - difference-of-squares
+      - hspec

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

@@ -0,0 +1,17 @@
+name: etl
+
+dependencies:
+  - base
+  - containers
+
+library:
+  exposed-modules: ETL
+  source-dirs: src
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - etl
+      - hspec

data/tracks/haskell/exercises/food-chain/examples/success-standard/package.yaml

@@ -0,0 +1,18 @@
+name: food-chain
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: FoodChain
+  source-dirs: src
+  dependencies:
+    - array
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - food-chain
+      - hspec

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

@@ -5,8 +5,8 @@ and implement the following functions:
 
 - `empty` returns an empty `ForthState`.
 - `evalText` evaluates an input Text, returning the new state.
-- `formatStack` returns the current stack as Text, with the element on top
-of the stack being the rightmost element in the output
+- `toList` returns the current stack as a list, with the element on top
+of the stack being the rightmost (last) element.
 
 You will find the type signatures already in place, but it is up to you
 to define the functions.

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

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