Re: Dont Understand
- To: mathgroup at smc.vnet.net
- Subject: [mg15896] Re: [mg15857] Dont Understand
- From: BobHanlon at aol.com
- Date: Wed, 17 Feb 1999 23:33:42 -0500
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2/12/99 8:38:01 PM, phrje at csv.warwick.ac.uk writes:
>I'm not an expert in Mathematica and would appreciate comments on why
>init1 returns a list with all zeros replaced by -1, but init does not.
>Its probably very simple but its confused me.
>
>Don
>
>init[n_Integer]:=Module[
> {s=Table[Random[Integer],{n n}]},
> s/.{0->-1};
> Partition[s,n]
> ]
>
>init1[n_Integer]:=Module[
> {s=Table[Random[Integer],{n n}]},
> s/.{0->-1}
> ]
>
Don,
In the definition of Init you did not "save" the results of the substitution
and, consequently, the partition was applied to the originally defined value
of s. Use any of these definitions:
init[n_Integer] := Module[
{s=Table[Random[Integer],{n n}]},
s = s/.{0->-1};
Partition[s,n]
];
init[n_Integer] := Module[
{s=Table[Random[Integer],{n n}]},
Partition[s/.{0->-1}, n]
];
init[n_Integer] := Partition[Table[Random[Integer], {n n}] /. {0->-1},n];
Bob Hanlon