23 Jun
2007
23 Jun
'07
7:05 a.m.
try making ray_sphere and intersect' local to intersect, then drop their constant ray parameter. saves me 25%. claus
also try replacing that (foldl' intersect') with (foldr (flip intersect'))! using a recent ghc head instead of ghc-6.6.1 also seems to make a drastic difference (wild guess, seeing the unroll 1000 for ocaml: has there been a change to default unrolling in ghc?). claus