How do I DistributeDefinitions inside a function?

*To*: mathgroup at smc.vnet.net*Subject*: [mg97789] How do I DistributeDefinitions inside a function?*From*: uk.org.microserf at googlemail.com*Date*: Sat, 21 Mar 2009 05:20:47 -0500 (EST)

Hi I have the following function: LeaveOneOut[f_, items_] := Parallelize[ MapIndexed[ f[#1, items[[Complement[Table[i, {i, Length[items]}], #2]]]] &, items]] Which might be called as follows: a = 10 Table[i, {i, 10}]; f[x_, items_] := Mean[items] + x; DistributeDefinitions[a, f]; LeaveOneOut[f, a] Notice that I need to explicitly call DistributeDefinitions. I would like to modify LeaveOneOut such that it performs the DistributeDefinitions call. I've tried a few things=97such as using (Distribute....; Parallelize...) and Module[{}, Distribute....; Parallelize...]=97but the arguments passed to LeaveOneOut don't seem to be being distributed (old definitions are used instead). I'm a relative Mathematica novice, so help=97and an explanation of why what I have already tried doesn't work=97would very much be appreciated! Cheers Chris