Re: simple question if/while loop
- To: mathgroup at smc.vnet.net
- Subject: [mg40109] Re: simple question if/while loop
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 21 Mar 2003 02:36:20 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <b5bk79$5t4$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
you forgott a semicolon
TestFun[] := Module[{a, tb, n}, tb = Table[0.0, {4}];
n := 1;
a := Random[];
While[n < 5,
If[a > .5,
(tb[[n]] = a; n++;),
Continue[]]
]; (* <==== here ! *)
tb
]
Regards
Jens
s kp wrote:
>
> I am trying to do the following for a test purpose so I am a learning mathematica
>
> TestFun[] := Module[{a, tb, n},
> tb = Table[0.0, {4}];
> n := 1;
> a := Random[];
> While[n < 5,
> If[ a > .5,
> (tb[[n]] = a;
> n++;), Continue[]
> ]
> ]
> tb
> ]
>
> The output that I get is
>
> {0.871577 Null, 0.512558 Null, 0.00441806 Null, 0.520545 Null}
>
> Why am I doing wrong here and what is the correct way to do the above thing using If and While loop?
>
> thanks
>
>