return (functionlocal builders = local function register(name, f) builders[name] = fendregister('llpeg', function return require end)
register('day13', function(myrequire)--DAY 13 --local l = myrequire('llpeg')
--PARSING --local Node = Node.__index = Nodefunction Node:new(args) return setmetatable(args, self)endfunction Node:__tostring if self.rock then return "#" end return "."end
local nl = l.P"\n"
function make_node(s) if s
local Map = Map.__index = Map
function Map:nRows return #(self.data)end
function Map:nCols return #(self.data[1])end
function Map:__tostring local result = for r,row in ipairs(self.data) do for c,node in ipairs(row) do table.insert(result, tostring(node)) end table.insert(result, "\n") end return table.concat(result)end
function Map:try_vertical_mirror(col, smudges) -- # of columns to its left local s = 0 for r,row in ipairs(self.data) do local i = 0 repeat local col1,col2 = col-i,col+1+i if row[col1].ash ~= row[col2].ash then s = s + 1 if s > smudges then return false end -- early return end i = i + 1 until col1
#row end return (s
function Map:try_horizontal_mirror(row, smudges) -- # of columns to its left local s = 0 for c = 1,self:nCols do local i = 0 repeat local row1,row2 = row-i,row+1+i if self.data[row1][c].ash ~= self.data[row2][c].ash then s = s + 1 if s > smudges then return false end -- early return end i = i + 1 until row1
#(self.data) end return (s
function Map:score(smudges) for i=1,self:nRows-1 do if self:try_horizontal_mirror(i, smudges) then return 100*i end end for i=1,self:nCols-1 do if self:try_vertical_mirror(i, smudges) then return i end end error("no axis of reflection found")end
function make_map(g) return setmetatable(Map)end
local patt = l.P
function parse(source) --print(inspect(source)) local ast, errlabel, pos = patt:match(source) if not ast then error(string.format("Error at pos %s label '%s'", pos, errlabel)) end --print('Parsed with success!') --print(inspect(ast)) --return Graph:new(ast) return astend
--part 1 --
function part1(source) local maps = parse(source) local sum = 0 for i=1,#maps do local score = maps[i]:score(0) --print(maps[i]) --print(score) --print sum = sum + score end return sumend
--part 2 --
function part2(source) local maps = parse(source) local sum = 0 for i=1,#maps do local score = maps[i]:score(1) --print(maps[i]) --print(score) --print sum = sum + score end return sumend
----
return
end)
local modules = modules['table'] = require('table')modules['string'] = require('string')modules['strict'] = local function myrequire(name) if modules[name]