safe-coupling-0.1.0.0: src/Data/Derivative.hs

module Data.Derivative where

-- TODO: find implementation, e.g. Numeric.AD
grad :: (Double -> Double) -> (Double -> Double)
grad f x = 2 * x + 2