Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: word size

by chanio (Priest)
on Sep 11, 2005 at 04:24 UTC ( #490977=note: print w/replies, xml ) Need Help??

in reply to word size

perl -e' use strict; my $bina; my $count; my $bits = ~(64); while ($bits) { prbit($bits); $bits >>= 1; $count++; } sub prbit { my $bi=shift; $bina.=($bi%2)? "0":"1"; } $bina=reverse($bina); print "$bina\n$count bit words are being used.\n";' __OUTPUTS__ 00000000000000000000000001000000 32 bit words are being used.
The Lords production is only eaten by the Lords...

Wherever I lay my KNOPPIX disk, a new FREE LINUX nation could be established

Replies are listed 'Best First'.
Re^2: word size
by collin (Scribe) on Sep 12, 2005 at 23:51 UTC least someone is going to humor me! We find ourselves with a fun base_10 to base_2 conversion.
    GOT_VOTES:{($collin{votes} > 0) ? do{$chanio++;last} : goto GOT_VOTES}

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://490977]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2018-06-18 06:17 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (108 votes). Check out past polls.