opqdonut

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

opqdonut

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