corrected hilbert_polynomial

@8d1h: resolves #505
oscar-system · Jun 30, 2021 · 7341893 · 7341893
1 parent 1911457
commit 7341893
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/Rings/mpoly-graded.jl b/src/Rings/mpoly-graded.jl
@@ -634,11 +634,9 @@ function hilbert_polynomial(H::HilbertData)
   a = fmpq[]
   nf = fmpq(1)
   d = degree(dn)-1
-  for i=0:d
-    push!(a, q(1)//nf)
-    if i>0
-      nf *= i
-    end
+  for i=1:d+1
+    push!(a, q(1)//nf)    
+    nf *= i
     q = derivative(q)
   end
   Qt, t = QQ["t"]