langs a-z

Task/Multifactorial/Objeck/multifactorial.objeck

@@ -0,0 +1,21 @@
+class Multifact {
+   function : MultiFact(n : Int, deg : Int) ~ Int {
+      result := n;
+      while (n >= deg + 1){
+         result *= (n - deg);
+         n -= deg;
+      };
+
+      return result;
+   }
+
+   function : Main(args : String[]) ~ Nil {
+      for (i := 1; i <= 5; i+=1;){
+         IO.Console->Print("Degree ")->Print(i)->Print(": ");
+         for (j := 1; j <= 10; j+=1;){
+            IO.Console->Print(' ')->Print(MultiFact(j, i));
+         };
+         IO.Console->PrintLine();
+      };
+   }
+}