util.iterators: Add ripairs() (ipairs() in reverse) (thanks Maranda)
authorMatthew Wild <mwild1@gmail.com>
Fri, 12 Apr 2013 00:44:49 +0100
changeset 5468 2660407c3b73
parent 5466 e3b9dc9dd940
child 5469 fcdcc37ffec1
child 5470 a62c1d4ec4ab
util.iterators: Add ripairs() (ipairs() in reverse) (thanks Maranda)
util/iterators.lua
--- a/util/iterators.lua	Fri Apr 12 00:31:05 2013 +0100
+++ b/util/iterators.lua	Fri Apr 12 00:44:49 2013 +0100
@@ -122,6 +122,11 @@
 	--return reverse(head(n, reverse(f, s, var)));
 end
 
+local function _ripairs_iter(t, key) if key > 1 then return key-1, t[key-1]; end end
+function it.ripairs(t)
+	return _ripairs_iter, t, #t+1;
+end
+
 local function _range_iter(max, curr) if curr < max then return curr + 1; end end
 function it.range(x, y)
 	if not y then x, y = 1, x; end -- Default to 1..x if y not given