Re: Quick Mathematica Question
- To: mathgroup at smc.vnet.net
- Subject: [mg115270] Re: Quick Mathematica Question
- From: Ray Koopman <koopman at sfu.ca>
- Date: Thu, 6 Jan 2011 02:03:12 -0500 (EST)
- References: <ig1i6l$6jj$1@smc.vnet.net>
On Jan 5, 2:46 am, Dean <deanrosent... 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. > > -- > Dean Rosenthal > > cell: 646 733 6966 > www.deanrosenthal.org > http://www.the-open-space.org/webmag/test1.html FromDigits /@ NestList[ Replace[#, {0->1, 1->Sequence[1,0]}, {1}]&, {0}, 4] {0, 1, 10, 101, 10110}