-- -*- M2-comint -*- {* hash: 1970550349 *}

i1 : R = ZZ/101[x]

o1 = R

o1 : PolynomialRing

i2 : p = map(R^1, R^1, {{x^4}})

o2 = | x4 |

             1       1
o2 : Matrix R  <--- R

i3 : isHomogeneous p

o3 = false

i4 : q = map(R^1, R^1, {{x^4}}, Degree => 4)

o4 = | x4 |

             1       1
o4 : Matrix R  <--- R

i5 : isHomogeneous q

o5 = true

i6 :