]> gitweb.michael.orlitzky.com - spline3.git/blob - src/Comparisons.hs
projects / spline3.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Move the almost_equals function into the Comparisons module.
[spline3.git] / src / Comparisons.hs
1 module Comparisons
2 where
3
4
5 almost_equals :: Double -> Double -> Bool
6 almost_equals x y = (abs (x - y)) < 0.0001
7
8 infix 4 ~=
9 (~=) :: Double -> Double -> Bool
10 (~=) = almost_equals
Haskell implementation of a 3D interpolation scheme.