יחידה:גימטריה - ווערסיע היסטאריע

תנא קמא: מספר לאותיות function should output ה'תשס"ו for 5766, not תתתתתתתתתתתתתתקסו

2025-07-15T19:27:31Z

מספר לאותיות function should output ה'תשס"ו for 5766, not תתתתתתתתתתתתתתקסו

→ עלטערע ווערסיע		רעוויזיע פון 19:27, 15 יולי 2025
שורה 60:		שורה 60:
	end		end

	local mispar_lotiot = function( num, geresh )		local mispar_lotiot = function(num, geresh)
	local res~~, toadd~~ = '', 0		local res = ''
	while ~~num~~ > 0 do
	if ~~num~~ >= 400 then toadd = 400		-- Handle thousands
	elseif ~~num~~ >= 100 then toadd = ~~num~~ - ~~num~~ % 100		local thousands = math.floor(num / 1000)
	elseif ~~num~~ >= 10 then toadd = ~~num~~ - ~~num~~ % 10		local remainder = num % 1000
	else ~~toadd = num end~~
	~~res = res .. tab[~~toadd]		if thousands > 0 then
	~~num~~ = ~~num - toadd~~		res = res .. tab[thousands] .. "'"
			end

			local n = remainder
			while n > 0 do
			local toadd = 0
			if n >= 400 then
			toadd = 400
			elseif n >= 100 then
			toadd = n - n % 100
			elseif n >= 10 then
			toadd = n - n % 10
			else
			toadd = n
	end		end
	res = mw.ustring.gsub( res, 'יה', 'טו' )		res = res .. tab[toadd]
	res = mw.ustring.gsub( res, 'יו', 'טז' )		n = n - toadd
	res = mw.ustring.gsub( res, '(.)(.)$', '%1' .. (geresh or '') .. '%2' )		end
	return res
			-- Special case for 15 and 16
			res = mw.ustring.gsub(res, 'יה', 'טו')
			res = mw.ustring.gsub(res, 'יו', 'טז')

			-- Add geresh or gershayim if needed
			if mw.ustring.len(res) > 1 then
			res = mw.ustring.gsub(res, '(.)(.)$', '%1' .. (geresh or '"') .. '%2')
			else
			res = res .. (geresh or "'")
			end

			return res
	end		end

תנא קמא: ב' איז 2, נישט 2000

2025-03-02T05:53:21Z

ב' איז 2, נישט 2000

→ עלטערע ווערסיע		רעוויזיע פון 05:53, 2 מערץ 2025
שורה 38:		שורה 38:
	-- Check for a thousands separator (apostrophe)		-- Check for a thousands separator (apostrophe)
	local thousands, rest = s:match("^(.-)'(.*)$")		local thousands, rest = s:match("^(.-)'(.*)$")
	if thousands then		if thousands and rest ~= "" then
	local total = 0		local total = 0
	local thousandsValue = 0		local thousandsValue = 0

תנא קמא: געמאכט אז ב'תקט"ז זאל ווערן 2516 אנשטאט 518, און אראפגענומען אומבאנוצטע פונקציעס

2025-03-02T05:48:32Z

געמאכט אז ב'תקט"ז זאל ווערן 2516 אנשטאט 518, און אראפגענומען אומבאנוצטע פונקציעס

@@ שורה 36: / שורה 36: @@
 local gimatria = function(s)
-         local sum = 0
+    -- Check for a thousands separator (apostrophe)
-         for l in mw.ustring.gmatch( s, "." ) do sum = sum + ( values[l] or endet[l] or 0) end
+    local thousands, rest = s:match("^(.-)'(.*)$")
-         return sum
+    if thousands then
 end
@@ שורה 74: / שורה 93: @@
      ['מספר לאותיות'] = function( frame )
          return mispar_lotiot( (tonumber(frame.args[1]) or 0),  ( frame.args[2] or '' ))
      end,
+}

ברוך: אימפארטירט פון די העברישע המכלול, זע ביישטייערער ליסטע

2022-11-30T11:09:15Z

אימפארטירט פון די העברישע המכלול, זע ביישטייערער ליסטע

נייער בלאַט

local values = {
['א'] = 1,
['ב'] = 2,
['ג'] = 3,
['ד'] = 4,
['ה'] = 5,
['ו'] = 6,
['ז'] = 7,
['ח'] = 8,
['ט'] = 9,
['י'] = 10,
['כ'] = 20,
['ל'] = 30,
['מ'] = 40,
['נ'] = 50,
['ס'] = 60,
['ע'] = 70,
['פ'] = 80,
['צ'] = 90,
['ק'] = 100,
['ר'] = 200,
['ש'] = 300,
['ת'] = 400,
}

local tab = {}
for k, v in pairs( values ) do tab[v] = k end

local endet = {
['ך'] = 20,
['ם'] = 40,
['ן'] = 50,
['ף'] = 80,
['ץ'] = 90,
}

local gimatria = function(s)
local sum = 0
for l in mw.ustring.gmatch( s, "." ) do sum = sum + ( values[l] or endet[l] or 0) end
return sum
end

local mispar_lotiot = function( num, geresh )
local res, toadd = '', 0
while num > 0 do
if num >= 400 then toadd = 400
elseif num >= 100 then toadd = num - num % 100
elseif num >= 10 then toadd = num - num % 10
else toadd = num end
res = res .. tab[toadd]
num = num - toadd
end
res = mw.ustring.gsub( res, 'יה', 'טו' )
res = mw.ustring.gsub( res, 'יו', 'טז' )
res = mw.ustring.gsub( res, '(.)(.)$', '%1' .. (geresh or '') .. '%2' )
return res
end

local haba = function(s)
return mispar_lotiot(gimatria(s)+1, '')
end

local haqodem = function(s)
return mispar_lotiot(gimatria(s)-1, '')
end

return {
gimatria = gimatria,
['גימטריה'] = function( frame )
return gimatria(frame.args[1] or '')
end,

mispar_lotiot = mispar_lotiot,
['מספר לאותיות'] = function( frame )
return mispar_lotiot( (tonumber(frame.args[1]) or 0), ( frame.args[2] or '' ))
end,

haba = haba,
['הבא'] = function( frame )
local args = frame.args;
if args[1] == nil then
local parent = frame:getParent();
args = parent.args;
end
return haba(args[1] or '')
end,

haqodem = haqodem,
['הקודם'] = function( frame )
local args = frame.args;
if args[1] == nil then
local parent = frame:getParent();
args = parent.args;
end
return haqodem(args[1] or '')
end,

['שנה'] = function( frame )
local args = frame.args;
if args[1] == nil then
local parent = frame:getParent();
args = parent.args;
end
return gimatria(args[1] or '')*1000 + gimatria(args[2] or '')
end,
}