{-# OPTIONS_GHC -fno-warn-orphans #-}
module Math.Polynomial.NumInstance where
import Math.Polynomial
instance (Num a, Eq a) => Num (Poly a) where
fromInteger :: Integer -> Poly a
fromInteger i :: Integer
i = Endianness -> [a] -> Poly a
forall a. (Num a, Eq a) => Endianness -> [a] -> Poly a
poly Endianness
LE [Integer -> a
forall a. Num a => Integer -> a
fromInteger Integer
i]
+ :: Poly a -> Poly a -> Poly a
(+) = Poly a -> Poly a -> Poly a
forall a. (Num a, Eq a) => Poly a -> Poly a -> Poly a
addPoly
negate :: Poly a -> Poly a
negate = Poly a -> Poly a
forall a. (Num a, Eq a) => Poly a -> Poly a
negatePoly
* :: Poly a -> Poly a -> Poly a
(*) = Poly a -> Poly a -> Poly a
forall a. (Num a, Eq a) => Poly a -> Poly a -> Poly a
multPoly
abs :: Poly a -> Poly a
abs = [Char] -> Poly a -> Poly a
forall a. HasCallStack => [Char] -> a
error "abs cannot be defined for the Poly type"
signum :: Poly a -> Poly a
signum = [Char] -> Poly a -> Poly a
forall a. HasCallStack => [Char] -> a
error "signum cannot be defined for the Poly type"