Re: Re: A Functional Programming Question
- To: mathgroup at smc.vnet.net
- Subject: [mg25049] Re: [mg24761] Re: A Functional Programming Question
- From: Jacqueline Zizi <jazi at club-internet.fr>
- Date: Sun, 3 Sep 2000 22:11:07 -0400 (EDT)
- References: <8mdm9v$5o7@smc.vnet.net> <200008090632.CAA00987@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
The following works without step 1 (and 2). It is just another solution.
With [{xyz = #[[1]] & /@ eqns/{a, b, c}},
xyz /. Dispatch[ # -> # == 0 & /@ xyz]]
Mariusz Jankowski wrote:
> David, I suggest the following method:
>
> (1) define a helper function
>
> f[x_,y_]:=(#/y&)/@x
>
> (2) then, as you guessed, use MapThread
>
> MapThread[f[#1, #2] &, {eqns, {a, b, c}}]
>
> I am curious to see how it can be done without step (1).
>
> Regards, Mariusz
>
> ======================================
> Mariusz Jankowski
> University of Southern Maine
> email: mjkcc at usm.maine.edu