Ch2 Consolidate getting started guides

exercises/chapter2/spago.dhall

@@ -2,12 +2,15 @@
 Welcome to a Spago project!
 You can edit this file as you like.
 -}
-{ name =
-    "my-project"
+{ name = "my-project"
 , dependencies =
-    [ "console", "effect", "math", "psci-support" ]
-, packages =
-    ./packages.dhall
-, sources =
-    [ "src/**/*.purs", "test/**/*.purs" ]
+  [ "console"
+  , "effect"
+  , "lists"
+  , "math"
+  , "psci-support"
+  , "test-unit"
+  ]
+, packages = ./packages.dhall
+, sources = [ "src/**/*.purs", "test/**/*.purs" ]
 }

exercises/chapter2/src/Euler.purs

@@ -0,0 +1,11 @@
+module Euler where
+
+import Prelude
+import Data.List (range, filter)
+import Data.Foldable (sum)
+
+ns n = range 0 (n - 1)
+
+multiples n = filter (\n -> mod n 3 == 0 || mod n 5 == 0) (ns n)
+
+answer n = sum (multiples n)

exercises/chapter2/src/Main.purs

@@ -1,12 +1,8 @@
 module Main where
 
 import Prelude
+import Euler (answer)
+import Effect.Console (log)
 
-import Effect.Console (logShow)
-import Math (sqrt)
-
-
-diagonal :: Number -> Number -> Number
-diagonal w h = sqrt (w * w + h * h)
-
-main = logShow (diagonal 3.0 4.0)
+main = do
+  log ("The answer is " <> show (answer 1000))

exercises/chapter2/test/Main.purs

@@ -1,11 +1,41 @@
 module Test.Main where
 
 import Prelude
-
+import Test.Solutions
 import Effect (Effect)
-import Effect.Class.Console (log)
+import Euler (answer)
+import Test.Unit (suite, test)
+import Test.Unit.Assert as Assert
+import Test.Unit.Main (runTest)
 
 main :: Effect Unit
 main = do
-  log "🍝"
-  log "You should add some tests."
+  runTest do
+    suite "Euler - Sum of Multiples" do
+      test "below 10" do
+        Assert.equal 23 (answer 10)
+      test "below 1000" do
+        Assert.equal 233168 (answer 1000)
+
+{-  Move this block comment starting point to enable more tests
+    suite "diagonal" do
+      test "3 4 5" do
+        Assert.equal 5.0 (diagonal 3.0 4.0)
+      test "5 12 13" do
+        Assert.equal 13.0 (diagonal 5.0 12.0)
+    suite "circleArea" do
+      test "radius 1" do
+        Assert.equal 3.141592653589793 (circleArea 1.0)
+      test "radius 3" do
+        Assert.equal 28.274333882308138 (circleArea 3.0)
+    suite "circleArea" do
+      test "radius 1" do
+        Assert.equal 3.141592653589793 (circleArea 1.0)
+      test "radius 3" do
+        Assert.equal 28.274333882308138 (circleArea 3.0)
+    suite "addE" do
+      test "1.23" do
+        Assert.equal 3.948281828459045 (addE "1.23")
+      test "4.56" do
+        Assert.equal 7.278281828459045 (addE "4.56")
+-}

exercises/chapter2/test/Solutions.purs

@@ -0,0 +1,3 @@
+module Test.Solutions where
+
+import Prelude