Accumulate

Accumulate/AccumulateExample.elm

@@ -0,0 +1,7 @@
+module AccumulateExample where
+
+accumulate : (a -> b) -> List a -> List b
+accumulate func input = List.map func input
+  -- case input of
+  --   [] -> []
+  --   otherwise ->

Accumulate/AccumulateTest.elm

@@ -0,0 +1,22 @@
+module AccumulateTest where
+
+-- TODO - remove example inclusion once Problem sets are ready to go live or CI is set up.
+
+import AccumulateExample exposing (accumulate)
+import ElmTest.Test exposing (test, Test, suite)
+import ElmTest.Assertion exposing (assert, assertEqual)
+import ElmTest.Runner.Element exposing (runDisplay)
+import String
+
+square : Int -> Int
+square x = x * x
+
+tests : Test
+tests = suite "Accumulate"
+        [ test "[]] Accumulate" (assertEqual [] (accumulate square [])),
+          test "square Accumulate" (assertEqual [1,4,9] (accumulate square [1,2,3])),
+          test "toUpper Accumulate" (assertEqual ["HELLO","WORLD"] (accumulate String.toUpper ["hello" , "world"])),
+          test "reverse Accumulate" (assertEqual ["olleh","dlrow"] (accumulate String.reverse ["hello" , "world"]))
+        ]
+
+main = runDisplay tests

config.json

@@ -19,7 +19,8 @@
      "run-length-encoding"
   ],
   "deprecated": [
-
+    "Leap",
+    "Accumulate"
   ],
   "ignored": [
     "bin",

elm-package.json

@@ -16,7 +16,9 @@
         "./exercises/difference-of-squares",
         "./exercises/anagram",
         "./exercises/raindrops",
-        "./exercises/triangle"
+        "./exercises/triangle",
+        "Leap",
+        "Accumulate"
     ],
     "exposed-modules": [],
     "dependencies": {