Help for this page

Select Code to Download

Select or download this

  for my $n (53..55) {
    my $max =   2**($n-1) - 1 ;
...
    sprintf '0x%04X_%04X_%04X_%04X', ($ms >> 16), ($ms & 0xFFFF),
                                     ($ls >> 16), ($ls & 0xFFFF) ;
  } ;

Select or download this

  my $z = 0x0FED_CBA9_8765_4321 ;
  my $d = 9 ;
...

    printf " %2d: %20s : %+5d\n", $i, "$q", $q - ($z + int($i/$d)) ;
  } ;