Middle three digits: Difference between revisions
→{{header|Perl 6}}: fixing
(→{{header|Perl 6}}: mark incorrect) |
(→{{header|Perl 6}}: fixing) |
||
Line 143:
=={{header|Perl 6}}==
<lang Perl6>multi middle-three($n where * %% 2) { "$n has an even number of digits" }▼
▲multi middle-three($n where * %% 2) { "$n has an even number of digits" }
multi middle-three($n where *.chars < 3) { "$n is too short" }
multi middle-three($n) {
"The three middle digits of $n are: " ~ .substr: (.chars - 3)/2, 3 given abs($n)
}
say middle-three($_) for
Line 157:
The three middle digits of 987654321 are: 654
The three middle digits of 10001 are: 000
The three middle digits of -10001 are: 000
The three middle digits of -123 are: 123
-100
100 has an even number of digits
The three middle digits of -12345 are: 234
1 is too short
2 has an even number of digits
-1 is
-10
2002 has an even number of digits
-2002
0 has an even number of digits</pre>
| |||