Added Minkowski distance

Yonaba · Yonaba · commit 891b752475ba · 2014-03-29T21:22:43.000Z
diff --git a/Minkowski_distance/Lua/Yonaba/minkowski_distance.lua b/Minkowski_distance/Lua/Yonaba/minkowski_distance.lua
@@ -0,0 +1,18 @@
+-- Minkowski Distance distance implementation
+-- See: http://en.wikipedia.org/wiki/Minkowski_distance
+
+-- Returns the Minkowski distance between two vectors
+-- p       : a first vector
+-- q       : a second vector
+-- n       : the distance order
+-- returns : the distance between p and q
+local function minkowski_distance(p, q, n)
+  assert(#p == #q, 'vectors must have the same length')
+  local s = 0
+  for i in ipairs(p) do
+    s = s + math.abs(p[i] - q[i]) ^ n
+  end
+  return s ^ (1 / n)
+end
+
+return minkowski_distance
