RosettaCodeData/Task/Middle-three-digits/Wart/middle-three-digits.wart
2023-07-01 13:44:08 -04:00

7 lines
197 B
Text

def (mid3 n)
withs (digits (with outstring # itoa
(pr abs.n))
max len.digits
mid (int max/2))
if (and odd?.max (max >= 3))
(digits mid-1 mid+2)