Data update

Task/Factorial/Langur/factorial-1.langur

@@ -1,2 +1,2 @@
-val .factorial = fn(.n) fold(fn{*}, 2 .. .n)
-writeln .factorial(7)
+val factorial = fn n: fold(fn{*}, 2 .. n)
+writeln factorial(7)

Task/Factorial/Langur/factorial-2.langur

@@ -1,2 +1,2 @@
-val .factorial = fn(.x) if(.x < 2: 1; .x * self(.x - 1))
-writeln .factorial(7)
+val factorial = fn x: if(x < 2: 1; x * fn((x - 1)))
+writeln factorial(7)

Task/Factorial/Langur/factorial-3.langur

@@ -1,9 +1,9 @@
-val .factorial = fn(.i) {
-    var .answer = 1
-    for .x in 2 .. .i {
-       .answer *= .x
+val factorial = fn(i) {
+    var answer = 1
+    for x in 2 .. i {
+       answer *= x
     }
-    .answer
+    answer
 }
 
-writeln .factorial(7)
+writeln factorial(7)

Task/Factorial/Langur/factorial-4.langur

@@ -1,2 +1,2 @@
-val .factorial = fn(.n) for[=1] .x in .n { _for *= .x }
-writeln .factorial(7)
+val factorial = fn n: for[=1] x in n { _for *= x }
+writeln factorial(7)

Task/Factorial/PascalABC.NET/factorial.pas

@@ -0,0 +1,19 @@
+function FactIter(n: integer): BigInteger;
+begin
+  Result := 1;
+  for var i:=2 to n do
+    Result *= i;
+end;
+
+function FactRec(n: integer): BigInteger;
+begin
+  if n = 0 then
+    Result := 1
+  else Result := n * FactRec(n - 1);
+end;
+
+
+begin
+  for var i:=1 to 20 do
+    Println(i,FactRec(i),FactIter(i));
+end.

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

Task/Factorial/Uiua/factorial.uiua

@@ -0,0 +1 @@
+Factorial = /×+1⇡