b7ea66d8d3
This PR fixes `getHexNumSize` to consider underscores. Previously, only the amount of bytes was counted, making it output 9 for `1234_abcd` instead of the actual number of digits, which is 8.
28 lines
511 B
Text
28 lines
511 B
Text
syntax "#" noWs hexnum : term
|
||
open Lean in
|
||
macro_rules
|
||
| `(#$n:hexnum) => `(($(quote n.getHexNumSize), $(quote n.getHexNumVal)))
|
||
|
||
/-- info: (4, 44733) : Nat × Nat -/
|
||
#guard_msgs in
|
||
#check #aebd
|
||
|
||
/-- info: (1, 10) : Nat × Nat -/
|
||
#guard_msgs in
|
||
#check #a
|
||
|
||
/-- info: (2, 16) : Nat × Nat -/
|
||
#guard_msgs in
|
||
#check #10
|
||
|
||
/-- info: (2, 5) : Nat × Nat -/
|
||
#guard_msgs in
|
||
#check #05
|
||
|
||
/-- info: (3, 10) : Nat × Nat -/
|
||
#guard_msgs in
|
||
#check #00a
|
||
|
||
/-- info: (8, 65536) : Nat × Nat -/
|
||
#guard_msgs in
|
||
#check #0001_0000
|