gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
move samples to 'alpha-mj' subfolder
[mjc2wsl.git] / samples / ArraysTest.mj
diff --git a/samples/ArraysTest.mj b/samples/ArraysTest.mj
deleted file mode 100644 (file)
index e9ae981..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-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
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner