[Haskell-cafe] vector-space and standard API for vectors
wren ng thornton
wren at freegeek.org
Sat Oct 23 19:38:54 EDT 2010
On 10/23/10 4:53 PM, Alexey Khudyakov wrote:
> On 23.10.2010 05:11, wren ng thornton wrote:
>> I'd rather see,
>>
>> class Additive v where -- or AdditiveMonoid, if preferred
>> zeroV :: v
>> (^+^) :: v -> v -> v
>>
>> class Additive v => AdditiveGroup v where
>> negateV :: v -> v
>>
> Seems good for me. One more instance declaration to write and no changes
> in usage.
>
> However when written this way it becomes obvious that
> `zeroV' == `mempty' and ^+^ = mappend. Is Additive really needed then?
It depends on the usage, since we don't have a nice way of having
multiple Monoid instances in scope with different identifiers for their
respective mzero/mappend. For example, in Edward Kmett's monoids[1]
library he reuses Monoid for additive monoids and adds a new
Multiplicative class for multiplicative monoids; that way you can use
operators for a semiring without needing newtype wrappers everywhere in
order to distinguish the two structures on the same type.
When dealing with modules and vector spaces we have three or four
different monoids in play: the additive and multiplicative monoids of
the underlying semiring/ring/field, and the additive and multiplicative
monoids of the module/vectorspace. Lacking the aforementioned feature,
that means there are good reasons to have duplicate classes (i.e.,
they're all monoids) so long as they are documented as capturing
different notions (e.g., distinguishing "scalar" and "vectorial" uses).
I don't care much about the name of the class, I'd just like support for
monoids, semirings,... when they lack a group, ring,... structure.
[1] http://hackage.haskell.org/package/monoids
>> type family Scalar :: * -> *
>>
>> class Additive v => LeftModule v where
>> (*^) :: Scalar v -> v -> v
>>
>> class Additive v => RightModule v where
>> (^*) :: v -> Scalar v -> v
>>
> Could you give some example of data type for which (*^) ≠ flip (^*)?
> I couldn't imagine one.
Choose any underlying semiring/ring/field with non-commutative
multiplication. For a simple one, consider collections of paths over a
graph. Addition is choice, so union in the collection. Multiplication is
concatenation, mapping over the collection. While xs+ys == ys+xs because
union is commutative, xs*ys /= ys*xs because (*ys) adds ys to the end of
the paths whereas (ys*) adds ys to the beginning of the path.
As Daniel Fischer mentions, quaternions are another common example.
--
Live well,
~wren
More information about the Haskell-Cafe
mailing list