same -- whether everything in a list is the same

same -- whether everything in a list is the same

same v -- whether every element of the list v is the same. The comparison is done with ==.

Code:

     -- ../../../Macaulay2/m2/lists.m2:43-51
     same = v -> (
          -- this could be compiled for speed
          if # v === 0
          then true
          else (
               w := v#0;
               all(1 .. # v - 1, i -> w === v#i)
               )
          )