Pony!

2001-04-04 Thread David Cantrell

I've uploaded a new version of Pony.pm to CPAN.  It fixes a bug in the
scaling algorithm and also stores the original data RLE encoded, thus
cutting the size of the module from 100K to 17.5K.

-- 
David Cantrell | [EMAIL PROTECTED] | http://www.cantrell.org.uk/david/

This is a signature.  There are many like it but this one is mine.

** I read encrypted mail first, so encrypt if your message is important **

 PGP signature


Re: Buffy riding a pony!

2001-04-03 Thread Mike Jarvis

May I forward your post to one of my company's internal humour/perl
lists?


-- 
mike





Buffy riding a pony!

2001-04-02 Thread David Cantrell

I was bored today, so I wrote an ickle module which takes code like this:

  use Pony;

  print "Hello world!\n";

and turns it into

  use Pony;
b
   UfFy  
   buffy 
  buFFYb 
  uFfyBUF
  fYbuFfY
 BufFYBuF
  FybuFfY
   BUffyb
   ufFybuF  fy   
  bUffybuFf yBu  
   F  fYbuFFybuFFyBUffy  
   BUfFYbUFFYbUFfybuffY  
  bu FFYbUFFyBUFFyBUffYb 
  uF  FYbufFYbUFfybUffYB 
   uFfybuFfybuFFYbUff
 YBUfFYbuFfybUffY
  B  uFFYbufF
  y   Buf fyb
  UfF ybu
  f   FYB UFf
  Y   b U  FF
  Y   B u  F 
  f Y  b 
 U  f
   f 

  yBufFYBufFybuFfybUfFYBUFfYbUFFYBuFf

I am very very sorry.  It's all Damian's fault.  He 'inspired' me to do
this after his talk on Bleach.

The pony is scalable, and it will handle up to about 5000 characters of
code (I only wrote the code for scaling it down, couldn't be arsed with
scaling up).  The module has a 100Kb ASCII-art pony embedded in it (derived
from an XPM which was swiped from the web pages of the American Shetland
Pony Club) which gets scaled to the right size and then we substitute
code which has been encoded a-la-Buffy.pm.  Because the scaling can't be
exact, it either gets padded with garbage at the end or we draw a line
underneath the pony for it to stand on.

To execute, it throws away all the whitespace and then decodes exactly the
same as Leon Brocard's 'Buffy' module.

I'll put it on CPAN soon.

Future enhancements (yeah right):
  Use RLE to compress the 100Kb of ASCII-art;
  or if I can figger it out, store it as arbitrarily scalable vectors;
  scaling up

-- 
David Cantrell | [EMAIL PROTECTED] | http://www.cantrell.org.uk/david/

This is a signature.  There are many like it but this one is mine.

** I read encrypted mail first, so encrypt if your message is important **

 PGP signature


Re: Buffy riding a pony!

2001-04-02 Thread Robin Houston

That's the most addled thing I've seen for a long, long time.
Congratulations!

 .robin.



Re: Buffy riding a pony!

2001-04-02 Thread Struan Donald

* at 02/04 16:26 +0100 David Cantrell said:
 I was bored today, so I wrote an ickle module which takes code like
 this:

we're less than half way through damian's year and already this sort
of thing is becoming very common. i'm beginning to think that YAS didn't
think the idea through carefully enough...

or do we suppose this is just an unfortunate side effect of letting
too many london.pm members talk to each other?

struan



Pony

2001-02-28 Thread Matthew Robinson


Although I didn't make it to the pub after Damian's talk I did hear from my
sources that someone thought it would be 'useful' to convert Bleach.pm to
print pony instead.  So here it is Pony.pm, it isn't quite the same as
Bleach but it produces a similar result.

Enjoy,

Matt

package Pony; 
$VERSION = '1.00'; # MSR - 28 Feb 2001
$magic = "pony " x 4;
sub pony { local $_ = unpack("b*", pop); s/0/ /g; s/1/pony/g; $magic.$_ }
sub depony { local $_ = pop; s/^$magic//; s/pony/1/g; s/ /0/g; pack("b*",
$_) }
open 0 or die;
($script = join("", 0)) =~ s/^(.*^use\s+Pony\s*;\s*?\n)//sm;
$header = $1;
do { eval depony($script); exit } if ($script =~ /^$magic/);
open(0, "$0") or die;
print {0} $header.pony($script);






Pony and Buffy (was Re: Mailing List Stuff)

2001-02-15 Thread Mark Fowler

On Fri, 2 Feb 2001, Michael Stevens wrote:
 On Fri, Feb 02, 2001 at 12:34:15PM +, Robin Houston wrote:
   what is it with ponys?
  I've wondered that too.
  Seems to be a #perl obsession...
 
 purl pony 
 [purl] pony is replyGimme a Pony! Pony! Pony! Pony Pony Pony! Pony Pony
Pony! Pony Pony Pony! Pony Pony Pony! Pony Pony Pony! Pony Pony 
Pony! Pony Pony Pony!
 
 Michael

Obviously one good meme deserves another:

- *dipsy* buffy?
*dipsy* trelane: wish i knew
*dipsy* purl knew: buffy is reply I want
BUFFY! Buffy! Buffy! Buffy! Buffy
+Buffy Buffy!  Buffy Buffy Buffy!  Buffy Buffy Buffy!  Buffy Buffy Buffy!

Okay, own up, who was this ;-) ?  And more importantly, who told dipsy to
forget Buffy...

-- 
print "\n",map{my$a="\n"if(length$_6);' 'x(36-length($_)/2)."$_\n$a"} (
   Name  = 'Mark Fowler',Title = 'Technology Developer'  ,
   Firm  = 'Profero Ltd',Web   = 'http://www.profero.com/'   ,
   Email = '[EMAIL PROTECTED]',   Phone = '+44 (0) 20 7700 9960'  )