reactive-glut-0.0.1: src/CheckTimes.hs

-- Hack to check some timings.  Requires some editor magic to format times.

import Data.List (findIndices)

ts :: [Float]

ts = [6.484375,6.5,6.515625,6.53125,6.5625,6.578125,6.59375,6.609375,6.625]

diffs xs = uncurry subtract `fmap` (xs `zip` tail xs)

ds = diffs ts

es = (round . (* 100000)) `fmap` ds

esi = findIndices (> 20) es
esid = diffs esi