I'm looking for a simple way to cancel the n-th digit of a number
By eg: 123456 4 XEQ"Raz" -->120456
My on-the-fly code is :
Code: Select all
01▸LBL "Raz" @ (Y n --- Y') raz n-th digit of Y
@------------------------------------------------
02 10↑X
03 RCL ST Y
04 RCL ST Y
05 ÷
06 IP
07 LASTX
08 FP
09 10
10 ×
11 FP
12 10
13 ÷
14 +
15 X<>Y
16 ×
17 RTN
I'm stumped: I expected to find a shorter code or a mathematical trick but ... need a little holiday
Maybe some of you have a good idea ???
Thanks
Michel