Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
$t += $_ for @memory;
print "\nThe sum:\n";
printf "% 10u : %032b\n", $t, $t;
  2. or download this
    Original values:
  0 : 00000000
  0 : 00000000
...

The sum:
 123813888 : 00000111011000010100000000000000
  3. or download this
    sub plonk {
    my ($b0, $b1, $b2, $b3) = @_;
...
            + ($b2 & 0x7f) << 14
            + ($b3 & 0x7f) << 21;
}