Re: 1-D Cellular Automata


Do you know where your variables are?
	PerlMonks

by gumby (Scribe)

on Jun 19, 2002 at 21:36 UTC ( #175847=note: print w/replies, xml )

Need Help??

Sierpinski sieve:

#!/usr/bin/perl -wl
$_="co";
while (1) { s/..(?=c)/$&^"CO"/eg; s/^/ /; print; }
[download]

Now, why does this work? Because binom(m, n)(mod 2) = n XOR m, so this is just Pascal's triangle (mod 2).

Update: Will work now.

Comment on Re: 1-D Cellular Automata Download Code

Replies are listed 'Best First'.
Re: Re: 1-D Cellular Automata by RMGir (Prior) on Jun 20, 2002 at 12:36 UTC
why does this work? It doesn't, at least, not with 5.6.1, or 5.005_03. Does it need 5.8? Edit: As petral points out, the regex will never match. I should have noticed that myself, instead of just trying the code... -- Mike	[reply]
Re: Re: Re: 1-D Cellular Automata by petral (Curate) on Jun 20, 2002 at 16:22 UTC
`$_="co"` will never match `/..(?=c)/`. p	[reply] [d/l] [select]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://175847]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others taking refuge in the Monastery: (3)

As of 2023-05-28 06:04 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found

Notices^?