A-M baby

Task/Multifactorial/Erlang/multifactorial-1.erl

@@ -0,0 +1,12 @@
+-module(multifac).
+-compile(export_all).
+
+multifac(N,D) ->
+    lists:foldl(fun (X,P) -> X * P end, 1, lists:seq(N,1,-D)).
+
+main() ->
+    Ds = lists:seq(1,5),
+    Ns = lists:seq(1,10),
+    lists:foreach(fun (D) ->
+                          io:format("Degree ~b: ~p~n",[D, [ multifac(N,D) || N <- Ns]])
+                  end, Ds).

Task/Multifactorial/Erlang/multifactorial-2.erl

@@ -0,0 +1,7 @@
+5> multifac:main().
+Degree 1: [1,2,6,24,120,720,5040,40320,362880,3628800]
+Degree 2: [1,2,3,8,15,48,105,384,945,3840]
+Degree 3: [1,2,3,4,10,18,28,80,162,280]
+Degree 4: [1,2,3,4,5,12,21,32,45,120]
+Degree 5: [1,2,3,4,5,6,14,24,36,50]
+ok