Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Multifactorial/Perl-6/multifactorial.pl6
+++ b/Task/Multifactorial/Perl-6/multifactorial.pl6
@ -1,5 +1,4 @@
-sub mfact($n, :$degree = 1) { [*] $n, *-$degree ...^ * <= 0 }
-
 for 1 .. 5 -> $degree {
-    say "$degree: ", map &mfact.assuming(:$degree), 1 .. 10;
+    sub mfact($n) { [*] $n, *-$degree ...^ * <= 0 };
+    say "$degree: ", map &mfact, 1..10
 }