Select Code to Download

#! /usr/bin/perl -w
 
...
    printf "$num0 => %0.0f  $num1 => %0.1f  $num2 => %0.2f\n",
        $num0, $num1, $num2;
}

0 => 0  0 => 0.0  0 => 0.00
0.1 => 0  0.01 => 0.0  0.00099999999999989 => 0.00
...
0.7 => 1  0.0700000000000001 => 0.1  0.0069999999999999 => 0.01
0.8 => 1  0.0800000000000001 => 0.1  0.00800000000000001 => 0.01
0.9 => 1  0.0900000000000001 => 0.1  0.0089999999999999 => 0.01

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';