langs a-z

Task/Factorial/Sisal/factorial-1.sisal

@@ -0,0 +1,10 @@
+define main
+
+function main(x : integer returns integer)
+
+  for a in 1, x
+    returns
+      value of product a
+  end for
+
+end function

Task/Factorial/Sisal/factorial-2.sisal

@@ -0,0 +1,11 @@
+define main
+
+function main(x : integer returns integer)
+
+  if x = 0 then
+    1
+  else
+    x * main(x - 1)
+  end if
+
+end function