Question

Заполнить многомерный массив размерностью n x n случайными числами в
интервале (100, 200). Вывести полученный массив на экран. Вычислить среднее
арифметическое всех элементов массива.

Answer 1

Напишу на Haskell.

• main :: IO ()
• main = do
•  let n = 20
•  xs <- getTwoDimensions n (randomRIO (100, 200) :: IO Int)
•  mapM_ print xs
•  print $ avg xs
•  where
•    getDimension n f = mapM (const f) [1..n]
•    getTwoDimensions n = getDimension n . getDimension n
• avg :: [[Int]] -> Double
• avg xs =  realToFrac (sum $ sum <$> xs) / ((**2) . genericLength $ xs)