DOKUMEN123.COM

local Array = {} local array_constructor local function load_table_module() return require "Module:TableTools" end -- Copy table library so as not to...

local export = {} local Array = require "Module:array" local function collect(iter) local vals = Array() for val in iter do vals:insert(val) end...

[[template:image array]] local p = {} local function isnotempty(s) return s and s:match( '^%s*(.-)%s*$' ) ~= '' end local function renderArrayCell( img,...

Based on Module:array on English Wiktionary. See there for more information. Formerly used the submodule Module:Array/table, which was a copy of Module:table...

the {{Array}} template, written using Module:Params. It handles five functions: count, get, pos, math and sort. {{module:params/doc/examples/array|<Function>|<Array...

[[template:image array]] local p = {} local function isnotempty(s) return s and s:match( '^%s*(.-)%s*$' ) ~= '' end local function renderArrayCell( img,...

the {{Array}} template, written using Module:Params. It handles five functions: count, get, pos, math and sort. {{module:params/doc/examples/array|<Function>|<Array...

Implements {{image array}}...

as it is -- useful for determining whether a given table key is in the array part or the -- hash part of a table. ----------------------------------...

as it is -- useful for determining whether a given table key is in the array part or the -- hash part of a table. ----------------------------------...

the first array in place by appending all elements from the second array. TableTools.inArray(array, searchElement) TableTools.inArray(array, searchElement...

concatenation errors. end end -- Input parsing function make_array(parameter, array, frame) local array = {} local n = 1 for number in parameter:gmatch("%-...

length, output_format = output_format, display_unit = display_unit, array_names = array_names } end local function precision(value, decimals) local string...

true or false. includes(array, searchElement) includes(array, searchElement, fromIndex) array is the array to search. If type(array) ~= 'table' the module...

then if trackArrays[k] then local array = ret[k] local valExists for _, arrayVal in ipairs(array) do if arrayVal == v then ...

function newObject(array) local obj = {} -- new object obj.str = "" array[#array + 1] = obj -- array{object} obj.parent = array return obj ...

which is used to get a correctly formatted entry. -- Function checks if the array had a value added by checking the counter, -- and returns the relevant result...

function equalsArrayValue(t, value) -- Returns true if value equals a value in the array t. Otherwise -- returns false. for i, arrayValue in ipairs(t)...

which is used to get a correctly formatted entry. -- Function checks if the array had a value added by checking the counter, -- and returns the relevant result...

affixNums(affixArray, 'a') local bNums = tt.affixNums(affixArray, 'b') local cdNums = tt.affixNums(affixArray, 'c', 'd') local efNums = tt.affixNums(affixArray,...

----------------------------- local function randomizeArray(t, limit) -- Randomizes an array. It works by iterating through the list backwards, each...

function newObject(array) local obj = {} -- new object obj.str = "" array[#array + 1] = obj -- array{object} obj.parent = array return obj ...

JavaScript array.includes(searchElement) or -- array.includes(searchElement, fromIndex), except fromIndex is 1 indexed return function (array, searchElement...

when you want to find a key in some kind of sorted array, and you want to do it by checking as few array elements as possible. This could include situations...

) end local function mapArray(func, array, count) local result = {} for i = 1, count or #array do result[i] = func(array[i]) end return result end...

----------------------------- local function randomizeArray(t, limit) -- Randomizes an array. It works by iterating through the list backwards, each...

This is a version of Module:Sandbox/Erutuon/Temperature arrays that creates tables using the MediaWiki HTML library instead of wikitext. It generates the...

positions[occurrence] or -1 end end -- Perform mathematical operations on numeric array items function p.math(frame) local str = frame.args[2] or "" local...

function equalsArrayValue(t, value) -- Returns true if value equals a value in the array t. Otherwise -- returns false. for i, arrayValue in ipairs(t)...

local p = {} local Array = require 'Module:Array' local function pattern_escape(str) return (str:gsub('%p', '%%%1')) end function p...

formatMoreHtml(more) if #dates > 0 then local randomDates = randomModule.main('array', {t=dates, limit=limit}) for _, potdDate in ipairs(randomDates) do ...

module:stringify(Table) local result = "" local array = false for _, value in ipairs(Table) do array = true if type(value) == "string" then ...

>-------------------------------------- ]] local has_accept_as_written, is_set, in_array, remove_wiki_link, strip_apostrophe_markup; -- functions in Module:Citation/CS1/Utilities...

[i] = tonumber (data [i]) end max = math.max (max,#data) table.insert (array,data) table.insert (labels,label) end local function appendLine (line)...

ranges = { ... }, } return data ]] local Array = require "Module:array" local printed_ranges = Array() for _, range in ipairs(ranges) do local...

require 'Module:Language/scripts'.codepointToScript local function in_array(arr, val) for i, v in ipairs(arr) do if v == val then return true...

addNumbers (label,data) maxcols = math.max (maxcols,#data) table.insert (array,data) table.insert (labels,label) end local function addRow (label,data)...

"):rep(#'"12.1"' - (#age + 2)) end local Array = require "Module:array" local printed_ranges = Array() for _, range in ipairs(ranges) do local...

("[[#%s|%s]]"):format(anchor, link_text) end local Array_mt = { __index = table } local function Array() return setmetatable({}, Array_mt) end function p.make_TOC(frame)...

{tostring(ic)} end -- convert the array of strings to an array of numbers, -- adding any implied/missing numbers at the end of the array local r = 1 local thisrow...

Removes gaps from sparse arrays. This is used to process numbered arguments -- like author2 and ALT4. local compressSparseArray = require("Module:TableTools")...

return result end local function arrayTocsv(array) local result = '' for i = 1, #array do result = result..array[i]..', ' end return result end...

monarch}} template. Also, the functions fromArray and fromArgs can be called from another module like so: fromArray receives the full list of arguments of...

>-------------------------------------- ]] local has_accept_as_written, is_set, in_array, remove_wiki_link, strip_apostrophe_markup; -- functions in Module:Citation/CS1/Utilities...

different values for the same table key, the table value is converted to an array holding all of the different values. For example, for the tables {foo =...

The following parameters are available to the query function: test - an array of IP addresses and/or IP ranges to test for sensitivity. IP addresses and...

remove a value from an array ----------------------------------------------------------------------- local function removeFromArray(t, delete) local j =...

parameter can also be specified. local compressSparseArray = require('Module:TableTools').compressSparseArray local p = {} function p._main(args) local dataPlural...

sections[k] = v end end -- Compress the sections array. local function compressArray(t) local nums, ret = {}, {} for num in pairs(t) do ...

matter'] = true, ['Header'] = true, ['bureaucratship'] = true } -- Get an array of title objects for current RfXs. function p.titles() local content =...

test -- change comma list to array Countryarray = split_with_comma(frame.args[1]) -- put each array entry {as a table} through Module:ISO...

test -- change comma list to array Countryarray = split_with_comma(frame.args[1]) -- put each array entry {as a table} through Module:ISO...

space if sep == nil then sep = '%s' end -- define an array local t = {} -- split string based on sep for str in string...

{tostring(ic)} end -- convert the array of strings to an array of numbers, -- adding any implied/missing numbers at the end of the array local r = 1 local thisrow...

new(title):getContent()) local array = data["*"][1]["a"]["*"] local text = '' local list = {} for i = 1+offset, math.min(1000+offset, #array) do local title...

options[k] = v end end -- Compress the shortcut array, which may contain nils. local function compressArray(t) local nums, ret = {}, {} for k in pairs(t)...

parameter can also be specified. local compressSparseArray = require('Module:TableTools').compressSparseArray local p = {} function p._main(args) local dataPlural...

- returns an array containing the template's Notice objects. ArticleHistory:getCollapsibleNoticeObjects() - returns an array containing the template's...

cidr:gsub(pattern, '') return cidr end -- Takes an array of CIDR ranges and returns a new array with ranges -- appropriate for printing. local function...

rogramming/Functions function where(criteria, array) local result = {} for key, value in pairs(array) do if criteria(key, value) then ...

space if sep == nil then sep = '%s' end -- define an array local t = {} -- split string based on sep for str in string...

sections[k] = v end end -- Compress the sections array. local function compressArray(t) local nums, ret = {}, {} for num in pairs(t) do ...

randomiseArgs = { ['t'] = imageLines } local randomisedLines = randomModule.main('array', randomiseArgs ) local output, galleryContent if not mode then galleryContent...

end local array_keys = {} local table_keys = {} for key, value in ipairs( var ) do array_keys[key] = true ...

local args = getArgs(frame) local argArray = tableTools.compressSparseArray(args) return p._main(unpack(argArray)) end function p._main(...) -- Generate...

Removes gaps from sparse arrays. This is used to process numbered arguments -- like author2 and ALT4. local compressSparseArray = require("Module:TableTools")...

or "P" -- phraseID = e.g. "H201", "P231+P234" -- phrase text read from array tables in [[Module:GHS phrases/data]] -- -- Implements: [[Template:GHS phrases]]...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

default_pretty_indent } local isArray = { __tostring = function() return "JSON array" end } isArray.__index = isArray local isObject = { __tostring...

-------------------- function suite:assertArrayContainsString(expected, t) -- This only works on arrays that only contain strings. local sep = '|SEPARATOR|'...

options[k] = v end end -- Compress the shortcut array, which may contain nils. local function compressArray(t) local nums, ret = {}, {} for k in pairs(t)...

or "P" -- phraseID = e.g. "H201", "P231+P234" -- phrase text read from array tables in [[Module:GHS phrases/data]] -- -- Implements: [[Template:GHS phrases]]...

in the documentation of Module:Params. Oxford comma Oxford comma/doc array array/doc check for unknown parameters check for unknown parameters/doc constructed...

local args = getArgs(frame) local argArray = tableTools.compressSparseArray(args) return p._main(unpack(argArray)) end function p._main(...) -- Generate...

-- Reads and parses a word list and returns a table with words (simple array) -- words list can be: source, andwords-to-check, orwords-to-check -- step...

local imageDataArray, length if args[1] then imageDataArray = {} for i, id in ipairs(args) do imageDataArray[#imageDataArray + 1] = getSomeImageData(id...

remove a value from an array ----------------------------------------------------------------------- local function removeFromArray(t, delete) local j =...

default_pretty_indent } local isArray = { __tostring = function() return "JSON array" end } isArray.__index = isArray local isObject = { __tostring...

return false self:equals('includes("b","b")', includes("b","b"), false) -- array is not a table self:equals('includes({"a", "b", "c", "d"})', includes({"a"...

= { a = "a", an = "an", } local function findWord(text, array) for _, v in ipairs(array) do if mw.ustring.find(text, '^' .. v .. '$') then return...

or 'title'}); end if utilities.in_array (cfg.keywords_xlate[Title], {'off', 'none'}) and utilities.in_array (config.CitationClass, {'journal', 'citation'})...

function newObject(array) local obj = {} -- new object obj.str = "" array[#array + 1] = obj -- array{object} obj.parent = array return obj ...

getOpposeUsers(): gets an array containing the usernames that opposed the RfX. Functions similarly to getSupportUsers(). getNeutralUsers(): gets an array containing...

syntax: mShortcut._main(shortcuts, options, frame, cfg) shortcuts is an array of shortcut page names. (required) options is a table of options. The following...

v) end end return unpack(ret) end local function makeArgArray(...) -- Makes an array of arguments from a list of arguments that might include nils...

function newObject(array) local obj = {} -- new object obj.str = "" array[#array + 1] = obj -- array{object} obj.parent = array return obj ...

running for bureaucratship, Example3. currentRfx.rfxnames() This returns an array containing the page names of all current requests for adminship and bureaucratship...

palette, args.messages) local makeArray = _makeArray(format) local a, b, c = makeArray(args.a), makeArray(args.b), makeArray(args.c) local output = {} if...

text, tag = 'p' } end local function has_value(array, val) for index, value in ipairs(array) do if value == val then return...

function newObject(array) local obj = {} -- new object obj.str = "" array[#array + 1] = obj -- array{object} obj.parent = array return obj...

{tostring(ic)} end -- convert the array of strings to an array of numbers, -- adding any implied/missing numbers at the end of the array local r = 1 local thisrow...

function newObject(array) local obj = {} -- new object obj.str = "" array[#array + 1] = obj -- array{object} obj.parent = array return obj...

return result end local function orderedpairs(array, order) if not order then return pairs(array) end -- return iterator function local i = 0 ...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

local articles = mw.text.split(list, '#') -- Split list into an array of substrings (each containing an article). local chosen = articles[math...

above. This parameter is required. searchTerms is an array of search terms. Each item in the array corresponds to a numbered search term as outlined in...

squashed and not array[1]) then array[#array + 1] = value else refs[1] = ref end end value = table.concat(array, mt.sep[1]) else...

makes use of nested metatables to create a sparse, --- auto-initializing 2D array. This is clever but complex and slightly --- unconventional in order to...

Removes gaps from sparse arrays. This is used to process numbered arguments -- like author2 and ALT4. local compressSparseArray = require("Module:TableTools")...

local dutchWordsArray = {"van", "der", "de", "den"} local dutchWordsArray_idx = {} for i,v in ipairs(dutchWordsArray) do dutchWordsArray_idx[v] = i end...

end return sorted_arts end local function randomizeArray(t, limit) -- Randomizes an array. It works by iterating through the list backwards, each...

sections[1] = p, s end end -- Compress the sections array. local function compressArray(t) local nums, ret = {}, {} for num in pairs(t) do ...

{tostring(ic)} end -- convert the array of strings to an array of numbers, -- adding any implied/missing numbers at the end of the array local r = 1 local thisrow...

nominationPage is the nomination page name, as a string. historyPages is an array of page names to display (also strings). Both parameters are required, and...

mArguments = require('Module:Arguments') local compressArray = require('Module:TableTools').compressSparseArray local p = {} function p.otherPeople (frame) --Get...

{tostring(ic)} end -- convert the array of strings to an array of numbers, -- adding any implied/missing numbers at the end of the array local r = 1 local thisrow...

of title, or the current title if that is not specified. sections - an array of section names to link to, or a string to link to just one section name...

boxes. substCheck – whether to perform a subst check or not. classes – an array of classes to use with the message box. imageEmptyCell – whether to use...

args[key] end local compressSparseArray = require('Module:TableTools').compressSparseArray values = compressSparseArray(values) --- squeeze out gaps/nils...

concatenation errors. end end -- Input parsing function make_array(parameter, array, frame) local array = {} local n = 1 for number in parameter:gmatch("%-...

mArguments = require('Module:Arguments') local compressArray = require('Module:TableTools').compressSparseArray local p = {} function p.otherPeople (frame) --Get...

or 'title'}); end if utilities.in_array (cfg.keywords_xlate[Title], {'off', 'none'}) and utilities.in_array (config.CitationClass, {'journal', 'citation'})...

= require('Module:TableTools') local args = mTableTools.compressSparseArray(mArguments.getArgs(frame)) local title = mw.title.getCurrentTitle().prefixedText...

T I O N S >-------------------------------------- ]] local is_set, in_array, remove_wiki_link, strip_apostrophe_markup; -- functions in...

= "[[Category:" local suf = "]]" local fos = "free and open-source" -- array of categories with “free” in its name to be replaced with “free and open-source”...

title for the specified "YYYY-MM-DD" date. May be -- a single title, an array of multiple titles, or nil, if no title is known function p.title(date)...

sets length of image array to the number of icons local toc = "<div style='margin-bottom:4em;'>" .. require('Module:Image array')._imagearray(toc_args)...

sections[1] = p, s end end -- Compress the sections array. local function compressArray(t) local nums, ret = {}, {} for num in pairs(t) do ...

ranges = { ... }, } return data ]] local Array = require "Module:array" local printedRanges = Array() for _, range in ipairs(ranges) do local...

options[k] = v end end -- Compress the shortcut array, which may contain nils. local function compressArray(t) local nums, ret = {}, {} for k in pairs(t)...

orderStringtoNumber(array, val, num) if num > table.getn(array) then array[#array+1] = val else table.insert(array, num, val) end...

concat(result,"|") end local function getAllImageTable() -- Returns an array containing all image subpages (minus aliases) as loaded by mw.loadData....

formatPages(options, pages) -- Formats an array of pages using formatLink and the given options table, -- and returns it as an array. Nil values are not allowed....

v_annoLine = numericArray(v_annoLineString) else v_annoLine = stringArray(v_annoLineString) end v_annoLabel = stringArray(v_annoLabelString)...

= mw.loadData('Module:Navbox/configuration') local inArray = require("Module:TableTools").inArray local getArgs -- lazily initialized local hiding_templatestyles...

values end function e.array_without_first(array) local ret={} local count=#array for i=2,count do table.insert(ret, array[i]) end return ret...

function message(cfgKey, valArray) local msg = cfg[cfgKey] if valArray then return mw.message.newRawMessage(msg):params(valArray):plain() end return msg...

return error(string.format(level, ...), 2) end end local varargs_or_array_mt = { __index = { arr_func = function (self, arr, i, j) i = i or...

['limit'] = maxItems } local randomisedItems = randomModule.main('array', randomiseArgs ) output = table.concat(randomisedItems, '\n') end if...

require('Module:List').horizontal local compressSparseArray = require('Module:TableTools').compressSparseArray local p = {} --[[ Combine named-and-numbered arguments...

local lang = mw.language.getContentLanguage() -- Load the data array -- https://commons.wikimedia.org/wiki/Data:URAstats_Data.tab local...

local p = {} local compress_sparse_array = require('Module:TableTools').compressSparseArray local function arg_or_default(arg, default) if arg and mw...

local imageDataArray, length if args[1] then imageDataArray = {} for i, id in ipairs(args) do imageDataArray[#imageDataArray + 1] = getSomeImageData(id...

format many links. It formats an array of pages using the _formatLink function, and returns the result as an array. Options in the options table are...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

require('Module:Arguments').getArgs local function getArgNums(args) -- Returns an array containing the keys of all positional arguments -- that contain data...

values end function e.array_without_first(array) local ret={} local count=#array for i=2,count do table.insert(ret, array[i]) end return ret...

makeArgLowerCase(args, 'qpq', 'na') end -- If any of the keys in the keys array are in the table t, return true; -- otherwise, return false. local function...

notempty(array[2]) then array[3] = array[3] or {} for m = 1, #array[2] do local pair = split(array[2][m], {":"})...

always work. The cfg table -- values can be added as a string, or as an array of strings. local defaultKeys = { 'main', 'talk', 'other', 'subjectns'...

notempty(array[2]) then array[3] = array[3] or {} for m = 1, #array[2] do local pair = split(array[2][m], {":"})...

formatMoreHtml(more) if #dates > 0 then local randomDates = randomModule.main('array', {t=dates, limit=limit}) for _, potdDate in ipairs(randomDates) do ...

= require('Module:TableTools') local args = mTableTools.compressSparseArray(mArguments.getArgs(frame)) local title = mw.title.getCurrentTitle().prefixedText...

args = mTableTools.compressSparseArray(originalArgs) -- re-add non-numeric arguments omitted by compressSparseArray for _, name in pairs({'category'...

formatPages(options, pages) -- Formats an array of pages using formatLink and the given options table, -- and returns it as an array. Nil values are not allowed....

Whether needle is in haystack ]] local function in_array (needle, haystack) if needle == nil then return false; end for n, v...

T I O N S >-------------------------------------- ]] local is_set, in_array, remove_wiki_link, strip_apostrophe_markup; -- functions in...

error("Unexpected function type") end return e1 < e2 end local arrayToStringAux arrayToStringAux = function(arr, indent) if type(arr) ~= "table" then...

v) end end return unpack(ret) end local function makeArgArray(...) -- Makes an array of arguments from a list of arguments that might include nils...

sets length of image array to the number of icons toc = "<div style='margin-bottom:4em;'>" .. frame:expandTemplate{ title='Image_array', args = toc_args...

-------------------------- -- process datevec -- INPUT: -- * datevec - Array of {year,month,day,hour,minute,second, tzhour, tzmin} containing broken...

orderStringtoNumber(array, val, num) if num > table.getn(array) then array[#array+1] = val else table.insert(array, num, val) end...

args[key] end local compressSparseArray = require('Module:TableTools').compressSparseArray values = compressSparseArray(values) --- squeeze out gaps/nils...

from first parameter") end local luaCode = frame.args[2] or '' local arrayParams = {} -- do the thing with f(a, b, c). thanks GPT-4 local function...

return function(cfg) return function(cfgKey, valArray, expectType) --[[ -- Gets a message from the cfg table and formats it if appropriate. --...

content:gmatch("\n== *([^=]+) *==") local count = 0 local sect -- copy array to table so it can be iterated in reverse local secttable = {} for sect...

a member); = 0 (when not a member) -- multiply a binary array of joined status by an array of EV values on those dates -- start1_EVs = parent:expandTemplate{...

require('Module:Collapsible list').main local compressSparseArray = require('Module:TableTools').compressSparseArray local p = {} --[[ Combine named-and-numbered arguments...

in ipairs( wikitextArray ) do -- if k ~= 1 then -- if inWikiLink then -- toProcess = toProcess .. v -- if wikitextArray[ k ] == '|' then ...

the dot-point list local output = {} -- Iterate through the JSON array and add each page name to the dot-point list for _, pageName in ipairs(data)...

require('Module:List').horizontal local compressSparseArray = require('Module:TableTools').compressSparseArray local p = {} --[[ Combine named-and-numbered arguments...

end end end local function removeDuplicates(t) -- Return a copy of an array with duplicate values removed. local keys, ret = {}, {} for i, v in ipairs(t)...

tag in ipairs(tags) do local dataArray = tagIndex[tag] if dataArray then for i, data in ipairs(dataArray) do local obj = Article.new(data)...

from the object's config. val can be either an array -- of strings or a function returning an array of category objects. self.categories = val end...

' is not a valid date.') end local function randomizeArray(t) -- Iterate through the array backwards, each time swapping the entry "i" with a random...

linking to a recall election) local overrides = {} -- overrides should be an array of STATE="Override" for _, override in ipairs(stateoverrides) do local...

name of the template without "Template:" ALTERNATIVE_PARAMETER_NAMES is an array of custom parameters and the standard parameter of Module:Team bracket that...

optionsArray[#optionsArray+1] = country elseif galleryName == REGIONS_GALLERY_NAME then optionsArray[#optionsArray+1] = region else optionsArray[#optionsArray+1]...

args.category ) end return p._mainList(mTableTools.compressSparseArray(args)) end function p._mainList(args) local pages = mHatlist.andList(args...

loadData('Module:Navbox/configuration/sandbox') local inArray = require("Module:TableTools").inArray local getArgs -- lazily initialized local hiding_templatestyles...

========================== -- 3. REPRESENTATIVE TO DISTRICT -- Returns: Array of matching district strings (e.g., {"LA-4"}) to catch collisions --...

---- You could, of course, array the output and retroactively process it ... maybe even turn this into a sortable array of function tail calls??? (My...

args.selfref local text = args.text args = mTableTools.compressSparseArray(args) return p._distinguish(args, text, selfref) end function p._distinguish(args...

Whether needle is in haystack. ]] local function in_array (needle, haystack) if needle == nil then return false; end for n,v...

Whether needle is in haystack ]] local function in_array (needle, haystack) if needle == nil then return false; end for n, v...

or '') .. ']]') end end end return tostring(mainTag) end p.fromArray = function(args) local argElements = TableTools.numData(args, true) return...

{frameOnly = true}) local wart =require('Module:TableTools').compressSparseArray(args) return mw.text.listToText(wart, nil, nil) end function p.testPusty(ramka)...

tableToNiceJson(result) return '<pre>' .. jsonString .. '</pre>' end -- table/array to line-by-line JSON function p.tableToNiceJson(tbl) local jsonString...

Whether needle is in haystack. ]] local function in_array (needle, haystack) if needle == nil then return false; end for n,v...

return r end -- flip() JSONutil.Encoder.Array = function(apply, adapt, alert) -- Convert table to JSON array. -- Parameter: -- apply -- table...

v_annoLine = numericArray(v_annoLineString) else v_annoLine = stringArray(v_annoLineString) end v_annoLabel = stringArray(v_annoLabelString)...

makeArgLowerCase(args, 'qpq', 'na') end -- If any of the keys in the keys array are in the table t, return true; -- otherwise, return false. local function...

' is not a valid date.') end local function randomizeArray(t) -- Iterate through the array backwards, each time swapping the entry "i" with a random...

never left, you've been here the whole time" } m.main = function() local chosen = random.main("array", {["t"] = facts}) return chosen[1] end return m...

>-------------------------------------- ]] local add_prop_cat, is_set, in_array, set_message, substitute, wrap_style; -- imported functions from selected...

not valArray then return msg end return fillStringWithArgs(msg, valArray) end function fillStringWithArgs(text, valArray) if not valArray then ...

Whether needle is in haystack ]] local function in_array( needle, haystack ) if needle == nil then return false; end for n,v...

>-------------------------------------- ]] local has_accept_as_written, is_set, in_array, set_message, select_one, -- functions in Module:Citation/CS1/Utilities...

makeArgLowerCase(args, 'status', 'wtf') end -- If any of the keys in the keys array are in the table t, return true; -- otherwise, return false. local function...

and the boldness info present in the string argument -- it returns an array with these three values plus the color (for promoted pieces) -- this info...

parameter prefix for that notice type (e.g. "dyk"), and suffixes is -- an array of parameter suffixes in addition to "date" that is used by that -- notice...

always work. The cfg table -- values can be added as a string, or as an array of strings. local defaultKeys = { 'main', 'talk', 'other', 'subjectns'...

>-------------------------------------- ]] local add_prop_cat, is_set, in_array, set_message, substitute, wrap_style; -- imported functions from selected...

return sSep end end -- Check whether a single word is in a table (simple array of words) -- returns hitword or nil; iPosition is helper to keep outlist...

key-value pairs where the key is the canonical name and the value is an array table of aliases -- @return A table of localized names => canonical names...

the intended order. local function orderedpairs(array, order) if not order then return pairs(array) end -- return iterator function local i = 0 ...

-------------------------- -- process datevec -- INPUT: -- * datevec - Array of {year,month,day,hour,minute,second, tzhour, tzmin} containing broken...

and the boldness info present in the string argument -- it returns an array with these three values plus the color (for promoted pieces) -- this info...

rapid color: text color to contrast with background_color image: optional array containing the filename and size in pixels to display for that service article:...

stuff = "" ---- RETURN SOMETHING local t1 = {} ---- local array for table1 local t1_loaded = 0 ---- NO TABLE 1 is NOT LOADED! ...

notempty(array[2]) then for m=1,#array[2] do array[3] = {} array[2][m] = split(array[2][m],{":"}) array[3][m] = array[2][m][2] array[2][m]...

linking to a recall election) local overrides = {} -- overrides should be an array of STATE="Override" for _, override in ipairs(stateoverrides) do local...

local p = {} local dots = ... local out_mt = { -- Append to array by calling it __call = function (t, v) t[#t+1] = v end, __tostring = function(t)...

long_names end function p.print_data(data) local output = require "Module:array"() local function writef(...) output:insert(string.format(...)) end...

the intended order. local function orderedpairs(array, order) if not order then return pairs(array) end -- return iterator function local i = 0 ...

partiesPositions = getpartiesPositions(partiesData, year) -- 2. Sort the new array by positions local partiesPositions = sortPartiesPositions(partiesPositions)...

} local sortedLines = nonRandom and galleryLines or randomModule.main('array', randomiseArgs) for i = 1, #sortedLines do -- insert a switcher-label...

>-------------------------------------- ]] local has_accept_as_written, is_set, in_array, set_message, select_one, -- functions in Module:Citation/CS1/Utilities...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) ]==] --Washington local WA = require("Module:Road data/strings/USA")...

parameter_lower = result_parameter:lower() --I thought about using an array and a for-loop, but the logic is --sufficiently complicated (there is...

concat(result,"|") end local function getAllImageTable() -- Returns an array containing all image subpages (minus aliases) as loaded by mw.loadData....

style="line-height: inherit; margin: 0">%s</li>', data ) end -- Returns an array containing the keys of all positional arguments -- that contain data (i...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

options[key] = true end end end -- Process page list into an array local pages = {} if pageList then for page in pageList:gmatch("[^|]+")...

local p = {} local metatable = { -- Append to array by calling it __call = function (t, v) t[#t+1] = v end, __tostring = function(t) return table.concat(t)...

functions for use within Module:Road data modules. See the code for function usages. Exported functions are: addAll, arrayToString, convertLengths and err....

contains "singles" (a -- code point-to-data map) and "ranges" (an array containing arrays that contain -- the low and high code points of a range and the...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

haystack (taken from Module:Citation/CS1/Utilities) ]] local function in_array( needle, haystack ) if needle == nil then return false end for n, v...

size - default size for all task force images. Maps to TF_SIZE. list - array of each task force with required settings. notes - contains details of all...

args.category ) end args = mTableTools.compressSparseArray(args) --Assignment by removal here makes for convenient concatenation later...

{} -- May contain nils if bad input infos = {} -- boolean array names = {} -- string array args = frame:getParent().args for i = 1, 10 do if args['name'...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

args.selfref local text = args.text args = mTableTools.compressSparseArray(args) return p._distinguish(args, text, selfref) end function p._distinguish(args...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

stuff = "" ---- RETURN SOMETHING local t1 = {} ---- local array for table1 local t1_loaded = 0 ---- NO TABLE 1 is NOT LOADED! ...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

randomiseArgs = { ['t'] = imageLines } local randomisedLines = randomModule.main('array', randomiseArgs ) local output, galleryContent if not mode then galleryContent...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

0 -- array for nepali calendar local bs={} --declear array to hold bikram sambat calendar and fill the array bs[1]={2000, 30...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) ]==] -- Northern Mariana Islands local MP = require("Module:Road...

namespace] or options.defaultPageType args = mTableTools.compressSparseArray(args) local about = table.remove(args, 1) --Assemble everything together...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

from the object's config. val can be either an array -- of strings or a function returning an array of category objects. self.categories = val end...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

options[key] = true end end end -- Process page list into an array local pages = {} if pageList then for page in pageList:gmatch("[^|]+")...

= args.merge } end -- Remove any gaps in the array we made. local function compressSparseArray(t) local ret, nums = {}, {} for num, data in pairs(t)...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

function convertFenToArgs( fen ) -- converts FEN notation to 64 entry array of positions, offset by 2 local res = { ' ', ' ' } -- Loop over rows,...

galleryContents = galleryContents .. galleryRow .. "\n" optionsArray[#optionsArray+1] = popupOptions end return tostring( mw.html.create( 'div' )...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

pages[1] = disambig break end end end pages = mTableTools.compressSparseArray(pages) return mOtheruses._otheruses(pages, options) end return p...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

{} -- May contain nils if bad input infos = {} -- boolean array names = {} -- string array args = frame:getParent().args for i = 1, 10 do if args['name'...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

etc. from -- appearing in the wrong order. The prefixTable should be an array containing -- tables, each of which has two possible fields, a "prefix"...

base then else base={};novar=yes end local output="''Contents of the array '''''" .. tostring(dispvar) .. "''':" if novar then output = output ...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Whether needle is in haystack ]] local function in_array (needle, haystack) if needle == nil then return false; end for n, v...

etc. from -- appearing in the wrong order. The prefixTable should be an array containing -- tables, each of which has two possible fields, a "prefix"...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

args.nompage local historyPages = require('Module:TableTools').compressSparseArray(args) return p._main(nominationPage, historyPages) end return p...

L A R A T I O N S >-------------------------------------- ]] local in_array, is_set, is_wikilink, make_sep_list, select_one, set_message, substitute...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

(IDs, dates, numbers) are not affected. It's an array of operations applied in fixed order. Order in array doesn't matter — operations are always applied...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

dependency. for _, v in ipairs(require ('Module:TableTools').compressSparseArray(args)) do local num = index[v] if num then show[num] = true end ...

(IDs, dates, numbers) are not affected. It's an array of operations applied in fixed order. Order in array doesn't matter — operations are always applied...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

pre-combines display parameters into page arguments. -- Also compresses sparse arrays, as a desirable side-effect. function p.preprocessDisplays (args, prefixes)...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) ]==] -- Antigua and Barbuda (ATG) local ATG = {} local util...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

the same. return yesno(arg, arg) end -- Append multiple values to an array local function appendMultiple(target, source) for _, value in ipairs(source)...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

local sortedTitles = nonRandom and titlesSequence or randomModule.main('array', {t=titlesSequence, limit=limit}) for _i, title in ipairs(sortedTitles)...

---- You could, of course, array the output and retroactively process it ... maybe even turn this into a sortable array of function tail calls??? (My...

style="line-height: inherit; margin: 0">%s</li>', data ) end -- Returns an array containing the keys of all positional arguments -- that contain data (i...

v) end end return unpack(ret) end local function makeArgArray(...) -- Makes an array of arguments from a list of arguments that might include nils...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

page)) or mw.title.getCurrentTitle() if require('Module:TableTools').inArray(page.categories, string.gsub( args[1], '^[Cc]ategory:', '' )) then if...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

for films in this language } function valuesToKeys(array) local result = {} for _, v in pairs(array) do result[v] = true end return result end local...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

'Plainlist', args = {'\n' .. table.concat(TableTools.compressSparseArray({ eachElement.nickname and ('* ' .. tostring(mw.html.create('small'):wikitext("<i>"...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

page)) or mw.title.getCurrentTitle() if require('Module:TableTools').inArray(page.categories, string.gsub( args[1], '^[Cc]ategory:', '' )) then if...

Define the order that key fragments are tested in. This is done with an -- array of tables containing the value to be tested, along with its -- position...

= args.merge } end -- Remove any gaps in the array we made. local function compressSparseArray(t) local ret, nums = {}, {} for num, data in pairs(t)...

or 'title'}); end if utilities.in_array (cfg.keywords_xlate[Title], {'off', 'none'}) and utilities.in_array (config.CitationClass, {'journal', 'citation'})...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

haystack (taken from Module:Citation/CS1/Utilities) ]] local function in_array( needle, haystack ) if needle == nil then return false end for n, v...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

lIndex, vIndex, tIndex end -- Function to find the index of a value in an array local function indexof(arr, val) for i, v in ipairs(arr) do ...

month of February. -- -- The function uses the following logic: -- 1. An array `daysInMonth` is defined to hold the typical number of days for each month...

cells to merge --3) Capture the cells of the unspanned table in two 2D arrays (format, content) -- ) Transpose the cells -- ) Create the new table --...

pre-combines display parameters into page arguments. -- Also compresses sparse arrays, as a desirable side-effect. function p.preprocessDisplays (args, prefixes)...

Extracts general module information and description. -- @param lines table Array of lines from the module -- @param start_index number Starting line index...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

parameter prefix for that notice type (e.g. "dyk"), and suffixes is -- an array of parameter suffixes in addition to "date" that is used by that -- notice...

dependency. for _, v in ipairs(require ('Module:TableTools').compressSparseArray(args)) do local num = index[v] if num then show[num] = true end ...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

break end else origArgs = frame end -- Process the args to make an array of portal names that can be used with ipairs. We need to use ipairs because...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

teamInFirst = self.teams[self.teamInFirst] end -- Compress the teams array, which at the moment may contain nils self.teams = (function (t) local...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

output,lr,lrv,tv,bw1,bw2,bw3,bw4,bd,lrB,bw2B local a={} -- throwaway array to make value matrix more apparent -- quadrant 1 is upper left, quadrant...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

return all the args (first choice) or parent.args (second choice) in an array. local parent, pargs, args local param={} parent = frame['parent']...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

end function convertFenToArgs( fen ) -- converts FEN notation to an array of positions, offset by 2 local res = {' ', ' '} -- Loop over rows...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

local lang = mw.language.getContentLanguage() -- Load the data array -- https://commons.wikimedia.org/wiki/Data:URAstats_Data.tab local...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

-- operate on the table (which is to say, the normalised parameters -- array), key access will be by way of the paramIndex metatable. setmetatable(paramsNorm...

the subpage is "Special report". title: The article's title. authors: Array listing authors of the article, as read by Wegweiser and SignpostTagger...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

end end end local location = table.concat(tableTools.compressSparseArray(p.reverseTable(subdivision_names)), ', ') location = p.cleanupLoc (location)...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

if(reviewscores) then -- Find reviews that qualify for printing and insert into array. local reviewsToPrint = {} for i,review in pairs(reviewscores) do...

iterate over the current1, new1, current2, new2, ... arguments -- we get an array of tables sorted by number and compressed so that -- it can be traversed...

}) return mbox end function Navigator:getArchiveNums() -- Returns an array of the archive numbers to format. local noLinks = tonumber(self.args.links)...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

{string} cfgKey the key which the message belongs to -- @param {valArray} valArray the array which contains these messages -- @param {expectType} the type...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

0 -- array for nepali calendar local bs={} --declear array to hold bikram sambat calendar and fill the array bs[1]={2000, 30...

args[prefixUpper .. num .. suffixUpper], }, 4 -- The 4 is the length of the array; this is needed as the args may be nil end local function makeWikilink(page...

end function p._main(args) local modules = mTableTools.compressSparseArray(args) local box = p.renderBox(modules) local trackingCategories = p...

--------------------- function suite:assertArrayContainsString(expected, t) -- This only works on arrays that only contain strings. local sep = '|SEPARATOR|'...

t) local new = {} local t = require('Module:TableTools').compressSparseArray(t) for i,v in ipairs(t) do table.insert(new, frame:expandTemplate{ ...

-- The keys in the tables are the canonical tag name, and the values are arrays -- of aliases to be converted to the canonical tag name. -- -- ["canonicaltag"]...

args.selfref local text = args.text args = mTableTools.compressSparseArray(args) return p._distinguish(args, text, selfref) end function p._distinguish(args...

tag in ipairs(tags) do local dataArray = tagIndex[tag] if dataArray then for i, data in ipairs(dataArray) do local obj = Article.new(data)...

'4', '5', '6', '7', '8', '9', '10', 'J', 'Q', 'K', 'A' } -- sequence (array) of rank strings local suits = { '♥', '♦', '♠', '♣' } -- same for suits...

navbarModule.navbar{name, mini = '1'} end local function randomizeArray(t) -- Iterate through the array backwards, each time swapping the entry "i" with a random...

args.nompage local historyPages = require('Module:TableTools').compressSparseArray(args) return p._main(nominationPage, historyPages) end return p...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

text.listToText() function the module uses. If in doubt, use compressSparseArray() from Module:TableTools. This may be empty or nil. options A table containing...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

delink({[1] = name, wikilinks = 'target'}) == name then -- the below array items are lowercase and intentionally missing the training 's' local names...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

numericKey ) then -- templateArgs[1] will always be the year (lua arrays start at 1) -- templateArgs[2] should be the first other template param...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

}) return mbox end function Navigator:getArchiveNums() -- Returns an array of the archive numbers to format. local noLinks = tonumber(self.args.links)...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

------------------------------------ local function message(cfgKey, valArray, expectType) --[[ -- Gets a message from the cfg table and formats it...

if(reviewscores) then -- Find reviews that qualify for printing and insert into array. local reviewsToPrint = {} for i,review in pairs(reviewscores) do...

end end local rows = {} for i, v in ipairs(TableTools.compressSparseArray(n)) do if i == 1 then rows[1] = { string.format('*[[:%s]]%s', v, sourcenote)...

require(suite:module()).replyto(makeFrameWithParentArgs(args)) end -- Returns an array of n unique strings. local function makeNUniqueStrings(n) local ret = {}...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

['limit'] = maxItems } local randomisedItems = randomModule.main('array', randomiseArgs ) output = table.concat(randomisedItems, '\n') end if...

parameter_lower = result_parameter:lower() --I thought about using an array and a for-loop, but the logic is --sufficiently complicated (there is...

delink({[1] = name, wikilinks = 'target'}) == name then -- the below array items are lowercase and intentionally missing the training 's' local names...

true ) } ); end if utilities.in_array (cfg.keywords_xlate[Title], {'off', 'none'}) and utilities.in_array (config.CitationClass, {'journal', 'citation'})...

units2, era2, lang, passNr) -- process inputs and save date in state array local state = {} state.conj = string.lower(conj or '') state.adj1...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

defined as how it is titled on Wikisource The value for each book is an array of other names it might be known by. Some of these are standard abbreviations...

Define the order that key fragments are tested in. This is done with an -- array of tables containing the value to be tested, along with its -- position...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

return flags end -- Helper function to convert template arguments into an array of arguments fit for get() local function parseArgs(frame) local args =...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

or 'title'}); end if utilities.in_array (cfg.keywords_xlate[Title], {'off', 'none'}) and utilities.in_array (config.CitationClass, {'journal', 'citation'})...

end return t end local function parseRankedVotes(args) -- Makes an array of arguments from a list of arguments that might include nils. local ret...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

_PingRFCUsers(args) local pageSource = "" --check the size of the arguments array --if there's more than one, the second one --should be the name of the...

end function convertFenToArgs( fen ) -- converts FEN notation to an array of positions, offset by 2 local res = {' ', ' '} -- Loop over rows...

Module:Citation/CS1/Date_validation date_name_xlate local is_set, in_array, substitute, error_comment, set_error, select_one, -- functions in...

from appearing in the -- wrong order. The prefixTable should be an array containing tables, each of which has -- two possible fields, a "prefix"...

pairs(tGHSdata) do table.insert(t2, s) end t2 = tTools.compressSparseArray(t2) table.sort(t2) -- required -- STRUCT TABLE t3 (ordered, has data...

namespace] or options.defaultPageType args = mTableTools.compressSparseArray(args) local about = table.remove(args, 1) local wde = mw.wikibase.getEntity()...

the same. return yesno(arg, arg) end -- Append multiple values to an array local function appendMultiple(target, source) for _, value in ipairs(source)...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

defined as how it is titled on Wikisource The value for each book is an array of other names it might be known by. Some of these are standard abbreviations...

piping (e.g. {{see also|1{{!}}2|l1=One}} → {'1|One'}) and compresses sparse arrays if a parameter is skipped or left empty. Example: local mLabelledList =...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

require('Module:Gadgets') local p = {} local function arr_contains(array, val) for _, value in ipairs(array) do if value == val then return true...

end end socks = TableTools.compressSparseArray(socks) ips = TableTools.compressSparseArray(ips) for i=1,#socks do outText = outText .....

nil end end local function parseVoteBoundaries(section) -- Returns an array containing the raw wikitext of RfX votes in a given section. section =...

Module:Citation/CS1/Date_validation date_name_xlate local is_set, in_array, substitute, error_comment, set_error, select_one, -- functions in...

listItems[num][prefix] = v end end end listItems = TableTools.compressSparseArray(listItems) table.sort(listItems, function (a, b) local ak = a.key...

contains "singles" (a -- code point-to-data map) and "ranges" (an array containing arrays that contain -- the low and high code points of a range and the...

pairs(argDict) do dict[k] = { ['v'] = v } end local order = {} -- tableArray local function len(this) return #dict end local function newindex(this...

= args.merge } end -- Remove any gaps in the array we made. local function compressSparseArray(t) local ret, nums = {}, {} for num, data in pairs(t)...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

etc. from -- appearing in the wrong order. The prefixTable should be an array containing -- tables, each of which has two possible fields, a "prefix"...

args[prefixUpper .. num .. suffixUpper], }, 4 -- The 4 is the length of the array; this is needed as the args may be nil end local function makeWikilink(page...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

t) local new = {} local t = require('Module:TableTools').compressSparseArray(t) for i,v in ipairs(t) do table.insert(new, frame:expandTemplate{ ...

true ) } ); end if utilities.in_array (cfg.keywords_xlate[Title], {'off', 'none'}) and utilities.in_array (config.CitationClass, {'journal', 'citation'})...

'Template:Category main article'}) local pages = mTableTools.compressSparseArray(args) if #pages == 0 and args[1] then pages = { args[1] } end local...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

end end end local location = table.concat(tableTools.compressSparseArray(p.reverseTable(subdivision_names)), ', ') location = p.cleanupLoc (location)...

end local sortedLines = nonRandom and galleryLines or randomModule.main('array', randomiseArgs) for i = 1, #sortedLines do -- insert a switcher-label...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

-- custom shape if stringArray(symbolsShape) and #stringArray(symbolsShape) > 1 then symbolsShape = stringArray(symbolsShape) end local...

var; end end end -- Whether needle is in haystack function inArray( needle, haystack ) if needle == nil then return false; ...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) ]==] --Maine local ME = require("Module:Road data/strings/USA")...

-- custom shape if stringArray(symbolsShape) and #stringArray(symbolsShape) > 1 then symbolsShape = stringArray(symbolsShape) end local...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

and remove {{icon|...}} (case/spacing tolerant), returning cleaned text + array of icons local function extractIcons(w) w = w or "" local icons...

}) return mbox end function Navigator:getArchiveNums() -- Returns an array of the archive numbers to format. local noLinks = tonumber(self.args.links)...

etc. from -- appearing in the wrong order. The prefixTable should be an array containing -- tables, each of which has two possible fields, a "prefix"...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to iNDlude...

end return inMono(sGenCat) .. '=' .. tCat[1] end -- Formats table ( array ) using concat -- replace space by nbsp ( keep untrimmed sp ) -- in monospace...

true ) } ); end if utilities.in_array (cfg.keywords_xlate[Title], {'off', 'none'}) and utilities.in_array (config.CitationClass, {'journal', 'citation'})...

= args.merge } end -- Remove any gaps in the array we made. local function compressSparseArray(t) local ret, nums = {}, {} for num, data in pairs(t)...

return locns[subType] end end -- end transition code local function trackedArray(arr) local origArr = arr arr = {} local mt = { __index = function(t...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

args[prefixUpper .. num .. suffixUpper], }, 4 -- The 4 is the length of the array; this is needed as the args may be nil end local function extractKey(arg)...

Read article content and fill associative arrays in sequence <sections_t>. The associative arrays hold section name, its starting location within...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

etc. with args.filename etc. origNumArgs = mTableTools.compressSparseArray(origNumArgs) for i, t in ipairs(origNumArgs) do -- Check if the files...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

end function p._main(args) local modules = mTableTools.compressSparseArray(args) local box = p.renderBox(modules) local trackingCategories = p...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

a default case and then exceptions, if necessary. Station format is an array, similar to a switch with cases. Take Module:Adjacent stations/Incheon Subway...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

or 'title'}); end if utilities.in_array (cfg.keywords_xlate[Title], {'off', 'none'}) and utilities.in_array (config.CitationClass, {'journal', 'citation'})...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

true ) } ); end if utilities.in_array (cfg.keywords_xlate[Title], {'off', 'none'}) and utilities.in_array (config.CitationClass, {'journal', 'citation'})...

args={formatted_caption}}) end end -- Extract seasons info and place into a 3D array local SeasonEntries = {} local SeasonCount = 0 for k,v in pairs(args)...

Whether needle is in haystack ]] local function in_array (needle, haystack) if needle == nil then return false; end for n, v...

title end end local function union(t1, t2) -- Returns the union of two arrays. local vals = {} for i, v in ipairs(t1) do vals[v] = true end for...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

-- operate on the table (which is to say, the normalised parameters -- array), key access will be by way of the paramIndex metatable. setmetatable(paramsNorm...

T I O N S >-------------------------------------- ]] local is_set, in_array; -- imported functions from selected Module:Citation/CS1/Utilities...

--Single item, no array needed if #content==1 then return content[1] end --Multiple items get placed in a FeatureCollection local contentArray = '[\n' .....

display} pages[k] = page end end pages = mTableTools.compressSparseArray(pages) local options = { selfref = args.selfref } local frame = mw...

isnotempty(args['style']) then root:cssText(args['style']) end -- build arrays with the column styles and classes if isnotempty(args['leftright']) then...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

function convertFenToArgs( fen ) -- converts FEN notation to 64 entry array of positions, offset by 2 local res = { ' ', ' ' } -- Loop over rows,...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

"Auditorium", ['right terminus'] = "Chunhua Avenue", }, ["terminus with array"] = { ["title"] = "line with only left terminus", ['left terminus']...

Debug console: local util = require("Module:Road data/util") print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include...

------------------------- -- ipairsAtOffset -- This is an iterator for arrays. It can be used like ipairs, but with -- specified i as first index to iterate...

local codes if mTableTools then codes = mTableTools.compressSparseArray(args) else codes = {} for i, code in ipairs(args) do codes[i] =...

"''Family'' = " .. surname end end -- Loop through spain letters from array. for _, i in pairs(lang.spain_letters) do if string.match(fullname, i)...

tables with absent years and absent year ranges. -- Parameter data is an array of strings from template parameters, or -- numbers or strings from built-in...