XP is just a number PerlMonks

### Re^2: 5x6-bit values into/out of a 32-bit word

by Thelonius (Priest)
 on Mar 18, 2007 at 01:46 UTC ( #605330=note: print w/replies, xml ) Need Help??

Okay, the C programmer in me rebelled against the inefficiency of my earlier reply. How about:
```sub b5ToInt {
use integer;
return     (\$_[4]||0)
+ ((\$_[3]||0)<<6)
+ ((\$_[2]||0)<<12)
+ ((\$_[1]||0)<<18)
+ ((\$_[0]||0)<<24);
}
sub intToB5 {
use integer;
my \$in = int(shift);
return map { \$_ & 0b111111 }
((\$in >> 24),
(\$in >> 18),
(\$in >> 12),
(\$in >>  6),
\$in);
}

Replies are listed 'Best First'.
Re^3: 5x6-bit values into/out of a 32-bit word
by grinder (Bishop) on Mar 18, 2007 at 10:28 UTC

The C programmer in you may rail against the inefficiency of your first solution, but this solution has you doing a pile of work that would be more efficiently handled by the computer. Get it to calculate those multiples of 6, it's better at that than you are. Factor that out, and your code will shrink.

And should the requirements ever change, you'll have much less code of your own to change. That's a much better form of effciency worth seeking.

• another intruder with the mooring in the heart of the Perl

This is a very interesting point, one very much worth considering. In Perl, of course, the difference would not be worth mentioning, but in C, my unrolled-loop version is much faster than a version with a loop. I was guessing that it would be twice as fast, but when I actually measured it, it was actually five times as fast.

Now, of course, it was microseconds v. microseconds, but why are we packing 5 numbers into one 32-bit word? Presumably we care about the space usage, which would only matter if we are using a lot of them, probably millions, so all those microseconds can add up.

The maintenance concerns are, in this specific case, probably not valid. You can't pack 6x6-bit values in a 32-bit word, nor 5x7-bit values. We would have to change the algorithm if anything changed. And, if you actually write out the loop version, you've probably only saved one line of code.

I'm not disagreeing with your principles, but I think that in this case I would probably go with my version.

There's a very good essay, The Fallacy of Premature Optimization. One snippet:

Note, however, that Hoare did not say, "Forget about small efficiencies all of the time." Instead, he said "about 97% of the time." This means that about 3% of the time we really should worry about small efficiencies. That may not sound like much, but consider that this is 1 line of source code out of every 33. How many programmers worry about the small efficiencies even this often? Premature optimization is always bad, but the truth is that some concern about small efficiencies during program development is not premature.
In Perl, of course, the difference would not be worth mentioning, but in C, my unrolled-loop version is much faster than a version with a loop.

Yes, but this is Perl we are talking about, a language where a cosine is really no more expensive than an addition, not C. Perl is about flexibility, C is about speed.

if we are using a lot of them, probably millions

If you have millions of them, then Perl is the wrong language to use.

All I know is that seeing those multiples of 6 raises a red flag, at least as far as Perl is concerned. That code strikes me as fragile, in that it does not adapt to changing requirements readily (which is one of the reasons I code in Perl). Remember the cardinal virtue of Laziness.

Also, while I don't know why BrowserUK wants to do this, I maintain my reasoning is as valid as yours. There are dozens of ways of packing small bitmaps into a 32-bit quantity, and far more can be packed into a 64-bit quantity, as 64-bit CPUs become more prevalent.

• another intruder with the mooring in the heart of the Perl

Note, however, that Hoare did not say, "Forget about small efficiencies all of the time." Instead, he said "about 97% of the time." This means that about 3% of the time we really should worry about small efficiencies.

As far as I knew, Hoare (implictly) did say "all of the time." The actual quotation being simply and forever:

Premature optimization is the root of all evil.

it was Knuth who paraphrased Hoare like thus:

We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil. Yet we should not pass up our opportunities in that critical 3%.
Get [the computer] to calculate those multiples of 6, it's better at that than you are.

What utter rubbish! If you cannot recite the first five terms of the 6 times table from memory, and more quickly than you can power up your computer...

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Don't take things so literally.

Of course we know our 6 times tables. And the computer is already switched on.

What if your requirements change, and it's 7 4-bit values, or 10 3-bit values? In my code, you only have to change one or two initialisers. In Thelonius's code you have to rework nearly all of it. Even if the particular edits are trivial, there are far too many.

It's a variant on the Don't Repeat Yourself principle. I am surprised you didn't grasp this.

• another intruder with the mooring in the heart of the Perl

Create A New User
Node Status?
node history
Node Type: note [id://605330]
help
Chatterbox?
 [GotToBTru]: late to the conversation .. but thanks, Corion, for the reminder about Perl::Tidy [Corion]: GotToBTru: Heh ;) I'm not really endorsing it, as I found that any gains made through it are easily squandered by the hours spent on configuring it. At least in my case :) [GotToBTru]: Like most Swiss Army Knives, you can cut yourself trying to find the blade you actually want [GotToBTru]: i am satisfied with the default settings turning the seemingly random formatting into something reliable

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (12)
As of 2017-02-27 14:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Before electricity was invented, what was the Electric Eel called?

Results (387 votes). Check out past polls.