feat(loveutils): add basic table functions

CHANGELOG.md

@@ -23,6 +23,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 - **world:** Add a way to automatically load hitbox from a file
 
+- **utils:** Add basic table functions
+
 ### Changed
 
 - **world2D:** Use a list for bodies (hitboxes, etc) and one other for actors

gamecore/utils/init.lua

@@ -27,5 +27,6 @@ local cwd  = (...):gsub('%.init$', '') .. "."
 return {
   math        = require(cwd .. "math"),
   graphics    = require(cwd .. "graphics"),
-  filesystem  = require(cwd .. "filesystem")
+  filesystem  = require(cwd .. "filesystem"),
+  table       = require(cwd .. "table")
 }

gamecore/utils/table.lua

@@ -0,0 +1,52 @@
+-- loveutils.table : simple functions for table manipulation and computation.
+-- TODO: could be a part of loveutils.math ?
+
+--[[
+  Copyright © 2019 Kazhnuz
+
+  Permission is hereby granted, free of charge, to any person obtaining a copy of
+  this software and associated documentation files (the "Software"), to deal in
+  the Software without restriction, including without limitation the rights to
+  use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+  the Software, and to permit persons to whom the Software is furnished to do so,
+  subject to the following conditions:
+
+  The above copyright notice and this permission notice shall be included in all
+  copies or substantial portions of the Software.
+
+  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+  FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+  COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+  IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+  CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+]]
+
+local Table = {}
+
+function Table.reduce(list, fn)
+  local acc
+  for k, v in ipairs(list) do
+      if 1 == k then
+          acc = v
+      else
+          acc = fn(acc, v)
+      end
+  end
+  return acc
+end
+
+function Table.sum(table)
+  local sum = 0
+  for _, v in kpairs(table) do
+    sum = sum + v
+  end
+
+  return v
+end
+
+function Table.average(table)
+  return Table.sum(table) / #table
+end
+
+return Table