Data update

Task/Factorial/Arturo/factorial-1.arturo

@@ -1,4 +1,7 @@
-factorial: $[n][
-	if? n>0 [n * factorial n-1]
-	else [1]
+factorial: function [n][
+	switch n > 0 -> n * factorial n-1
+				 -> 1
 ]
+
+loop 1..19 [x]->
+	print ["Factorial of" x "=" factorial x]

Task/Factorial/Arturo/factorial-2.arturo

@@ -1,3 +1,7 @@
 factorial: $[n][
     fold.seed:1 1..n [a,b][a*b]
 ]
+
+loop 1..19 [x][
+	print ["Factorial of" x "=" factorial x]
+]