langs a-z

Task/Factorial/Seed7/factorial-1.seed7

@@ -0,0 +1,10 @@
+const func bigInteger: factorial (in bigInteger: n) is func
+  result
+    var bigInteger: result is 1_;
+  local
+    var bigInteger: i is 0_;
+  begin
+    for i range 1_ to n do
+      result *:= i;
+    end for;
+  end func;

Task/Factorial/Seed7/factorial-2.seed7

@@ -0,0 +1,8 @@
+const func bigInteger: factorial (in bigInteger: n) is func
+  result
+    var bigInteger: result is 1_;
+  begin
+    if n > 1_ then
+      result := n * factorial(pred(n));
+    end if;
+  end func;