Select Code to Download

Select or download this

++$h{$_} for 1 .. 27e6; print time() - $t;;

Select or download this

sub rgb_hash()  {
    $debug=0;
...
    &time_event('term', \%e2at, $debug*0);  # Finalize timing structur
+es
    &show_event(\%e2at, $debug*0);  # Automatically stops last event t
+iming
}

Select or download this

($rr, $gg, $bb) = @ushort[$ii .. $ii+2];  # Array slice
$quad=pack('Q', $rr, $gg, $bb, 0x0000);

Select or download this

R=0x0892, g=0x0b8c, b=0x0672, 
bs=0x000006720b8c0892, q=0x0000000000000000,
             R=0x0892
         g=0x0b8c
     b=0x0672,

Select or download this
```
#(*#@%) QUAD!
```

Select or download this

  Formula:   pack TEMPLATE,LIST;    Q  An unsigned quad value.
  Example:     $foo = pack('nN', 42, 4711);
    # pack big-endian 16- and 32-bit unsigned integers

Select or download this

================================================
Boring Report:
...
 0.22% -> Read_Raw
 0.00% -> Count distinct colors
Elapsed time = 1.11 min