Data update

Task/Factorial/Acornsoft-Lisp/factorial-1.lisp

@@ -0,0 +1,3 @@
+(defun factorial (n)
+  (cond ((zerop n) 1)
+        (t (times n (factorial (sub1 n))))))

Task/Factorial/Acornsoft-Lisp/factorial-2.lisp

@@ -0,0 +1,5 @@
+(defun factorial (n (result . 1))
+  (loop
+    (until (zerop n) result)
+    (setq result (times n result))
+    (setq n (sub1 n))))

Task/Factorial/EasyLang/factorial.easy

@@ -1,8 +1,8 @@
-proc factorial n . r .
-  r = 1
-  for i = 2 to n
-    r *= i
-  .
+func factorial n .
+   r = 1
+   for i = 2 to n
+      r *= i
+   .
+   return r
 .
-call factorial 7 r
-print r
+print factorial 7