Re: this must be golfable

2002-08-14 Thread Mtv Europe
Hello Piers! [EMAIL PROTECTED] (Piers Cawley) wrote: >> -p $_=pack B8 x!!y/|.//d,$_ # eugene >> -p $_=y/|.//d?pack B8,$_:"" # mtve > > -p $_=pack y/|.//d?B8:"",$_ > > Hmmm... can't seem to get under Eugene & MTVe's scores. It feels like > there ought to be a

Re: this must be golfable

2002-08-13 Thread Piers Cawley
Prakash Kailasa <[EMAIL PROTECTED]> writes: > -p $_=y/|.//d&&pack(B8,$_)# phil > -p $_=pack B8 x!!y/|.//d,$_ # eugene > -p $_=y/|.//d?pack B8,$_:"" # mtve > > Assuming the same rule as others (ignore the top and bottom lines) > > -p y/

Re: this must be golfable

2002-08-12 Thread Prakash Kailasa
-p $_=y/|.//d&&pack(B8,$_) # phil -p $_=pack B8 x!!y/|.//d,$_ # eugene -p $_=y/|.//d?pack B8,$_:"" # mtve Assuming the same rule as others (ignore the top and bottom lines) -p y/|.//d,$_=pack B8,$_# pk /prakash On Sun, Aug 11, 2002 at 03:55:

Re: this must be golfable

2002-08-12 Thread Mtv Europe
Hello Eugene! [EMAIL PROTECTED] (Eugene Van Der Pijll) wrote: > And on 11 sextil 2002 said Phil Carmody: >> perl -pe '$_=y/o |./10/d?pack(B8,$_):""' > perl -pe '$_=y/|.//d?pack(B8,$_):""' why brackets? -p $_=y/|.//d?pack B8,$_:"" --- Mtv Europe

Re: this must be golfable

2002-08-11 Thread Eugene van der Pijll
En op 11 augustus 2002 sprak Phil Carmody: > I'd just realised > perl -pe '$_=y/o |./10/d&&pack(B8,$_)' > works. Not if the top and bottom lines are present in your input: $ cat ascii ___ | o . o| | o o . oo| | o . oo| | o o. o| | o o. o| |o. o | ___ $ perl -pe

Re: this must be golfable

2002-08-11 Thread Phil Carmody
I've heard mention of IRC. What net (what server's good for Finns?) and what channel? Chz, Phil = -- The good Christian should beware of mathematicians, and all those who make empty prophecies. The danger already exists that the mathematicians have made a covenant with the devil to darke

Re: this must be golfable

2002-08-11 Thread Phil Carmody
--- Eugene van der Pijll <[EMAIL PROTECTED]> wrote: > And on 11 sextil 2002 said Phil Carmody: > > One way: > > > > perl -pe '$_=y/o |./10/d?pack(B8,$_):""' I'd just realised perl -pe '$_=y/o |./10/d&&pack(B8,$_)' works. > perl -pe '$_=y/|.//d?pack(B8,$_):""' > perl -ne 'y/|.//d&&print

Re: this must be golfable

2002-08-11 Thread Eugene van der Pijll
And on 11 sextil 2002 said Phil Carmody: > One way: > > perl -pe '$_=y/o |./10/d?pack(B8,$_):""' perl -pe '$_=y/|.//d?pack(B8,$_):""' perl -ne 'y/|.//d&&print pack B8,$_' In perl there are 256 binary digits. (-ugene -- The uglier a man's legs are, the better he plays golf---it's almost a

Re: this must be golfable

2002-08-11 Thread Phil Carmody
One way: perl -pe '$_=y/o |./10/d?pack(B8,$_):""' Phil --- Phil Carmody <[EMAIL PROTECTED]> wrote: > ___ > | o . o| > | oo o.oo | > | oo .o | [SNIP] > > <-> > > And don't use ASCII = -- The good Christian should beware of mathematicians, and all those who make empty pro