Middle three digits: Difference between revisions

m
Line 2,420:
=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
procfunc$ midThreeDigits num . result$ .
trueNumber$ = abs num
if (len trueNumber$ < 3) or (len trueNumber$ mod 2 = 0)
resultr$ = "error"
else
resultr$ = substr trueNumber$ ((len trueNumber$ - 3) / 2 + 1) 3
.
return r$
.
numbers[] = [ 123 12345 1234567 987654321 10001 -10001 -123 -100 100 -12345 1 2 -1 -10 2002 -2002 0 ]
for i in numbers[]
print midThreeDigits i result$
print result$
.
</syntaxhighlight>
1,983

edits