v0.5.3.0

stla · Jun 3, 2024 · 620f768 · 620f768
1 parent 18828ff
commit 620f768
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -300,7 +300,7 @@ roots of a suitable univariate spray or its number of real roots in a given
 interval. This can be very slow if the degree of the spray is not small.
 
 
-## 0.5.3.0 - 2024-05-XX
+## 0.5.3.0 - 2024-06-03
 
 * Now the denominator of a `RatioOfSprays` is always monic, i.e. it is a 
 polynomial whose leading coefficient is 1.
diff --git a/src/Math/Algebra/Hspray.hs b/src/Math/Algebra/Hspray.hs
@@ -1282,7 +1282,7 @@ removeZeroTerms = HM.filter (/= AlgAdd.zero)
 
 -- | helper function for lone and lone'
 lonePower :: Int -> Int -> Powers
-lonePower n p = if n == 0 
+lonePower n p = if n == 0 || p == 0
   then nullPowers
   else Powers (S.replicate (n - 1) 0 |> p) n