in reply to I'm looking for the faster way to convert char 2 Bin and Bin 2 char (8bits)
beware before!
Yesterday i found an amusing little routine to do decimal to binary (not the same drek everyone did in school as i understand it). So i converted it to perl and felt like posting it. Unfortunately i may have messed up something, so if someone (like maybe IO) could tell me if i did or not that would be sweet.
It is completely untested, but it should work (as if that's any boon to a programmer)sub dec2bin { my $num = shift; my @num; my $i = 0; (push @num, (($num & 2**$i) == 2**$i) ? 1 : 0) and $i++ until (2**$ +i > $num); return 0 + join '', reverse @num; }
jynx
update: changed the $n to $num on line 5 according to IO's suggestion (thank you).
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re(golf): I'm looking for the faster way to convert char 2 Bin and Bin 2 char (8bits)
by I0 (Priest) on Jan 27, 2001 at 05:08 UTC |
In Section
Seekers of Perl Wisdom