Middle three digits: Difference between revisions
m
→{{header|RPL}}: formatting
m (→{{header|Sidef}}: update) |
m (→{{header|RPL}}: formatting) |
||
Line 5,371:
Staying in the real world: no number/string conversion, -1 is returned if input is invalid.
{{works with|Halcyon Calc|4.2.7}}
≪ ABS DUP XPON ▼
▲≪ ABS DUP XPON
▲ IF DUP 2 < OVER 2 MOD OR THEN
▲ DROP2 -1
≫ '<span style="color:blue">→M3D</span>' STO
▲ 2 / 1 - ALOG / IP 1000 MOD
≪ { 123 12345 1234567 987654321 10001 -10001 -123 -100 100 -12345 -10 2002}
→ tl
≪ 1 tl SIZE '''FOR''' j
tl j GET <span style="color:blue">→M3D</span>
'''NEXT'''
{{out}}
<pre>
| |||