Initial data commit

Task/Multifactorial/Haskell/multifactorial-1.hs

@@ -0,0 +1,15 @@
+mulfac :: (Num a, Enum a) => a -> [a]
+mulfac k = 1 : s
+  where
+    s = [1 .. k] <> zipWith (*) s [k + 1 ..]
+
+-- For single n:
+
+mulfac1 :: (Num a, Enum a) => a -> a -> a
+mulfac1 k n = product [n, n - k .. 1]
+
+main :: IO ()
+main =
+  mapM_
+    (print . take 10 . tail . mulfac)
+    [1 .. 5]

Task/Multifactorial/Haskell/multifactorial-2.hs

@@ -0,0 +1,14 @@
+procedure main(A)
+    l := integer(A[1]) | 10
+    every writeRow(n := !l, [: mf(!10,n) :])
+end
+
+procedure writeRow(n, r)
+    writes(right(n,3),": ")
+    every writes(right(!r,8)|"\n")
+end
+
+procedure mf(n, m)
+    if n <= 0 then return 1
+    return n*mf(n-m, m)
+end