Re: Help with module please

*To*: mathgroup at smc.vnet.net*Subject*: [mg39927] Re: Help with module please*From*: "flip" <flip_alpha at safebunch.com>*Date*: Wed, 12 Mar 2003 02:28:22 -0500 (EST)*References*: <b4k46h$8im$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

A slight correction below, sorry ... Flip 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])^(xo + x1*pi)*b, (q-1)/pi^(4), q] x3 = position in rval vector which contains the value PowerMod[((PowerMod[a, - 1, q])^(xo + x1*pi + x2*pi^2)*b, (q-1)/pi^(8), q]