Joel Kaasinen opqdonut
opqdonut
/ par.hs
Last active
November 17, 2015 20:28
— forked from anonymous/par.hs
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import Control.Parallel.Strategies | |
| factorial :: Integer -> Integer | |
| factorial n = product [1..n] | |
| f = length . show . factorial | |
| main = print result | |
| where result = map f [n+100,n+99..n] `using` parList rseq | |
| n = 50*1000 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| setti3-043.LukujenSumma vaik: 1,30 opet: 2,40 n: 10 | |
| setti3-044.Pienin vaik: 1,25 opet: 2,88 n: 8 | |
| setti3-045.Suurin vaik: 2,20 opet: 3,60 n: 5 | |
| setti3-046.LukujenKeskiarvo vaik: 1,86 opet: 3,14 n: 7 | |
| setti3-047.NimenPituus vaik: 2,80 opet: 4,00 n: 5 | |
| setti3-048.EnsimmainenKirjain vaik: 1,67 opet: 3,33 n: 6 | |
| setti3-049.ViimeinenKirjain vaik: 1,71 opet: 2,57 n: 7 | |
| setti3-050.EnsimmaisetKirjaimet vaik: 2,88 opet: 2,75 n: 8 | |
| setti3-051.KirjaimetErikseen vaik: 3,33 opet: 3,50 n: 6 | |
| setti3-052.NimenKaantaminen vaik: 3,43 opet: 3,29 n: 7 |