diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-06-18 00:00:11 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-06-18 00:00:11 +0200 |
| commit | d1b2e2c3a3cdaf49ff5e4bae6fe9b0612c3779c2 (patch) | |
| tree | 38577e02839ac18244aa46b833da8957cbe9789e /src/Example.hs | |
| parent | 2b1a40b5933b8b0dceaae744e5b70cb604822c9d (diff) | |
Tests pass, should check if output is sensible
Diffstat (limited to 'src/Example.hs')
| -rw-r--r-- | src/Example.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Example.hs b/src/Example.hs index d3f6d0d..b320ead 100644 --- a/src/Example.hs +++ b/src/Example.hs @@ -162,8 +162,7 @@ neuralGo = ELet ext (EConst ext STF64 1.0) $ chad defaultConfig knownEnv neural (primal, dlay1_1, dlay2_1, dlay3_1, dinput_1) = case interpretOpen False knownEnv argument revderiv of - (primal', (((((), Just (Just dlay1_1'a, Just dlay1_1'b)), Just (Just dlay2_1'a, Just dlay2_1'b)), Just dlay3_1'), Just dinput_1')) -> (primal', (dlay1_1'a, dlay1_1'b), (dlay2_1'a, dlay2_1'b), dlay3_1', dinput_1') - _ -> undefined + (primal', (((((), (dlay1_1'a, dlay1_1'b)), (dlay2_1'a, dlay2_1'b)), dlay3_1'), dinput_1')) -> (primal', (dlay1_1'a, dlay1_1'b), (dlay2_1'a, dlay2_1'b), dlay3_1', dinput_1') (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)) |