summation performace

.gitignore

kbn
kb2
*.hi
*.o
*.data
TAGS
naive
onlygen

kb2.hs

{-# LANGUAGE NumDecimals #-}
import qualified Data.Vector.Unboxed as U
import qualified Numeric.Sum as Sum
import qualified System.Random.MWC as MWC

main :: IO ()
main = do
  g   <- MWC.create
  vec <- MWC.uniformVector g 1e8
  print $ Sum.sumVector Sum.kb2 (vec :: U.Vector Double)

kbn.hs

{-# LANGUAGE NumDecimals #-}
import qualified Data.Vector.Unboxed as U
import qualified Numeric.Sum as Sum
import qualified System.Random.MWC as MWC

main :: IO ()
main = do
  g   <- MWC.create
  vec <- MWC.uniformVector g 1e8
  print $ Sum.sumVector Sum.kbn (vec :: U.Vector Double)

Makefile

.PHONY: all clean report

all: naive kb2 kbn onlygen
report: naive.data kb2.data kbn.data onlygen.data
clean:
	rm -rfv kbn naive kb2 onlygen *.o *.hi *.data *.old
%: %.hs
	ghc -g --make -O2 $<

%.data: %
	rm -f $@
	perf record -o $@ ./$<

naive.hs

{-# LANGUAGE NumDecimals #-}
import qualified Data.Vector.Unboxed as U
import qualified Numeric.Sum as Sum
import qualified System.Random.MWC as MWC

main :: IO ()
main = do
  g   <- MWC.create
  vec <- MWC.uniformVector g 1e8
  print $ U.sum (vec :: U.Vector Double)

onlygen.hs

{-# LANGUAGE NumDecimals         #-}
{-# LANGUAGE ScopedTypeVariables #-}
import qualified Data.Vector.Unboxed as U
import qualified Numeric.Sum as Sum
import qualified System.Random.MWC as MWC

main :: IO ()
main = do
  g   <- MWC.create
  vec :: U.Vector Double <- MWC.uniformVector g 1e8
  return ()