A fair point. Re-opening with the intent to make synthetic digits match the
same way as punctuation.
I tried a few implementations, like changing the .comb to
.comb(/:r ‘*’ || [(\d) <?{ nqp::iseq_s(nqp::chr(nqp::ord(nqp::substr($_,
nqp::chars($_)-1, 1))), nqp::substr($_, nqp::chars($_)-1, 1)) given $/.Str }>
]+ || <.alpha>+ /)
But all of them ended up being 10 to 64 times slower than just regular \d+.
By defining a token that matches only non-synthetic Nd chars, the slowdown is
only 2x, so I'll see if we can make that token available somewhere in the guts,
since we needed it in the Perl6/Grammar.nqp too.
