{-# LANGUAGE TypeApplications #-}
module Main where

import Criterion
import Criterion.Main

import qualified Numeric.ADDual as ADD
import Numeric.ADDual.Examples


main :: IO ()
main = defaultMain
  [env (pure makeNeuralInput) $ \input ->
      bench "neural" $ nf (\inp -> ADD.gradient' @Double fneural inp 1.0) input]