map {
m/\A(-?)(\d)(\d)/;
$1 . '\\' # escape dot
- . chr($2 > 3 ? 0x2070 + $2 : $2 == 1 ? 0xB9 : 0xB0 + $2) # superscript
- . chr(0x2080 + $3) # subscript digit
+ . ('.̇' x ($2 < $3 ? $2 : $3)) # min($2,$3) without losing captures
+ . ('.' x ($3 - $2))
+ . (' ̇' x ($2 - $3))
} @_
}
11 12 13 14 15 21 22 23 24 -24 25 31 32
33 34 35 41 42 43 44 45 51 52 53 54 55
})],
+tap => [disptap(qw{
+ 11 12 13 14 21 22 23 24 31 -31 -13 32 33
+ 34 41 42 -13 43 44 15 51 52 53 -25 -31 54
+ })],
);