Re: Quick Mathematica Question
- To: mathgroup at smc.vnet.net
- Subject: [mg115288] Re: Quick Mathematica Question
- From: "W. Craig Carter" <ccarter at mit.edu>
- Date: Thu, 6 Jan 2011 02:06:40 -0500 (EST)
Hello Dean,
Does collecting the values into a list work for you:
generateFromRule[init_, generations_,aRule_] :==
Nest[Flatten[# /. aRule] &, {init}, generations]
e.g.,
theRule == {0 -> 1, 1 -> {1, 0}};
generateFromRule[0, 10,theRule]
generateFromRule[{0, 1, 1}, 10, theRule]
Them if you want the number as in your post
FromDigits[generateFromRule[{0, 1, 1}, 10, {0 -> 1, 1 -> {1, 0}}]]
Note! sometime equal-signs get doubled while posting in the mathgroup, there are no double-equals above.
Craig
On 5 Jan, 2011, at 5:46 AM, Dean 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.
>
> --
> Dean Rosenthal
>
> cell: 646 733 6966
> www.deanrosenthal.org
> http://www.the-open-space.org/webmag/test1.html