decompmap.p6

use nqp;
#proto sub infix:<unicmp>(Str \a, Str \b) is pure { * }
my %decomp_spec;
my @list;
my @dec = "ABC", "04D", "ABC", "04D";
# 1.5s
for ^10000 -> $cp {
    my @array;
    push %decomp_spec{$cp}<mapping>, nqp::atpos(nqp::radix(16, $_, 0, 0), 0) for @dec;
}
# 0.5s
for ^10000 -> $cp {
    my @array;
    for @dec { @array.push(nqp::atpos(nqp::radix(16, $_, 0, 0), 0)) }
    %decomp_spec{$cp}<mapping> = @array;
}
say now - INIT now;

say %decomp_spec;