Middle three digits: Difference between revisions
Content deleted Content added
m →{{header|Perl 6}}: factoring 'say' |
m →{{header|Perl 6}}: remove linefeeds |
||
Line 143:
=={{header|Perl 6}}==
<lang Perl6>multi middle-three($n where * < 0) { "$n is a negative number" }▼
▲multi middle-three($n where * < 0) { "$n is a negative number" }
multi middle-three($n where * %% 2) { "$n has an even number of digits" }
multi middle-three($n where * < 3) { "$n is too short" }
| |||