Middle three digits: Difference between revisions
Content added Content deleted
Catskill549 (talk | contribs) No edit summary |
Catskill549 (talk | contribs) |
||
| Line 73: | Line 73: | ||
0: ****number of digits must be >= 3 and odd****</pre> |
0: ****number of digits must be >= 3 and odd****</pre> |
||
=={{header|AWK}}== |
=={{header|AWK}}== |
||
<lang AWK> |
|||
# syntax: GAWK -f MIDDLE_THREE_DIGITS.AWK |
|||
BEGIN { |
|||
n = split("123 12345 1234567 987654321 10001 -10001 -123 -100 100 -12345 1 2 -1 -10 2002 -2002 0",arr," ") |
|||
for (i=1; i<=n; i++) { |
|||
x = arr[i] |
|||
if (x < 0) { |
|||
x *= -1 |
|||
} |
|||
if (length(x) < 3) { |
|||
printf("%10s: too few digits\n",arr[i]) |
|||
continue |
|||
} |
|||
if (length(x) % 2 == 0) { |
|||
printf("%10s: even number of digits\n",arr[i]) |
|||
continue |
|||
} |
|||
s = substr(x,int(length(x)/2),3) |
|||
printf("%10s: %s\n",arr[i],s) |
|||
} |
|||
exit(0) |
|||
} |
|||
</lang> |
|||
=={{header|C}}== |
=={{header|C}}== |
||