Middle three digits: Difference between revisions
Content deleted Content added
m →{{header|Perl 6}}: remove linefeeds |
→{{header|Perl 6}}: fixing test for too short |
||
Line 145: | Line 145: | ||
<lang Perl6>multi middle-three($n where * < 0) { "$n is a negative number" } |
<lang Perl6>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 * %% 2) { "$n has an even number of digits" } |
||
multi middle-three($n where * < 3) { "$n is too short" } |
multi middle-three($n where *.chars < 3) { "$n is too short" } |
||
multi middle-three($n) { "The three middle digits of $n are: ", $n.substr: ($n.chars - 3)/2, 3 } |
multi middle-three($n) { "The three middle digits of $n are: ", $n.substr: ($n.chars - 3)/2, 3 } |
||