trackler 2.0.0.2 → 2.0.0.3

data/tracks/haskell/exercises/forth/{src/Example.hs → examples/success-standard/src/Forth.hs}

@@ -3,7 +3,7 @@ module Forth
   ( ForthError(..)
   , ForthState
   , evalText
-  , formatStack
+  , toList
   , empty
   ) where
 
@@ -147,5 +147,5 @@ stepWord (User xs) = mapCode (xs ++)
 evalText :: Text -> ForthState -> Either ForthError ForthState
 evalText = eval . parseText
 
-formatStack :: ForthState -> Text
-formatStack = T.pack . unwords . map show . reverse . forthStack
+toList :: ForthState -> [Int]
+toList = reverse . forthStack

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

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

data/tracks/haskell/exercises/forth/src/Forth.hs

@@ -4,7 +4,7 @@ module Forth
   ( ForthError(..)
   , ForthState
   , evalText
-  , formatStack
+  , toList
   , empty
   ) where
 
@@ -23,5 +23,5 @@ empty = undefined
 evalText :: Text -> ForthState -> Either ForthError ForthState
 evalText = undefined
 
-formatStack :: ForthState -> Text
-formatStack = undefined
+toList :: ForthState -> [Int]
+toList = undefined

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

@@ -4,7 +4,7 @@ import Control.Monad     (foldM)
 import Test.Hspec        (Spec, describe, it, shouldBe)
 import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
 
-import Forth (ForthError(..), empty, evalText, formatStack)
+import Forth (ForthError(..), empty, evalText, toList)
 
 main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
@@ -12,67 +12,122 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 specs :: Spec
 specs = describe "forth" $ do
 
-    -- As of 2016-10-02, there was no reference file
-    -- for the test cases in `exercism/x-common`.
-
-    let runTexts = fmap formatStack . foldM (flip evalText) empty
-
-    it "no input, no stack" $
-      formatStack empty `shouldBe` ""
-
-    it "numbers just get pushed onto the stack" $
-      runTexts ["1 2 3 4 5"] `shouldBe` Right "1 2 3 4 5"
-
-    it "non-word characters are separators" $
-      runTexts ["1\NUL2\SOH3\n4\r5 6\t7"] `shouldBe` Right "1 2 3 4 5 6 7"
-
-    it "basic arithmetic" $ do
-      runTexts ["1 2 + 4 -"] `shouldBe` Right "-1"
-      runTexts ["2 4 * 3 /"] `shouldBe` Right "2"
-
-    it "division by zero" $
-      runTexts ["4 2 2 - /"] `shouldBe` Left DivisionByZero
-
-    it "dup" $ do
-      runTexts ["1 DUP"  ] `shouldBe` Right "1 1"
-      runTexts ["1 2 Dup"] `shouldBe` Right "1 2 2"
-      runTexts ["dup"    ] `shouldBe` Left StackUnderflow
-
-    it "drop" $ do
-      runTexts ["1 drop"  ] `shouldBe` Right ""
-      runTexts ["1 2 drop"] `shouldBe` Right "1"
-      runTexts ["drop"    ] `shouldBe` Left StackUnderflow
-
-    it "swap" $ do
-      runTexts ["1 2 swap"  ] `shouldBe` Right "2 1"
-      runTexts ["1 2 3 swap"] `shouldBe` Right "1 3 2"
-      runTexts ["1 swap"    ] `shouldBe` Left StackUnderflow
-      runTexts ["swap"      ] `shouldBe` Left StackUnderflow
-
-    it "over" $ do
-      runTexts ["1 2 over"  ] `shouldBe` Right "1 2 1"
-      runTexts ["1 2 3 over"] `shouldBe` Right "1 2 3 2"
-      runTexts ["1 over"    ] `shouldBe` Left StackUnderflow
-      runTexts ["over"      ] `shouldBe` Left StackUnderflow
-
-    it "defining a new word" $
-      runTexts [ ": dup-twice dup dup ;"
-               , "1 dup-twice"           ] `shouldBe` Right "1 1 1"
-
-    it "redefining an existing word" $
-      runTexts [ ": foo dup ;"
-               , ": foo dup dup ;"
-               , "1 foo"           ] `shouldBe` Right "1 1 1"
-
-    it "redefining an existing built-in word" $
-      runTexts [ ": swap dup ;"
-               , "1 swap"       ] `shouldBe` Right "1 1"
-
-    it "defining words with odd characters" $
-      runTexts [": € 220371 ; €"] `shouldBe` Right "220371"
-
-    it "defining a number" $
-      runTexts [": 1 2 ;"] `shouldBe` Left InvalidWord
-
-    it "calling a non-existing word" $
-      runTexts ["1 foo"] `shouldBe` Left (UnknownWord "foo")
+    -- Test cases adapted from `exercism/x-common/forth` on 2016-11-06.
+
+    let runTexts = fmap toList . foldM (flip evalText) empty
+
+    describe "parsing and numbers" $ do
+      it "empty input results in empty stack" $
+        toList empty `shouldBe` []
+
+      it "numbers just get pushed onto the stack" $
+        runTexts ["1 2 3 4 5"] `shouldBe` Right [1, 2, 3, 4, 5]
+
+      it "all non-word characters are separators" $
+        runTexts ["1\NUL2\SOH3\n4\r5 6\t7"] `shouldBe` Right [1, 2, 3, 4, 5, 6, 7]
+
+    describe "addition" $ do
+      it "can add two numbers" $
+        runTexts ["1 2 +"] `shouldBe` Right [3]
+      it "errors if there is nothing on the stack" $
+        runTexts ["+"] `shouldBe` Left StackUnderflow
+      it "errors if there is only one value on the stack" $
+        runTexts ["1 +"] `shouldBe` Left StackUnderflow
+
+    describe "subtraction" $ do
+      it "can subtract two numbers" $
+        runTexts ["3 4 -"] `shouldBe` Right [-1]
+      it "errors if there is nothing on the stack" $
+        runTexts ["-"] `shouldBe` Left StackUnderflow
+      it "errors if there is only one value on the stack" $
+        runTexts ["1 -"] `shouldBe` Left StackUnderflow
+
+    describe "multiplication" $ do
+      it "can multiply two numbers" $
+        runTexts ["2 4 *"] `shouldBe` Right [8]
+      it "errors if there is nothing on the stack" $
+        runTexts ["*"] `shouldBe` Left StackUnderflow
+      it "errors if there is only one value on the stack" $
+        runTexts ["1 *"] `shouldBe` Left StackUnderflow
+
+    describe "division" $ do
+      it "can divide two numbers" $
+        runTexts ["12 3 /"] `shouldBe` Right [4]
+      it "performs integer division" $
+        runTexts ["8 3 /"] `shouldBe` Right [2]
+      it "errors if dividing by zero" $
+        runTexts ["4 0 /"] `shouldBe` Left DivisionByZero
+      it "errors if there is nothing on the stack" $
+        runTexts ["/"] `shouldBe` Left StackUnderflow
+      it "errors if there is only one value on the stack" $
+        runTexts ["1 /"] `shouldBe` Left StackUnderflow
+
+    describe "combined arithmetic" $ do
+      it "addition and subtraction" $
+        runTexts ["1 2 + 4 -"] `shouldBe` Right [-1]
+
+      it "multiplication and division" $
+        runTexts ["2 4 * 3 /"] `shouldBe` Right [2]
+
+    describe "dup" $ do
+      it "copies the top value on the stack" $
+        runTexts ["1 DUP"  ] `shouldBe` Right [1, 1]
+      it "is case-insensitive" $
+        runTexts ["1 2 Dup"] `shouldBe` Right [1, 2, 2]
+      it "errors if there is nothing on the stack" $
+        runTexts ["dup"    ] `shouldBe` Left StackUnderflow
+
+    describe "drop" $ do
+      it "removes the top value on the stack if it is the only one" $
+        runTexts ["1 drop"  ] `shouldBe` Right []
+      it "removes the top value on the stack if it is not the only one" $
+        runTexts ["1 2 drop"] `shouldBe` Right [1]
+      it "errors if there is nothing on the stack" $
+        runTexts ["drop"    ] `shouldBe` Left StackUnderflow
+
+    describe "swap" $ do
+      it "swaps the top two values on the stack if they are the only ones" $
+        runTexts ["1 2 swap"  ] `shouldBe` Right [2, 1]
+      it "swaps the top two values on the stack if they are not the only ones" $
+        runTexts ["1 2 3 swap"] `shouldBe` Right [1, 3, 2]
+      it "errors if there is nothing on the stack" $
+        runTexts ["swap"      ] `shouldBe` Left StackUnderflow
+      it "errors if there is only one value on the stack" $
+        runTexts ["1 swap"    ] `shouldBe` Left StackUnderflow
+
+    describe "over" $ do
+      it "copies the second element if there are only two" $
+        runTexts ["1 2 over"  ] `shouldBe` Right [1, 2, 1]
+      it "copies the second element if there are more than two" $
+        runTexts ["1 2 3 over"] `shouldBe` Right [1, 2, 3, 2]
+      it "errors if there is nothing on the stack" $
+        runTexts ["over"      ] `shouldBe` Left StackUnderflow
+      it "errors if there is only one value on the stack" $
+        runTexts ["1 over"    ] `shouldBe` Left StackUnderflow
+
+    describe "user-defined words" $ do
+      it "can consist of built-in words" $
+        runTexts [ ": dup-twice dup dup ;"
+                 , "1 dup-twice"           ] `shouldBe` Right [1, 1, 1]
+
+      it "execute in the right order" $
+        runTexts [ ": countup 1 2 3 ;"
+                 , "countup"           ] `shouldBe` Right [1, 2, 3]
+
+      it "can override other user-defined words" $
+        runTexts [ ": foo dup ;"
+                 , ": foo dup dup ;"
+                 , "1 foo"           ] `shouldBe` Right [1, 1, 1]
+
+      it "can override built-in words" $
+        runTexts [ ": swap dup ;"
+                 , "1 swap"       ] `shouldBe` Right [1, 1]
+
+      it "can consist of arbitrary characters such as Unicode characters" $
+        runTexts [": € 220371 ; €"] `shouldBe` Right [220371]
+
+      it "cannot redefine numbers" $
+        runTexts [": 1 2 ;"] `shouldBe` Left InvalidWord
+
+      it "errors if executing a non-existent word" $
+        runTexts ["1 foo"] `shouldBe` Left (UnknownWord "foo")

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

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

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

@@ -0,0 +1,20 @@
+name: go-counting
+
+dependencies:
+  - base
+  - containers
+
+library:
+  exposed-modules: Counting
+  source-dirs: src
+  dependencies:
+    - array
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - go-counting
+      - hspec
+      - multiset

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

@@ -0,0 +1,18 @@
+name: grade-school
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: School
+  source-dirs: src
+  dependencies:
+    - containers
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - grade-school
+      - hspec

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

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

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

@@ -24,8 +24,7 @@ specs = describe "grains" $ do
       where
         assertion = fromIntegral total `shouldBe` expected
 
--- As of 2016-07-27, there was no reference file
--- for the test cases in `exercism/x-common`.
+-- Test cases adapted from `exercism/x-common/grains` on 2016-11-06.
 
 squareCases :: [(String, Integer, Maybe Integer)]
 squareCases =

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

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

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

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

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

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

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

@@ -0,0 +1,19 @@
+name: kindergarten-garden
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: Garden
+  source-dirs: src
+  dependencies:
+    - containers
+    - split
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - kindergarten-garden
+      - hspec

data/tracks/haskell/exercises/largest-series-product/examples/success-standard/package.yaml

@@ -0,0 +1,18 @@
+name: largest-series-product
+
+dependencies:
+  - base
+
+library:
+  exposed-modules: Series
+  source-dirs: src
+  dependencies:
+    - safe
+
+tests:
+  test:
+    main: Tests.hs
+    source-dirs: test
+    dependencies:
+      - largest-series-product
+      - hspec