get("#265") -- json.encode

images = {"#1000061", "A", "#1000056", "H", "#1000064", "P", "#1000063", "X", "#1000062", "B"}
features = {"#326", "#327", "#328"}

-- make a letter lookup map
image2letter = {}
for i=1, #images, 2 do image2letter[images[i]] = images[i+1] end

-- find out which results to load
toget = {}
for i=1, #images, 2 do table.insert(toget, images[i]) end
for i=1, #features do table.insert(toget, features[i]) end
results = getirresults(unpack(toget))

--map: feature -> letter -> value range

map = {}
for image, subresults in pairs(results) do
  letter = image2letter[image]
  for feature, result in pairs(subresults) do
    _, _, value = string.find(result, ": ([0-9.]+)")
    if value ~= nil then
      value = tonumber(value)
      if map[feature] == nil then map[feature] = {} end
      submap = map[feature]
      range = submap[letter]
      if range == nil then
        range = {value, value}
      else
        range = {math.min(range[1], value), math.max(range[2], value)}
      end
      submap[letter] = range
    end
  end
end

-- get serpent to serialize map into Lua code
serpent = go("#158")

--if all features are within the known value ranges for the letter, just take the intersection of all the matching letters within each feature.

-- serpent options:
-- block(map, {comment=false}) is that indented stuff
-- line(map, {comment=false}) is all in one line
-- dump(map) is...?
-- line(map, {comment=false, compact=true, sparse=true}) is in one line, very compact
-- line(map, {comment=false, compact=true, sparse=false}) is the same

recognizer = "  map = "..serpent.line(map, {comment=false, compact=true, sparse=false}).."\n"..[[
  allletters = {}
  outmap = {}
  
  for feature, submap in pairs(map) do
    f = otherresults[feature]
    if f == nil then error("Need recalc, waiting for "..feature) end
    _, _, value = string.find(f, ": ([0-9.]+)")
    if value ~= nil then
      value = tonumber(value)
      for letter, range in pairs(submap) do
        allletters[letter] = true
        if value < range[1] or value > range[2] then
          outmap[letter] = true -- can't be this letter
        end
      end
    end
  end
  
  candidates = {}
  for letter, _ in pairs(allletters) do
    if not outmap[letter] then
      table.insert(candidates, letter)
    end
  end
  
  if #candidates ~= 0 then
    return "Candidates: "..table.concat(candidates, ", ")
  end
]]

print(recognizer)

snippet = {
  type = 26, -- Lua code - Image recognition
  text = recognizer,
  title = "A machine-made letter recognizer, v3"
}

return json.encode(snippet)

--todo: otherwise, expand all value ranges uniformly and try again.

--more todo: repeat & increase ranges exponentially, finally at least one letter will match.