Re: [Fun With Perl] Another oddity from the days of assembler

[Mark-Jason Dominus <mjd@plover.com>]

> But why not using the power of Memoize?
> 
> use Memoize;
> memoize '_bytewise';
> 
> sub _bytewise ($) {
>    my $b = unpack("B*", pack("L*", $_));
>    $b =~ tr/1//;
> }

Funny you should mention that.  If you look into the code I wrote for
my TPJ article about Huffman compression last year, you'll see

	memoize 'char_to_b8';
	sub char_to_b8 {
	  my $b = unpack 'B8', shift();
	  split //, $b;
	}


==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org