-
Notifications
You must be signed in to change notification settings - Fork 0
/
monadaEval.hs
80 lines (73 loc) · 2.44 KB
/
monadaEval.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
-- PRUEBA 2020
-- Ejercicios:
--
import Control.Parallel.Strategies
import System.Random
import Data.Time.Clock
import System.IO
import System.Environment
import System.IO
import Control.Exception
import Control.DeepSeq
import Control.Parallel
import Control.Parallel.Strategies
import Data.Time.Clock
import Data.Complex
import Data.List
import Text.Printf
-- I) Escriba la funcion 'parMatAdd' que pueda sumar dos matrices en paralelo, con un
-- argumento extra que permita escoger la estrategia de evaluacion, asi poder
-- escoger WHNF o NF. Las matrices siempre seran cuadradas y se pasan como listas row-major.
-- Ej: matrix 3x3 de numeros consecutivos --> [1,2,3,4,5,6,7,8,9]
-- Ejemplo:
-- parMatAdd [1,2,3,4,5,6,7,8,9] [1,1,1,2,2,2,3,3,3] `using` STRATEGIA
-- --> [2,3,4,6,7,8,10,11,12]
--
--
--
-- Función para sumar dos matrices en paralelo con estrategia de evaluación
parMatAdd :: [Int] -> [Int] -> Strategy Int -> [Int]
parMatAdd [] [] _ = []
parMatAdd [] l _ = l
parMatAdd l [] _ = l
parMatAdd (x:xs) (y:ys) strat = ((x+y) `using` strat) : parMatAdd xs ys strat
-- Función para sumar dos matrices normal
parMatAdd' :: [Int] -> [Int] -> [Int]
parMatAdd' [] [] = []
parMatAdd' [] l = l
parMatAdd' l [] = l
parMatAdd' (x:xs) (y:ys) = (x+y) : parMatAdd' xs ys
-- Función para generar una lista de n números aleatorios en el rango [1,100]
generateRandomList :: Int -> Int -> [Int]
generateRandomList n seed = take n $ randomRs (1, 100) (mkStdGen seed)
-- Funcion para imprimir el tiempo
printTimeSince t0 = do
t1 <- getCurrentTime
printf "time: %.3fs\n" (realToFrac (diffUTCTime t1 t0) :: Double)
-- Ejemplo de uso:
main :: IO ()
main = do
-- Argumentos de ejecucion
args <- getArgs
if (length args) /= 1
then error $ "run as ./monadaeval n +RTS -NX -ls -RTS"
else return ()
printf ("Calculando.........................\n")
let n = read (args !! 0) :: Int
let matrix1 = generateRandomList n 109
let matrix2 = generateRandomList n 18
-- Ejecucion normal
t1 <- getCurrentTime
result <- evaluate(parMatAdd' matrix1 matrix2)
result `deepseq` printf "normal done: "
printTimeSince t1
-- Ejecucion en paralelo
t0 <- getCurrentTime
result2 <- evaluate(parMatAdd matrix1 matrix2 rpar)
result2 `deepseq` printf "parallel done: "
printTimeSince t0
-- if (length result) < 100
-- then print result
-- else return()
-- print result
return()