| Newsgroups |
gmane.comp.lang.perl.fun |
| Message-ID |
<[email protected]> |
> Hello Alex and Doug!
>
> [email protected] (Doug Hunt) wrote:
>
> > Alex: Thats the cutest thing I've seen in a while! Sorry, but
> > I don't have any immediate suggestions. In order to get it to work on
> > my (pretty fast) linux box, I had to add another '9' to your timing
> > 9x9999999 thingy...
>
> 9x(9x7) or 9x1e7
>
in case anyone still cares, i've managed to jimmy in the extra bits
(basically a nice border):
@m=((31,(15)x8)x8,(31)x9);$m[$c]|=16,!(@a=grep/.$/&!(16+$|*$&&$m[$c+$`])
,-18,11,94,-92)?$c=pop@p:${$a[rand@a]=~/.$/;push@p,$c;$m[$c]&=~8/$&;++$u
-64?$m[$c+=$`]&=15-$&:map$_&=15,@m,$c=$|=1},$|&&9x4e7,print"\ec",(_)x17,
map$_%9?($_-$c?$m[$_]&2?_:$":o).($m[$_]&8?"|":_):$/.l,0..71until$c>70&$|
you can change the timing by changing this
9x4e7
^
up will slow it down, down will speed it up.
thanks to mtve for repeatedly pointing out golf solutions to my
problems...
al
> --
> Mtv Europe
>