Ticket #5893: Test-reduced.hs
| File Test-reduced.hs, 421 bytes (added by bgamari, 15 months ago) |
|---|
| Line | |
|---|---|
| 1 | import qualified Data.Vector.Unboxed as V |
| 2 | |
| 3 | type Time = Int |
| 4 | |
| 5 | spansPhotons :: V.Vector Time -> [(Time,Time)] -> [V.Vector Time] |
| 6 | spansPhotons ts spans = map (\(start,_)->V.takeWhile (<start) ts) spans |
| 7 | |
| 8 | main = do |
| 9 | let times = V.generate 1000000 (*100) |
| 10 | spans = [(10000*i, 10000*i+5000) | i <- [1..10000]] |
| 11 | let bursts = spansPhotons times spans |
| 12 | print $ sum $ map V.length bursts |
| 13 | print $ map (const 1) $ bursts |
| 14 |
