Re: Quick Mathematica Question
- To: mathgroup at smc.vnet.net
- Subject: [mg115272] Re: Quick Mathematica Question
- From: DrMajorBob <btreat1 at austin.rr.com>
- Date: Thu, 6 Jan 2011 02:03:36 -0500 (EST)
For example:
rules = {0 -> 1, 1 -> Sequence[1, 0]};
step = # /. rules &;
evolution = NestList[step, {0}, 5];
FromDigits /@ evolution
{0, 1, 10, 101, 10110, 10110101}
Bobby
On Wed, 05 Jan 2011 04:46:50 -0600, Dean <deanrosenthal at gmail.com> wrote:
> How would I program user-defined rules such as
>
> 0->1
> 1->10
>
> to give the output, and specify the number of recursions. For example,
> starting with 0,
>
> 0
> 1
> 10
> 101
> 10110
> ...
>
> Specified, 5 generations.
>
--
DrMajorBob at yahoo.com