Ch6 - account for another alternative solution

Author: gomain

exercises/chapter6/test/Main.purs

@@ -181,7 +181,7 @@ Note to reader: Delete this line to expand comment block -}
           Assert.equal (act m1 (act m2 a))
             $ act (m1 <> m2) a
         test "concrete" do
-          let oneOf = [ 15, 125 ]
+          let oneOf = [ 1, 15, 125 ]
               got = act m1 a
           Assert.assert ("expected one of " <> show oneOf <> ", got " <> show got)
             $ elem got oneOf
@@ -209,7 +209,7 @@ Note to reader: Delete this line to expand comment block -}
             Assert.equal (act m1 (act m2 a))
               $ act (m1 <> m2) a
           test "concrete" do
-            let oneOf = [[ 3, 6, 9 ], [ 1, 8, 27 ]]
+            let oneOf = [[ 0, 0, 1], [ 3, 6, 9 ], [ 1, 8, 27 ]]
                 got = act m1 a
             Assert.assert ("expected one of " <> show oneOf <> ", got " <> show got)
               $ elem got oneOf

exercises/chapter6/test/no-peeking/Solutions.purs

@@ -201,7 +201,13 @@ instance actionMultiplyInt :: Action Multiply Int where
   act (Multiply n) m = n * m
 
 {-
--- Alternative solution
+-- Alternative solution #1
+instance actionMultiplyInt :: Action Multiply Int where
+  act (Multiply n) m = m / n
+-}
+
+{-
+-- Alternative solution #2
 import Data.Int (pow)
 
 instance actionMultiplyInt :: Action Multiply Int where