September 2017 Update

Task/Apply-a-callback-to-an-array/Haskell/apply-a-callback-to-an-array-3.hs

@@ -1,2 +1 @@
-let printSquares = mapM_ (print.square)
-printSquares values
+[1 .. 10] >>= pure . (^ 2)

Task/Apply-a-callback-to-an-array/Haskell/apply-a-callback-to-an-array-4.hs

@@ -1,4 +1 @@
-import Data.Array.IArray
-let square x = x*x
-let values = array (1,10) [(i,i)|i <- [1..10]] :: Array Int Int
-amap square values
+(^ 2) <$> [1..10]

Task/Apply-a-callback-to-an-array/Haskell/apply-a-callback-to-an-array-5.hs

@@ -0,0 +1,2 @@
+let printSquares = mapM_ (print.square)
+printSquares values

Task/Apply-a-callback-to-an-array/Haskell/apply-a-callback-to-an-array-6.hs

@@ -0,0 +1,10 @@
+import Data.Array (Array, listArray)
+
+square :: Int -> Int
+square x = x * x
+
+values :: Array Int Int
+values = listArray (1, 10) [1 .. 10]
+
+main :: IO ()
+main = print $ fmap square values