Reverse-Whereigo, Lua

Language: Layout:

function buildMinAndDecimalMin(val)
  val = round(val * 60, 3)
  local rtn = string.format("%02d", math.floor(val))
  rtn = rtn .. "." .. string.sub(string.format("%3f", val - math.floor(val)), 3, 5)
  return rtn
end

function round(num, idp)
  local mult = 10 ^ (idp or 0)
  return math.floor(num * mult + 0.5) / mult
end

AAAAAA = 005135; -- 1. Zahl
BBBBBB = 319537; -- 2. Zahl
CCCCCC = 024267; -- 3. Zahl ... danach 'Run it' klicken oder F8 drükcken

varC = CCCCCC;
varB = BBBBBB;
varA = AAAAAA;

if (varA % 1000 - varA % 100) / 100 == 1 then
    varLatVorz = 1
    varLongVorz = 1
  elseif (varA % 1000 - varA % 100) / 100 == 2 then
    varLatVorz = -1
    varLongVorz = 1
  elseif (varA % 1000 - varA % 100) / 100 == 3 then
    varLatVorz = 1
    varLongVorz = -1
  elseif (varA % 1000 - varA % 100) / 100 == 4 then
    varLatVorz = -1
    varLongVorz = -1
  end

if ((varC % 100000 - varC % 10000) / 10000 + (varC % 100 - varC % 10) / 10) % 2 == 0 then
    varLatKOMP = tonumber(varLatVorz * ((varA % 10000 - varA % 1000) / 1000 * 10 + (varB % 100 - varB % 10) / 10 + (varB % 100000 - varB % 10000) / 10000 * 0.1 + (varC % 1000 - varC % 100) / 100 * 0.01 + (varA % 1000000 - varA % 100000) / 100000 * 0.001 + (varC % 100 - varC % 10) / 10 * 1.0E-4 + varA % 10 * 1.0E-5))
  elseif ((varC % 100000 - varC % 10000) / 10000 + (varC % 100 - varC % 10) / 10) % 2 ~= 0 then
    varLatKOMP = tonumber(varLatVorz * ((varB % 1000000 - varB % 100000) / 100000 * 10 + varA % 10 + (varA % 10000 - varA % 1000) / 1000 * 0.1 + (varC % 1000000 - varC % 100000) / 100000 * 0.01 + (varC % 1000 - varC % 100) / 100 * 0.001 + (varC % 100 - varC % 10) / 10 * 1.0E-4 + (varA % 1000000 - varA % 100000) / 100000 * 1.0E-5))
  end
  if ((varC % 100000 - varC % 10000) / 10000 + (varC % 100 - varC % 10) / 10) % 2 == 0 then
    varLongKOMP = tonumber(varLongVorz * ((varA % 100000 - varA % 10000) / 10000 * 100 + (varC % 1000000 - varC % 100000) / 100000 * 10 + varC % 10 + (varB % 1000 - varB % 100) / 100 *
0.1 + (varB % 1000000 - varB % 100000) / 100000 * 0.01 + (varA % 100 - varA % 10) / 10 * 0.001 + (varC % 100000 - varC % 10000) / 10000 * 1.0E-4 + varB % 10 * 1.0E-5))
  elseif ((varC % 100000 - varC % 10000) / 10000 + (varC % 100 - varC % 10) / 10) % 2 ~= 0 then
    varLongKOMP = tonumber(varLongVorz * ((varB % 100 - varB % 10) / 10 * 100 + varC % 10 * 10 + (varA % 100 - varA % 10) / 10 + (varA % 100000 - varA % 10000) / 10000 * 0.1 + (varB % 1000 - varB % 100) / 100 * 0.01 + varB % 10 * 0.001 + (varC % 100000 - varC % 10000) / 10000 * 1.0E-4 + (varB % 100000 - varB % 10000) / 10000 * 1.0E-5))
  end

print(varLatKOMP);
print(varLongKOMP);

lat = tonumber(varLatKOMP)
  lon = tonumber(varLongKOMP)
  local str_lat = ""
  local str_lon = ""
  if lat >= 0 then
    str_lat = "N"
  else
    str_lat = "S"
    lat = lat * -1
  end
  local tmp = math.floor(lat)
  str_lat = str_lat .. " " .. string.format("%02d", tmp) .. " "
  str_lat = str_lat .. buildMinAndDecimalMin(lat - tmp)
  if lon >= 0 then
    str_lon = "E"
  else
    str_lon = "W"
    lon = lon * -1
  end
  tmp = math.floor(lon)
  str_lon = str_lon .. " " .. string.format("%03d", tmp) .. " "
  str_lon = str_lon .. buildMinAndDecimalMin(lon - tmp)
print (str_lat);
print(str_lon);

[ + ] Show input
Absolute running time: 0.14 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,14 sec