On Tue, 11 Nov 2003, saad bedaiwi (sb) wrote:
sb> Dear GAP-Forum,
sb>
sb> Let L be a list of integers, is there a way to test whether each member of L
sb> is a power of a
sb> specific prime, it seems that the command "IsPrimePowerInt" do
sb> that but for an arbitrary prime
Dear GAP forum,
Dear Saad,
this is probably not the most efficient way, but at least it is short:
gap> list := [3,9,81,2]; [ 3, 9, 81, 2 ] gap> Length(Collected(List( list, PrimePowersInt ){[1..Length(list)]}[1])) = 1 ; false gap> list := [3,9,81]; [ 3, 9, 81 ] gap> Length(Collected(List( list, PrimePowersInt ){[1..Length(list)]}[1])) = 1 ; true gap>
best regards,
Sergei -- -------------------------------------------------------------------- -?) eMail: Sergei.Haller@math.uni-giessen.de /\\ -------------------------------------------------------------------- _\_V Be careful of reading health books, you might die of a misprint. -- Mark Twain