From: Doni Pracner <quinnuendo@gmail.com>
Date: Sun, 19 Jan 2014 21:37:12 +0000 (+0100)
Subject: new sample for ArraysTesting - multiple in recursion
X-Git-Tag: v0.1.4~17
X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=commitdiff_plain;h=353908644ff9b8a5620304b351384327a98d3c81;ds=inline

new sample for ArraysTesting - multiple in recursion
---

diff --git a/samples/ArraysTest.mj b/samples/ArraysTest.mj
new file mode 100644
index 0000000..e9ae981
--- /dev/null
+++ b/samples/ArraysTest.mj
@@ -0,0 +1,29 @@
+program ArraysTest
+{
+	void rek_arr(int i)
+	int[] a; int loc, loc2; {
+		if (i>1){ 
+				a = new int[i];
+				loc = 0;
+				loc2 = 1;
+				while (loc<i){
+					a[loc] = loc2;
+					loc++;
+					loc2 = loc2 * i;
+				}
+				rek_arr(i-1);
+				loc = 0;
+				while (loc<i){
+					print(a[loc],3);
+					loc++;
+				}
+				print(0,5);
+		}
+	}
+
+	void main() int max;
+	{
+		max = 5;
+		rek_arr(max);
+	}
+}
\ No newline at end of file