Data commit

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

@@ -0,0 +1,3 @@
+let square x = x*x
+let values = [1..10]
+map square values

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

@@ -0,0 +1 @@
+[square x | x <- values]

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

@@ -0,0 +1 @@
+[1 .. 10] >>= pure . (^ 2)

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

@@ -0,0 +1 @@
+(^ 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