A-M baby

Task/Factorial/BASIC/factorial-1.bas

@@ -0,0 +1,8 @@
+FUNCTION factorial (n AS Integer) AS Integer
+    DIM f AS Integer, i AS Integer
+    f = 1
+    FOR  i = 2 TO n
+        f = f*i
+    NEXT i
+    factorial = f
+END FUNCTION

Task/Factorial/BASIC/factorial-2.bas

@@ -0,0 +1,7 @@
+FUNCTION factorial (n AS Integer) AS Integer
+    IF n < 2 THEN
+        factorial = 1
+    ELSE
+        factorial = n * factorial(n-1)
+    END IF
+END FUNCTION