tuple.lua

require'classlib'

class.Tuple()

functionTuple:__init(...) -- construct with initial elements
self.elem= {...}
self.n=#self.elem
end

functionTuple:__tostring() -- string representation
localfunctionascii(e)
returntype(e) =='string' andstring.format('%q', e) ortostring(e)
end
locals=''
fori, vinipairs(self.elem) do
s=#s==0andascii(v) ors..', ' ..ascii(v)
end
return'(' ..s..')'
end

localfunctioncheckrange(i, max)
assert(i>=1andi<=max, 
'Index must be >= 1 and <= ' ..max)
end

localfunctioncheckindex(i, max)
assert(type(i) =='number', 'Index must be a number')
checkrange(i, max)
end

functionTuple:push(i, v) -- push an element anywhere
ifv==nilthen
v=i
i=self.n+1-- by default push at the end
end
ifv==nilthenreturnend-- pushing nil has no effect
checkindex(i, self.n+1) -- allow appending
table.insert(self.elem, i, v) -- insert it
self.n=self.n+1-- count it
end

functionTuple:pop(i) -- pop an element anywhere
ifi==nilthen
i=self.n-- by default pop at the end
ifi==0thenreturnnilend
end
locale=self[i]
self[i] =nil-- remove it
returne-- return it
end

functionTuple:clear() -- empty tuple
self.elem= {}
self.n=0
end

functionTuple:size() -- tuple size
returnself.n
end

functionTuple:__get(i) -- read an element
iftype(i) ~='number' thenreturnnilend
checkrange(i, self.n+1) -- allow reading one past the end
returnself.elem[i] -- read it
end

functionTuple:__set(i, v) -- assign an element
iftype(i) ~='number' thenreturnfalseend
checkrange(i, self.n+1) -- allow assigning one past the end
ifv==nilthen
ifi<=self.nthen-- if removing, count it
table.remove(self.elem, i)
self.n=self.n-1
end
returntrue
end
ifi==self.n+1then-- if appending, count it
self.n=i
end
self.elem[i] =v-- assign it
returntrue
end
require'classlib'

class.Tuple()

functionTuple:__init(...) -- construct with initial elements
self.elem= {...}
self.n=#self.elem
end

functionTuple:__tostring() -- string representation
localfunctionascii(e)
returntype(e) =='string' andstring.format('%q', e) ortostring(e)
end
locals=''
fori, vinipairs(self.elem) do
s=#s==0andascii(v) ors..', ' ..ascii(v)
end
return'(' ..s..')'
end

localfunctioncheckrange(i, max)
assert(i>=1andi<=max, 
'Index must be >= 1 and <= ' ..max)
end

localfunctioncheckindex(i, max)
assert(type(i) =='number', 'Index must be a number')
checkrange(i, max)
end

functionTuple:push(i, v) -- push an element anywhere
ifv==nilthen
v=i
i=self.n+1-- by default push at the end
end
ifv==nilthenreturnend-- pushing nil has no effect
checkindex(i, self.n+1) -- allow appending
table.insert(self.elem, i, v) -- insert it
self.n=self.n+1-- count it
end

functionTuple:pop(i) -- pop an element anywhere
ifi==nilthen
i=self.n-- by default pop at the end
ifi==0thenreturnnilend
end
locale=self[i]
self[i] =nil-- remove it
returne-- return it
end

functionTuple:clear() -- empty tuple
self.elem= {}
self.n=0
end

functionTuple:size() -- tuple size
returnself.n
end

functionTuple:__get(i) -- read an element
iftype(i) ~='number' thenreturnnilend
checkrange(i, self.n+1) -- allow reading one past the end
returnself.elem[i] -- read it
end

functionTuple:__set(i, v) -- assign an element
iftype(i) ~='number' thenreturnfalseend
checkrange(i, self.n+1) -- allow assigning one past the end
ifv==nilthen
ifi<=self.nthen-- if removing, count it
table.remove(self.elem, i)
self.n=self.n-1
end
returntrue
end
ifi==self.n+1then-- if appending, count it
self.n=i
end
self.elem[i] =v-- assign it
returntrue
end
require'classlib'

class.Tuple()

functionTuple:__init(...) -- construct with initial elements
self.elem= {...}
self.n=#self.elem
end

functionTuple:__tostring() -- string representation
localfunctionascii(e)
returntype(e) =='string' andstring.format('%q', e) ortostring(e)
end
locals=''
fori, vinipairs(self.elem) do
s=#s==0andascii(v) ors..', ' ..ascii(v)
end
return'(' ..s..')'
end

localfunctioncheckrange(i, max)
assert(i>=1andi<=max, 
'Index must be >= 1 and <= ' ..max)
end

localfunctioncheckindex(i, max)
assert(type(i) =='number', 'Index must be a number')
checkrange(i, max)
end

functionTuple:push(i, v) -- push an element anywhere
ifv==nilthen
v=i
i=self.n+1-- by default push at the end
end
ifv==nilthenreturnend-- pushing nil has no effect
checkindex(i, self.n+1) -- allow appending
table.insert(self.elem, i, v) -- insert it
self.n=self.n+1-- count it
end

functionTuple:pop(i) -- pop an element anywhere
ifi==nilthen
i=self.n-- by default pop at the end
ifi==0thenreturnnilend
end
locale=self[i]
self[i] =nil-- remove it
returne-- return it
end

functionTuple:clear() -- empty tuple
self.elem= {}
self.n=0
end

functionTuple:size() -- tuple size
returnself.n
end

functionTuple:__get(i) -- read an element
iftype(i) ~='number' thenreturnnilend
checkrange(i, self.n+1) -- allow reading one past the end
returnself.elem[i] -- read it
end

functionTuple:__set(i, v) -- assign an element
iftype(i) ~='number' thenreturnfalseend
checkrange(i, self.n+1) -- allow assigning one past the end
ifv==nilthen
ifi<=self.nthen-- if removing, count it
table.remove(self.elem, i)
self.n=self.n-1
end
returntrue
end
ifi==self.n+1then-- if appending, count it
self.n=i
end
self.elem[i] =v-- assign it
returntrue
end
require'classlib'

class.Tuple()

functionTuple:__init(...) -- construct with initial elements
self.elem= {...}
self.n=#self.elem
end

functionTuple:__tostring() -- string representation
localfunctionascii(e)
returntype(e) =='string' andstring.format('%q', e) ortostring(e)
end
locals=''
fori, vinipairs(self.elem) do
s=#s==0andascii(v) ors..', ' ..ascii(v)
end
return'(' ..s..')'
end

localfunctioncheckrange(i, max)
assert(i>=1andi<=max, 
'Index must be >= 1 and <= ' ..max)
end

localfunctioncheckindex(i, max)
assert(type(i) =='number', 'Index must be a number')
checkrange(i, max)
end

functionTuple:push(i, v) -- push an element anywhere
ifv==nilthen
v=i
i=self.n+1-- by default push at the end
end
ifv==nilthenreturnend-- pushing nil has no effect
checkindex(i, self.n+1) -- allow appending
table.insert(self.elem, i, v) -- insert it
self.n=self.n+1-- count it
end

functionTuple:pop(i) -- pop an element anywhere
ifi==nilthen
i=self.n-- by default pop at the end
ifi==0thenreturnnilend
end
locale=self[i]
self[i] =nil-- remove it
returne-- return it
end

functionTuple:clear() -- empty tuple
self.elem= {}
self.n=0
end

functionTuple:size() -- tuple size
returnself.n
end

functionTuple:__get(i) -- read an element
iftype(i) ~='number' thenreturnnilend
checkrange(i, self.n+1) -- allow reading one past the end
returnself.elem[i] -- read it
end

functionTuple:__set(i, v) -- assign an element
iftype(i) ~='number' thenreturnfalseend
checkrange(i, self.n+1) -- allow assigning one past the end
ifv==nilthen
ifi<=self.nthen-- if removing, count it
table.remove(self.elem, i)
self.n=self.n-1
end
returntrue
end
ifi==self.n+1then-- if appending, count it
self.n=i
end
self.elem[i] =v-- assign it
returntrue
end
require'classlib'

class.Tuple()

functionTuple:__init(...) -- construct with initial elements
self.elem= {...}
self.n=#self.elem
end

functionTuple:__tostring() -- string representation
localfunctionascii(e)
returntype(e) =='string' andstring.format('%q', e) ortostring(e)
end
locals=''
fori, vinipairs(self.elem) do
s=#s==0andascii(v) ors..', ' ..ascii(v)
end
return'(' ..s..')'
end

localfunctioncheckrange(i, max)
assert(i>=1andi<=max, 
'Index must be >= 1 and <= ' ..max)
end

localfunctioncheckindex(i, max)
assert(type(i) =='number', 'Index must be a number')
checkrange(i, max)
end

functionTuple:push(i, v) -- push an element anywhere
ifv==nilthen
v=i
i=self.n+1-- by default push at the end
end
ifv==nilthenreturnend-- pushing nil has no effect
checkindex(i, self.n+1) -- allow appending
table.insert(self.elem, i, v) -- insert it
self.n=self.n+1-- count it
end

functionTuple:pop(i) -- pop an element anywhere
ifi==nilthen
i=self.n-- by default pop at the end
ifi==0thenreturnnilend
end
locale=self[i]
self[i] =nil-- remove it
returne-- return it
end

functionTuple:clear() -- empty tuple
self.elem= {}
self.n=0
end

functionTuple:size() -- tuple size
returnself.n
end

functionTuple:__get(i) -- read an element
iftype(i) ~='number' thenreturnnilend
checkrange(i, self.n+1) -- allow reading one past the end
returnself.elem[i] -- read it
end

functionTuple:__set(i, v) -- assign an element
iftype(i) ~='number' thenreturnfalseend
checkrange(i, self.n+1) -- allow assigning one past the end
ifv==nilthen
ifi<=self.nthen-- if removing, count it
table.remove(self.elem, i)
self.n=self.n-1
end
returntrue
end
ifi==self.n+1then-- if appending, count it
self.n=i
end
self.elem[i] =v-- assign it
returntrue
end
require'classlib'

class.Tuple()

functionTuple:__init(...) -- construct with initial elements
self.elem= {...}
self.n=#self.elem
end

functionTuple:__tostring() -- string representation
localfunctionascii(e)
returntype(e) =='string' andstring.format('%q', e) ortostring(e)
end
locals=''
fori, vinipairs(self.elem) do
s=#s==0andascii(v) ors..', ' ..ascii(v)
end
return'(' ..s..')'
end

localfunctioncheckrange(i, max)
assert(i>=1andi<=max, 
'Index must be >= 1 and <= ' ..max)
end

localfunctioncheckindex(i, max)
assert(type(i) =='number', 'Index must be a number')
checkrange(i, max)
end

functionTuple:push(i, v) -- push an element anywhere
ifv==nilthen
v=i
i=self.n+1-- by default push at the end
end
ifv==nilthenreturnend-- pushing nil has no effect
checkindex(i, self.n+1) -- allow appending
table.insert(self.elem, i, v) -- insert it
self.n=self.n+1-- count it
end

functionTuple:pop(i) -- pop an element anywhere
ifi==nilthen
i=self.n-- by default pop at the end
ifi==0thenreturnnilend
end
locale=self[i]
self[i] =nil-- remove it
returne-- return it
end

functionTuple:clear() -- empty tuple
self.elem= {}
self.n=0
end

functionTuple:size() -- tuple size
returnself.n
end

functionTuple:__get(i) -- read an element
iftype(i) ~='number' thenreturnnilend
checkrange(i, self.n+1) -- allow reading one past the end
returnself.elem[i] -- read it
end

functionTuple:__set(i, v) -- assign an element
iftype(i) ~='number' thenreturnfalseend
checkrange(i, self.n+1) -- allow assigning one past the end
ifv==nilthen
ifi<=self.nthen-- if removing, count it
table.remove(self.elem, i)
self.n=self.n-1
end
returntrue
end
ifi==self.n+1then-- if appending, count it
self.n=i
end
self.elem[i] =v-- assign it
returntrue
end
require'classlib'

class.Tuple()

functionTuple:__init(...) -- construct with initial elements
self.elem= {...}
self.n=#self.elem
end

functionTuple:__tostring() -- string representation
localfunctionascii(e)
returntype(e) =='string' andstring.format('%q', e) ortostring(e)
end
locals=''
fori, vinipairs(self.elem) do
s=#s==0andascii(v) ors..', ' ..ascii(v)
end
return'(' ..s..')'
end

localfunctioncheckrange(i, max)
assert(i>=1andi<=max, 
'Index must be >= 1 and <= ' ..max)
end

localfunctioncheckindex(i, max)
assert(type(i) =='number', 'Index must be a number')
checkrange(i, max)
end

functionTuple:push(i, v) -- push an element anywhere
ifv==nilthen
v=i
i=self.n+1-- by default push at the end
end
ifv==nilthenreturnend-- pushing nil has no effect
checkindex(i, self.n+1) -- allow appending
table.insert(self.elem, i, v) -- insert it
self.n=self.n+1-- count it
end

functionTuple:pop(i) -- pop an element anywhere
ifi==nilthen
i=self.n-- by default pop at the end
ifi==0thenreturnnilend
end
locale=self[i]
self[i] =nil-- remove it
returne-- return it
end

functionTuple:clear() -- empty tuple
self.elem= {}
self.n=0
end

functionTuple:size() -- tuple size
returnself.n
end

functionTuple:__get(i) -- read an element
iftype(i) ~='number' thenreturnnilend
checkrange(i, self.n+1) -- allow reading one past the end
returnself.elem[i] -- read it
end

functionTuple:__set(i, v) -- assign an element
iftype(i) ~='number' thenreturnfalseend
checkrange(i, self.n+1) -- allow assigning one past the end
ifv==nilthen
ifi<=self.nthen-- if removing, count it
table.remove(self.elem, i)
self.n=self.n-1
end
returntrue
end
ifi==self.n+1then-- if appending, count it
self.n=i
end
self.elem[i] =v-- assign it
returntrue
end
require'classlib'

class.Tuple()

functionTuple:__init(...) -- construct with initial elements
self.elem= {...}
self.n=#self.elem
end

functionTuple:__tostring() -- string representation
localfunctionascii(e)
returntype(e) =='string' andstring.format('%q', e) ortostring(e)
end
locals=''
fori, vinipairs(self.elem) do
s=#s==0andascii(v) ors..', ' ..ascii(v)
end
return'(' ..s..')'
end

localfunctioncheckrange(i, max)
assert(i>=1andi<=max, 
'Index must be >= 1 and <= ' ..max)
end

localfunctioncheckindex(i, max)
assert(type(i) =='number', 'Index must be a number')
checkrange(i, max)
end

functionTuple:push(i, v) -- push an element anywhere
ifv==nilthen
v=i
i=self.n+1-- by default push at the end
end
ifv==nilthenreturnend-- pushing nil has no effect
checkindex(i, self.n+1) -- allow appending
table.insert(self.elem, i, v) -- insert it
self.n=self.n+1-- count it
end

functionTuple:pop(i) -- pop an element anywhere
ifi==nilthen
i=self.n-- by default pop at the end
ifi==0thenreturnnilend
end
locale=self[i]
self[i] =nil-- remove it
returne-- return it
end

functionTuple:clear() -- empty tuple
self.elem= {}
self.n=0
end

functionTuple:size() -- tuple size
returnself.n
end

functionTuple:__get(i) -- read an element
iftype(i) ~='number' thenreturnnilend
checkrange(i, self.n+1) -- allow reading one past the end
returnself.elem[i] -- read it
end

functionTuple:__set(i, v) -- assign an element
iftype(i) ~='number' thenreturnfalseend
checkrange(i, self.n+1) -- allow assigning one past the end
ifv==nilthen
ifi<=self.nthen-- if removing, count it
table.remove(self.elem, i)
self.n=self.n-1
end
returntrue
end
ifi==self.n+1then-- if appending, count it
self.n=i
end
self.elem[i] =v-- assign it
returntrue
end