diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-06-06 17:40:09 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-06-06 17:40:09 +0000 |
| commit | e7c03c1ab4de85e7a700d2eafaebd37f4607c51f (patch) | |
| tree | 4512d18907d88d0390671fcde4e8886d30cd0492 /lib/Data/Packed/Internal/Vector.hs | |
| parent | a4254a0b9bfbd720efbe42b86aa50107a74d56c7 (diff) | |
working on tensor contractions
Diffstat (limited to 'lib/Data/Packed/Internal/Vector.hs')
| -rw-r--r-- | lib/Data/Packed/Internal/Vector.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs index 6ed9339..36d5df7 100644 --- a/lib/Data/Packed/Internal/Vector.hs +++ b/lib/Data/Packed/Internal/Vector.hs | |||
| @@ -35,6 +35,8 @@ instance (Storable a, RealFloat a) => Storable (Complex a) where -- | |||
| 35 | poke p (a :+ b) = pokeArray (castPtr p) [a,b] -- | 35 | poke p (a :+ b) = pokeArray (castPtr p) [a,b] -- |
| 36 | ---------------------------------------------------------------------- | 36 | ---------------------------------------------------------------------- |
| 37 | 37 | ||
| 38 | on f g = \x y -> f (g x) (g y) | ||
| 39 | |||
| 38 | (//) :: x -> (x -> y) -> y | 40 | (//) :: x -> (x -> y) -> y |
| 39 | infixl 0 // | 41 | infixl 0 // |
| 40 | (//) = flip ($) | 42 | (//) = flip ($) |