Some measurements taking the example from the `is_homogeneous` docstring:

    R, (x, y, z) = graded_polynomial_ring(QQ, ["x", "y", "z"], [1, 2, 3])
    f = x^2+y*z
    W = [1 2 1 0; 3 4 0 1]
    S, (w, x, y, z) = graded_polynomial_ring(QQ, ["w", "x", "y", "z"], W)
    F = w^3*y^3*z^3 + w^2*x*y^2*z^2 + w*x^2*y*z + x^3

Before:

    julia> @Btime is_homogeneous(f);
      1.533 μs (62 allocations: 2.28 KiB)

    julia> @Btime is_homogeneous(F);
      3.932 μs (152 allocations: 5.53 KiB)

After:

    julia> @Btime is_homogeneous(f);
      334.071 ns (10 allocations: 416 bytes)

    julia> @Btime is_homogeneous(F);
      556.150 ns (12 allocations: 656 bytes)