Help with module please

*To*: mathgroup at smc.vnet.net*Subject*: [mg39918] Help with module please*From*: "flip" <flip_alpha at safebunch.com>*Date*: Tue, 11 Mar 2003 02:38:58 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Hello, Another list request for help. I have three variables q, a, and b. My list format is some set consisting of vectors of the form: {{{pi, expi}, {rval0, rval1, rval2, ..., rvaln}}} where: pi = prime factor, expi = exponent of prime factor, and an rval vector corresponding to each {pi, expi} pair. What I would like is a list manipulator that returns an x = x0 + x1pi + ... + xn pi^(expi-1) (note that this sum contains expi values) x0 = position in rval vector which contains the value PowerMod[a, (q-1)/pi^(1)), q] x1 = position in rval vector which contains the value PowerMod[((PowerMod[a, - 1, q])^x0)*b, (q-1)/pi^(2), q] x2 = position in rval vector which contains the value PowerMod[((PowerMod[a, - 1, q])^x1)*b, (q-1)/pi^(4), q]