Data update

Task/Factorial/S-BASIC/factorial-1.basic

@@ -0,0 +1,13 @@
+function factorial(n=real.double)=real.double
+    if n = 0 then n = 1 else n = n * factorial(n-1)
+end = n
+
+var i=integer
+print "Factorial Calculator"
+print "  n            n!"
+print "----------------------"
+for i=1 to 15
+    print using "##  #,###,###,###,###";i;factorial(i)
+next i
+	
+end

Task/Factorial/S-BASIC/factorial-2.basic

@@ -0,0 +1,7 @@
+function factorial(n=real.double)=real.double
+    var i, f = real.double
+    f = 1
+    for i = 1 to n
+        f = f * i
+    next i
+end = f