Add new test programs

Author: levno-710

tests/closures.lua

@@ -1,8 +1,12 @@
-local count = 0;
-for i = 0, 100, 1 do
-    local x = function()
-        i = i + 1;
-    end
-    x();
+local arr = {}
+for i = 1, 100 do
+	local x;
+	x = (x or 1) + i;
+	arr[i] = function()
+		return x;
+	end
 end
-print(count);
+
+for i, func in ipairs(arr) do
+	print(func())
+end

tests/fibonacci.lua

@@ -0,0 +1,10 @@
+-- Print the fibonacci sequence
+local function fibonacci(max)
+    local a, b = 0, 1
+    while a < max do
+        print(a)
+        a, b = b, a + b
+    end
+end
+
+fibonacci(1000)

tests/primes.lua

@@ -0,0 +1,18 @@
+-- print first n primes
+local function primes(n)
+    local function isPrime(n)
+        for i = 2, math.sqrt(n) do
+            if n % i == 0 then
+                return false
+            end
+        end
+        return true
+    end
+    for i = 2, n do
+        if isPrime(i) then
+            print(i)
+        end
+    end
+end
+
+primes(20)