Middle three digits: Difference between revisions
Content added Content deleted
m (→{{header|Perl 6}}: factoring 'say') |
m (→{{header|Perl 6}}: remove linefeeds) |
||
Line 143: | Line 143: | ||
=={{header|Perl 6}}== |
=={{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 * < 3) { "$n is too short" } |
multi middle-three($n where * < 3) { "$n is too short" } |