blob: a11f4e874bacb714d25cc7243dd8c01bc8987cb8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# 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]
|
