 Come for the quick hacks, stay for the epiphanies. PerlMonks

### another "game"

by teamster_jr (Curate)
 on Jun 17, 2003 at 12:26 UTC Need Help??

```print"\ec";for\$b(0..15){\$e[\$b].=int 2*rand for 0..(\$h=30)}{\$b=-1;for\$f
+(@
a=@e){\$e[++\$b]="";print"\e[\$b\H\$f\$/";for\$c(0..\$h){\$l=0;for(\$b-1..\$b+1)
+{\$
_=\$_>0&&\$_<\$h?substr\$a[\$_],\$c?\$c-1:\$c,\$c==\$h?2:\$c?3:2:1;\$l+=tr/0//}\$l-
+=\$
d=!substr\$f,\$c,1;\$e[\$b].=\$l==3||\$l==2&&\$d?0:\$"}}select\$q,\$q,\$q,0.1;red
+o}
```
```for\$b(0..15){\$e[\$b].=int 2*rand for 0..30}  # (random)

...
{\$e[++\$b]="";print"\e[\$b\H\$f\$/";for\$c(0..30){for(\$b-1..\$b+1){\$_=\$_>0&&
+\$_
<30?substr\$a[\$_],\$c?\$c-1:\$c,\$c==30?2:\$c?3:2:1;\$l+=tr/0//}\$l-=\$d=!subst
+r\$
f,\$c,1;\$e[\$b].=\$l==3||\$l==2&&\$d?0:\$";\$l=0}}select\$q,\$q,\$q,0.1;redo}
```

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://266445]
Front-paged by broquaint
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2023-09-26 16:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?