diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-11-27 21:30:17 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-11-27 21:30:17 +0100 |
| commit | 20f7d7be13cd7869b338f98d1ab3fd33e8bbfb3e (patch) | |
| tree | a21c90034a02cdeb7240563dbbab355e49622d0a /src/CHAD/ForwardAD | |
| parent | ae634c056b500a568b2d89b7f8e225404a2c0c62 (diff) | |
WIP user-specified custom typesuser-types
The big roadblock encountered is that accumulation wants addition of
monoids to be elementwise float addition; this fundamentally clashes
with the concept of a user type with a custom zero and plus.
Diffstat (limited to 'src/CHAD/ForwardAD')
| -rw-r--r-- | src/CHAD/ForwardAD/DualNumbers.hs | 4 | ||||
| -rw-r--r-- | src/CHAD/ForwardAD/DualNumbers/Types.hs | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/CHAD/ForwardAD/DualNumbers.hs b/src/CHAD/ForwardAD/DualNumbers.hs index 540ec2b..4a07a2d 100644 --- a/src/CHAD/ForwardAD/DualNumbers.hs +++ b/src/CHAD/ForwardAD/DualNumbers.hs @@ -200,10 +200,14 @@ dfwdDN = \case EFold1InnerD1{} -> err_targetlang "EFold1InnerD1" EFold1InnerD2{} -> err_targetlang "EFold1InnerD2" + + EUser{} -> err_user "EUser" + EUnUser{} -> err_user "EUnUser" where err_accum = error "Accumulator operations unsupported in the source program" err_monoid = error "Monoid operations unsupported in the source program" err_targetlang s = error $ "Target language operation " ++ s ++ " not supported in source program" + err_user s = error $ "User types not yet supported in forward AD (" ++ s ++ ")" deriv_extremum :: ScalIsNumeric t ~ True => (forall env'. Ex env' (TArr (S n) (TScal t)) -> Ex env' (TArr n (TScal t))) diff --git a/src/CHAD/ForwardAD/DualNumbers/Types.hs b/src/CHAD/ForwardAD/DualNumbers/Types.hs index 5d5dd9e..6dcef1c 100644 --- a/src/CHAD/ForwardAD/DualNumbers/Types.hs +++ b/src/CHAD/ForwardAD/DualNumbers/Types.hs @@ -42,6 +42,7 @@ dn (STScal t) = case t of STI64 -> STScal STI64 STBool -> STScal STBool dn STAccum{} = error "Accum in source program" +dn STUser{} = error "User types not yet supported in forward AD" dne :: SList STy env -> SList STy (DNE env) dne SNil = SNil |