       Re: Assign a value to a variable

• To: mathgroup at smc.vnet.net
• Subject: [mg63030] Re: Assign a value to a variable
• From: bghiggins at ucdavis.edu
• Date: Sun, 11 Dec 2005 04:57:06 -0500 (EST)
• References: <dnedkh\$tf\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Ben,

The following function appeared on the news group some time ago that I
find useful for randomly shuffling a list (unfortunately I cannot
recall the name of the author):

shuffle [lst1_] :=
Module[{ newj, lst = lst1, n},
n = Length[lst];
Do[
newj = Random[Integer, {j, n}];
lst[[{j, newj}]] = lst[[{newj, j}]],
{j, n - 1}]; lst ]

Then it is a simple matter to do the assignment:

vars={a,b,c,d,e,f,g,h,i};
Evaluate[vars] = shuffle[Range]

{2, 9, 6, 4, 7, 5, 1, 3, 8}

Cheers,

Brian

Ben Becker wrote:
> Hi!
>
> I have a list of variables:
> vars = {a, b, c, d, e, f, g, h, i}
>
> and a list of numbers:
> numbers = Range
>
> Now i'd like to choose randomly a variable and a number. and then i'd
> like to assign the number to the variable.
> I thought of somehting like that:
>
> vars[[Random[Integer, {1, Length[vars]}]]] =
> numbers[[Random[Integer, {1, Length[numbers]}]]]
>
> but it doesn't work.
>
> i hope you have an idea!
>