diff options
Diffstat (limited to 'lib/Numeric/Container.hs')
-rw-r--r-- | lib/Numeric/Container.hs | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lib/Numeric/Container.hs b/lib/Numeric/Container.hs index a31acfe..46c2903 100644 --- a/lib/Numeric/Container.hs +++ b/lib/Numeric/Container.hs | |||
@@ -28,7 +28,7 @@ | |||
28 | module Numeric.Container ( | 28 | module Numeric.Container ( |
29 | -- * Basic functions | 29 | -- * Basic functions |
30 | module Data.Packed, | 30 | module Data.Packed, |
31 | konst, -- build, | 31 | konst, build, |
32 | constant, linspace, | 32 | constant, linspace, |
33 | diag, ident, | 33 | diag, ident, |
34 | ctrans, | 34 | ctrans, |
@@ -188,3 +188,15 @@ instance Container Vector e => Konst e (Int,Int) Matrix | |||
188 | where | 188 | where |
189 | konst = konst' | 189 | konst = konst' |
190 | 190 | ||
191 | class Build d f c e | d -> c, c -> d, f -> e, f -> d, f -> c, c e -> f, d e -> f | ||
192 | where | ||
193 | build :: d -> f -> c e | ||
194 | |||
195 | instance Container Vector e => Build Int (e -> e) Vector e | ||
196 | where | ||
197 | build = build' | ||
198 | |||
199 | instance Container Matrix e => Build (Int,Int) (e -> e -> e) Matrix e | ||
200 | where | ||
201 | build = build' | ||
202 | |||