Help for this page

Select Code to Download


  1. or download this
    my $z=17;

my $m= $z<4? 2:  1<<( 63-( clz($z) +1) );  # 64-bit system integer
my $m= $z<4? 2:  1<<( 31-( clz($z) +1) );  # 32-bit system integer
  2. or download this
    use strict;
use warnings;
...

print(";\r\n");