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

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