A-M baby

Task/Factorial/Icon/factorial-1.icon

@@ -0,0 +1,5 @@
+procedure factorial(n)
+   n := integer(n) | runerr(101, n)
+   if n < 0 then fail
+   return if n = 0 then 1 else n*factorial(n-1)
+end

Task/Factorial/Icon/factorial-2.icon

@@ -0,0 +1,8 @@
+procedure factorial(n)			#: return n! (n factorial)
+   local i
+   n := integer(n) | runerr(101, n)
+   if n < 0 then fail
+   i := 1
+   every i *:= 1 to n
+   return i
+end