Initial data commit

Task/Multifactorial/ANSI-BASIC/multifactorial.basic

@@ -0,0 +1,20 @@
+100 FUNCTION multiFactorial (n, degree)
+110    IF  n < 2 THEN
+120       LET multiFactorial = 1
+130       EXIT FUNCTION
+140    END IF
+150    LET result = n
+160    FOR i = n - degree TO 2 STEP -degree
+170       LET result = result * i
+180    NEXT i
+190    LET multiFactorial = result
+200 END FUNCTION
+210
+220 FOR degree = 1 TO 5
+230    PRINT "Degree"; degree; " => ";
+240    FOR n = 1 TO 10
+250       PRINT multiFactorial(n, degree); " ";
+260    NEXT n
+270    PRINT
+280 NEXT degree
+290 END