Middle three digits: Difference between revisions

Content added Content deleted

Inline

@@ Line 145: / Line 145: @@
 <lang Perl6>
-multi middle-three($n where * < 0) { say "$n is a negative number" }
+multi middle-three($n where * < 0) { "$n is a negative number" }
-multi middle-three($n where * %% 2) { say "$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) { say "$n is too short" }
+multi middle-three($n where * < 3) { "$n is too short" }
-multi middle-three($n) { say "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 }
-middle-three($_) for
+say middle-three($_) for
 <123 12345 1234567 987654321 10001 -10001 -123 -100 100 -12345 1 2 -1 -10 2002 -2002 0>;</lang>
 {{out}}