Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: updated version of old sig

by benizi (Hermit)
on Oct 24, 2003 at 20:53 UTC ( #301963=note: print w/replies, xml ) Need Help??

in reply to updated version of old sig

I know it's really minor, but every stroke counts:

You have several ternary ops using '==' (e.g. $_==16?$p:$_&=15). Since the variables're all integers, you can accomplish the same thing using '-' and reversing the order of the options. (e.g. $_-16?$_:$p&=15).

In general X==Y?A:B is equivalent to X-Y?B:A. (Note that, in the more complicated (multiple-)ternaries, you'll have to do a bit more shuffling.)

Also, I thought I should tell you that your latest version (4 lines + 70) doesn't work properly on my machine:
(This is perl, v5.8.0 built for i686-linux)
It gets to the upper left corner, the entire grid changes to squares, and it continues to wander.

Update: Or at least that's what it did when I forgot to edit out the other <code> sections... (oops)

Replies are listed 'Best First'.
Re: Re: updated version of old sig
by mtve (Deacon) on Oct 26, 2003 at 10:07 UTC

    Few more minor suggestions

    @m=((16,(15)x15)x10,(16)x16);$m[$c]|=16,!(@a=grep!($m[$c+$$_[$l=0]]&16 ++$ s*$$_[1]),[-1,8],[1,1],[-16,2],[16,4])?$c=pop@p:${($i,$j)=@{$a[rand@a] +}; push@p,$c;$m[$c]&=~(8/$j);$m[$c+=$i]&=~$j;++$v-150||map$_-16?$_:$p&=15 +,@ m,$c=$s=1},$s&&select$q,$q,$q,.1*print"\ec",'_'x31,map$l++%16?($l-1-$c +?$ _&2?_:$":o).($_&8?'|':_):"$/|",@m[0..160]until$c>158&$s

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://301963]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (2)
As of 2018-07-18 22:49 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (397 votes). Check out past polls.