Select Code to Download

Select or download this

 
&sysread_uint48($RGB, \@rgbz);  # Store RGB in uint64, RGBZ array
&RADIX_SORT(\@rgbz);  # Sort by digits!
...
    $std=$rgbz[$ii];              # Make new THIS the STD
}
printf("%d distinct values\n", $unique);

Select or download this

 I:\exp\raw>cdrc pf-2015.0531-249465.pprgb.7360x4912.raw
CDRC: 27645898 distinct RGBs = 76.471% in 0.946 sec

...
CDRC: 36.152320M MemCpy in 67 msec
RS: R_Sort-> 775 ms, C_Unique-> 32 ms, total-> 808 ms
CDRC: 27645898 distinct RGBs = 76.471% in 0.950 sec

Select or download this

Running C:\bin\bb2.pl   Sun Dec 13 16:30:19 2015
Unique colors=27.645898M =  76.471%  <<< EXACT!
...
I:\exp\raw>mult 6.936 60 /0.946
439.915433

Select or download this

# =============================================================
sub unique_colors_perl()  {
...

NOTE: Bone-Nary: Special build for BoneHeads who can't \
 make their own! :)