Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- == Ugly version ==========================================================================
- Thu Mar 5 08:57 2015 Time and Allocation Profiling Report (Final)
- graham.opt +RTS -p -t -RTS
- total time = 4.04 secs (4043 ticks @ 1000 us, 1 processor)
- total alloc = 3,472,049,432 bytes (excludes profiling overheads)
- COST CENTRE MODULE %time %alloc
- lowestYPoint Main 20.2 23.5
- sortByAngle.comparePoints Main 19.5 0.0
- sortByAngle Main 18.6 35.3
- directions_ Main 7.1 15.0
- cosineAB Main 6.7 0.0
- grahamScanDirections Main 5.4 6.9
- direction Main 5.2 0.0
- filterByList Main 5.2 6.5
- ycoord Main 3.6 5.5
- main Main 3.2 2.5
- grahamScan.ps1 Main 1.5 0.7
- grahamScan.bool_list Main 1.4 2.1
- grahamScan Main 1.1 0.7
- pss Main 0.6 1.4
- == Good looking version ==================================================================
- Thu Mar 5 08:56 2015 Time and Allocation Profiling Report (Final)
- graham.opt +RTS -p -t -RTS
- total time = 5.65 secs (5646 ticks @ 1000 us, 1 processor)
- total alloc = 4,504,049,432 bytes (excludes profiling overheads)
- COST CENTRE MODULE %time %alloc
- sortByAngle Main 18.0 27.2
- lowestYPoint Main 17.8 18.1
- filterByList Main 16.5 27.4
- sortByAngle.comparePoints Main 15.8 0.0
- directions_ Main 5.8 11.5
- cosineAB Main 5.3 0.0
- grahamScanDirections Main 4.9 5.3
- direction Main 4.3 0.0
- main Main 3.8 2.0
- ycoord Main 2.9 4.3
- grahamScan Main 1.7 1.1
- grahamScan.ps1 Main 1.4 0.5
- grahamScan.bool_list Main 0.9 1.6
- pss Main 0.3 1.1
- == Makefile ============================================================================
- graham.opt: graham.opt.hs
- ghc -O2 -prof -fprof-auto -rtsopts graham.opt.hs
- graham.org: graham.org.hs
- ghc -O2 -prof -fprof-auto -rtsopts graham.org.hs
- clean:
- rm *.hi *.o graham.opt graham.org
- prof: graham.opt graham.org
- time ./graham.opt +RTS -p -t
- time ./graham.org +RTS -p -t
- == Tests ==============================================================================
- pss = replicate 1000000
- [ Point 1 0
- , Point 1 2
- , Point 0 3
- , Point 2 3
- , Point 2 2
- , Point 3 2
- , Point 2 1
- ]
- instance NFData Point where
- rnf a = a `seq` ()
- main = (map grahamScan pss) `deepseq` putStrLn "Done"
- == Information ================================================================================
- The Glorious Glasgow Haskell Compilation System, version 7.8.3
- Intel(R) Core(TM)2 Quad CPU Q9550 @ 2.83GHz
- Linux zigazou 3.2.0-77-generic #112-Ubuntu SMP Tue Feb 10 15:22:22 UTC 2015 x86_64 x86_64 x86_64 GNU/Linux
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement