RosettaCodeData/Task/Middle-three-digits/Wart/middle-three-digits.wart
2016-12-05 23:44:36 +01: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)