Data update

Task/Factorial/Insitux/factorial.insitux

@@ -0,0 +1,3 @@
+(function factorial n
+  (return-when (< n 2) 1)
+  (... * (range 1 (inc n))))

Task/Factorial/LDPL/factorial.ldpl

@@ -0,0 +1,22 @@
+data:
+n is number
+
+procedure:
+sub factorial
+    parameters:
+        n is number
+        result is number
+    local data:
+        i is number
+        m is number
+    procedure:
+        store 1 in result
+        in m solve n + 1
+        for i from 1 to m step 1 do
+            multiply result by i in result
+        repeat
+end sub
+create statement "get factorial of $ in $" executing factorial
+
+get factorial of 5 in n
+display n lf

Task/Factorial/UNIX-Shell/factorial.sh

@@ -1,10 +0,0 @@
-factorial()
-{
-  if [ $1 -le 1 ]
-  then
-    echo 1
-  else
-    result=$(factorial $[$1-1])
-    echo $((result*$1))
-  fi
-}