Initial commit

.gitignore

@@ -1 +0,0 @@
-tests/results.*

README.md

@@ -0,0 +1,3 @@
+# lua-array
+
+Generalized array implementation on top of Lua tables

luau/src.luau

@@ -1,89 +0,0 @@
---!strict
---!optimize 2
-
-local Array = {}
-Array.__index = Array
-
-type constructor<T> = { inner: {T} }
-export type Array<T> = typeof(setmetatable({} :: constructor<T>, Array))
-
-type FnCall<T, R = T> = (T, number, Array<T>) -> R
-
-function Array.new<T>(from: {T}?): Array<T>
-	return setmetatable({ inner = from or {} }, Array)
-end
-
-function Array:table<T>(): {T}
-	return self.inner
-end
-
-function Array:pop<T>(): T?
-	return table.remove(self.inner, #self.inner)
-end
-
-function Array:concat(sep: string?, i: number?, j: number?): string
-	return table.concat(self.inner, sep, i, j)
-end
-
-function Array:clone<T>(): Array<T>
-	return Array.new(table.clone(self.inner))
-end
-
-function Array:len(): number
-	return #self.inner
-end
-
-function Array:get<T, I>(index: I): T?
-	return self.inner[index]
-end
-
-function Array:push<T>(...: T): ()
-	for _, val: T in {...} do
-		table.insert(self.inner, val)
-	end
-end
-
-function Array:foreach<T>(callbackFn: FnCall<T, nil>): Array<T>
-	for ind: number, val: T in self.inner do
-		callbackFn(val, ind, self)
-	end
-	return self
-end
-
-function Array:map<T, M>(callbackFn: FnCall<T, M>): Array<M>
-	local n: {M} = {}
-	for ind: number, val: T in self.inner do
-		table.insert(n, callbackFn(val, ind, self))
-	end
-	return Array.new(n)
-end
-
-function Array:filter<T>(callbackFn: FnCall<T, boolean>): Array<T>
-	local n: {T} = {}
-	for ind: number, val: T in self.inner do
-		if callbackFn(val, ind, self) then
-			table.insert(n, val)
-		end
-	end
-	return Array.new(n)
-end
-
-function Array:binary_search<T>(x: T): T?
-	local size = #self.inner
-	if size == 0 then return nil end
-	local base = 1
-
-	while base < size do
-		size -= bit32.rshift(base + size, 1)
-	end
-
-	return nil
-end
-
-function Array:debug_display<T>(): string
-	return self:map(function(val: T, ind: number)
-		return ind .. ": " .. tostring(val) .. (ind ~= self:len() and ", " or "")
-	end):concat()
-end
-
-return Array

tests/luau/map_filter.luau

@@ -1,21 +0,0 @@
---!strict
-
-local Array = require("../../luau/src")
-
-local numbers = Array.new()
-for i = 1, 100 do
-	numbers:push(i)
-end
-print(numbers:debug_display(), "\nlength=", numbers:len())
-
-local start = os.clock()
-
-numbers:map(function(n: number)
-	return tostring(n)
-end):foreach(function(e) print("(:map)squared=", e) end)
-
-numbers:filter(function(n: number)
-	return bit32.band(n, 1) ~= 0
-end):foreach(function(e) print("(:filter)odd=", e) end)
-
-print(os.clock()-start)

tests/start.sh

@@ -1,11 +0,0 @@
-#!/bin/bash
-
-touch results.txt
-
-test () {
-	echo "-- [Test: $1] --" > results.txt
-	luau $2 >> results.txt
-	echo "-- [Test: $1] --" >> results.txt
-}
-
-test "map_filter" "./luau/map_filter.luau"