diff options
| author | Tom Smeding <t.j.smeding@uu.nl> | 2025-03-09 23:09:00 +0100 |
|---|---|---|
| committer | Tom Smeding <t.j.smeding@uu.nl> | 2025-03-09 23:09:00 +0100 |
| commit | a590b1414baec157da3a1f6c5684b1a3bce8ecaf (patch) | |
| tree | 45cd0f5559ee2294c1fb889d21ccba49f615d187 /src/Example.hs | |
| parent | f9906020ef838af0bb6683a3a078e23eac555e54 (diff) | |
test: Run gradientByForward with compiled DN fun
Diffstat (limited to 'src/Example.hs')
| -rw-r--r-- | src/Example.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Example.hs b/src/Example.hs index 6ce542e..e234ff4 100644 --- a/src/Example.hs +++ b/src/Example.hs @@ -185,6 +185,6 @@ neuralGo = (primal, dlay1_1, dlay2_1, dlay3_1, dinput_1) = case interpretOpen False argument revderiv of (primal', (((((), Just dlay1_1'), Just dlay2_1'), dlay3_1'), dinput_1')) -> (primal', dlay1_1', dlay2_1', dlay3_1', dinput_1') _ -> undefined - (Value dinput_2 `SCons` Value dlay3_2 `SCons` Value dlay2_2 `SCons` Value dlay1_2 `SCons` SNil) = drevByFwd knownEnv neural argument 1.0 + (Value dinput_2 `SCons` Value dlay3_2 `SCons` Value dlay2_2 `SCons` Value dlay1_2 `SCons` SNil) = drevByFwdInterp knownEnv neural argument 1.0 in trace (ppExpr knownEnv revderiv) $ (primal, (dlay1_1, dlay2_1, dlay3_1, dinput_1), (dlay1_2, dlay2_2, dlay3_2, dinput_2)) |