Help for this page

Select Code to Download


  1. or download this
    $mult=1e7;
 
$buf = chr(1) x $mult;
...
print "TIME1:",time() - $s,"\n";
 
print join ",",unpack '(B8)20',$out;           # check result
  2. or download this
    TIME0:14
TIME1:2
01000001,11111111,01000010,11111111,01000011,11111111,01000100,1111111
+1,01000101,11111111,01000110,11111111,01000111,11111111,01001000,1111
+1111,01001001,11111111,01001010,11111111