MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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[9]]

{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[9]
>
> 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!
> 
> thank you for answering!
> 
> MFG Ben


  • Prev by Date: Re: A list of numbers without "73"
  • Next by Date: Re: A list of numbers without "73"
  • Previous by thread: Re: Assign a value to a variable
  • Next by thread: Re: Assign a value to a variable