Just another update

Task/Multifactorial/Clojure/multifactorial.clj

@@ -1,5 +1,5 @@
 (defn !! [m n]
-  (apply * (take-while pos? (iterate #(- % m) n))))
+  (->> (iterate #(- % m) n) (take-while pos?) (apply *)))
 
 (doseq [m (range 1 6)]
   (prn m (map #(!! m %) (range 1 11))))

Task/Multifactorial/Java/multifactorial.java

@@ -0,0 +1,19 @@
+public class MultiFact {
+	private static long multiFact(long n, int deg){
+		long ans = 1;
+		for(long i = n; i > 0; i -= deg){
+			ans *= i;
+		}
+		return ans;
+	}
+	
+	public static void main(String[] args){
+		for(int deg = 1; deg <= 5; deg++){
+			System.out.print("degree " + deg + ":");
+			for(long n = 1; n <= 10; n++){
+				System.out.print(" " + multiFact(n, deg));
+			}
+			System.out.println();
+		}
+	}
+}

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
 }