advent_of_ruby 0.2.0 → 0.3.0

data/data/solutions/github/eregon/2018/17_1.yml

@@ -0,0 +1,121 @@
+---
+- :name: 17.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2018
+  :solution: |-
+    clay = File.readlines(ARGV[0] || "17.txt", chomp: true).map { |line|
+      coords = { x: nil, y: nil }
+      line.split(", ").map { |part|
+        var, range = part.split('=')
+        range = eval(range)
+        range = (range..range) unless Range === range
+        coords[var.to_sym] = range
+      }
+      coords
+    }
+
+    min_y = clay.map { |c| c[:y].begin }.min
+    max_y = clay.map { |c| c[:y].end }.max
+    range_y = (min_y..max_y)
+
+    min_x = clay.map { |c| c[:x].begin }.min-1
+    max_x = clay.map { |c| c[:x].end }.max+1
+    range_x = (min_x..max_x)
+
+    map = Hash.new(:sand)
+    clay.each { |c|
+      c[:y].each { |y|
+        c[:x].each { |x|
+          map[x + y.i] = :clay
+        }
+      }
+    }
+
+    show = -> {
+      range_y.each { |y|
+        puts range_x.map { |x|
+          case map[x+y.i]
+          when :sand then "."
+          when :clay then "#"
+          when :moving then "|"
+          when :still then "~"
+          else raise
+          end
+        }.join
+      }
+      puts
+    }
+
+    class Symbol
+      def free?
+        equal?(:sand) or equal?(:moving)
+      end
+
+      def filled?
+        equal?(:clay) or equal?(:still)
+      end
+
+      def watery?
+        equal?(:moving) or equal?(:still)
+      end
+
+      def still?
+        equal?(:still)
+      end
+    end
+
+    spring = 500 + 0.i
+    drops = [spring]
+
+    until drops.empty?
+      drops = drops.flat_map do |drop|
+        below = drop + 1.i
+        if map[below] == :sand
+          map[below] = :moving
+          below
+        elsif map[below].filled?
+          left = below
+          while map[left].filled? and map[left-1.i].free?
+            left -= 1
+          end
+          right = below
+          while map[right].filled? and map[right-1.i].free?
+            right += 1
+          end
+
+          wall_on_left = map[left].filled? and map[left-1.i] == :clay
+          wall_on_right = map[right].filled? and map[right-1.i] == :clay
+
+          if wall_on_left and wall_on_right
+            ((left+1).real..(right-1).real).each { |x|
+              map[x + drop.imag.i] = :still
+            }
+            drop - 1.i
+          elsif wall_on_left and !wall_on_right
+            ((left+1).real..right.real).each { |x|
+              map[x + drop.imag.i] = :moving
+            }
+            right.real + drop.imag.i
+          elsif !wall_on_left and wall_on_right
+            (left.real..(right-1).real).each { |x|
+              map[x + drop.imag.i] = :moving
+            }
+            left.real + drop.imag.i
+          elsif !wall_on_left and !wall_on_right
+            (left.real..right.real).each { |x|
+              map[x + drop.imag.i] = :moving
+            }
+            [left.real + drop.imag.i, right.real + drop.imag.i]
+          end
+        elsif map[below] == :moving
+          []
+        else
+          raise
+        end
+      end.select { |drop| drop.imag <= max_y }
+    end
+
+    show.()
+
+    valid = map.select { |c,| range_y.include?(c.imag) }.values
+    p valid.count(&:watery?)
+    p valid.count(&:still?)

data/data/solutions/github/eregon/2018/17_2.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/18_1.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/18_2.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/19_1.yml

@@ -0,0 +1,47 @@
+---
+- :name: 19a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2018
+  :solution: |-
+    instructions = {}
+    addressing = -> mode, arg { mode == :r ? "regs[#{arg}]" : arg }
+    def_instr = -> name, mode_a, mode_b, &block do
+      instructions[name] = eval "-> regs, a, b, c {
+        #{block.(addressing[mode_a, "a"], addressing[mode_b, "b"], addressing[:r, "c"])}
+      }"
+    end
+
+    [:r, :i].each do |mode|
+      { add: :+, mul: :*, ban: :&, bor: :| }.each_pair { |name, op|
+        def_instr.(:"#{name}#{mode}", :r, mode) { |a, b, c|
+          "#{c} = #{a} #{op} #{b}"
+        }
+      }
+
+      def_instr.(:"set#{mode}", mode, :i) { |a, b, c|
+        "#{c} = #{a}"
+      }
+    end
+
+    [ [:i, :r], [:r, :i], [:r, :r] ].each do |mode_a, mode_b|
+      { gt: :>, eq: :== }.each_pair { |name, cmp|
+        def_instr.(:"#{name}#{mode_a}#{mode_b}", mode_a, mode_b) { |a, b, c|
+          "#{c} = #{a} #{cmp} #{b} ? 1 : 0"
+        }
+      }
+    end
+
+    ip, *program = File.readlines("19.txt", chomp: true)
+    ip = ip[/#ip (\d+)/, 1].to_i
+    program = program.map { |line|
+      instr, *args = line.split
+      action = instructions[instr.to_sym]
+      a, b, c = args.map(&:to_i)
+      -> regs { action.(regs, a, b, c) }
+    }
+
+    regs = [0] * 6
+    while regs[ip].between?(0, program.size-1)
+      program[regs[ip]].call(regs)
+      regs[ip] += 1
+    end
+    p regs

data/data/solutions/github/eregon/2018/19_2.yml

@@ -0,0 +1,88 @@
+---
+- :name: 19b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2018
+  :solution: |-
+    a = Integer(ARGV[0] || 1)
+    b, c, d, e = 0, 0, 0, 0
+
+    b = (b + 2)*(b + 2) * 19 * 11
+    c = (c + 2) * 22 + 20
+    b += c
+
+    unless a == 0
+      c = 27 if a <= 1
+      c *= 28 if a <= 2
+      c += 29 if a <= 3
+      c *= 30 if a <= 4
+      c *= 14 if a <= 5
+      c *= 32 if a <= 6
+      b += c if a <= 7
+      a = 0 if a <= 8
+
+      if a >= 10
+        p "a >= 10"
+        p [a, b, c, d, e]
+        exit
+      end
+    end
+
+    p [:ending, a, b, c]
+
+    (1..b).each { |e|
+      # (1..b).each { |d|
+      (1..b/e).each { |d|
+        if e * d == b
+          a += e
+        end
+      }
+    }
+
+    p [a, b, c, d, e]
+- :name: 19b_gen.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2018
+  :solution: |-
+    instructions = {}
+    addressing = -> mode, arg { mode == :r ? "regs[#{arg}]" : arg }
+    def_instr = -> name, mode_a, mode_b, &block do
+      instructions[name] = "-> regs, a, b, c {
+        #{block.(addressing[mode_a, "a"], addressing[mode_b, "b"], addressing[:r, "c"])}
+      }"
+    end
+
+    [:r, :i].each do |mode|
+      { add: :+, mul: :*, ban: :&, bor: :| }.each_pair { |name, op|
+        def_instr.(:"#{name}#{mode}", :r, mode) { |a, b, c|
+          "#{c} = #{a} #{op} #{b}"
+        }
+      }
+
+      def_instr.(:"set#{mode}", mode, :i) { |a, b, c|
+        "#{c} = #{a}"
+      }
+    end
+
+    [ [:i, :r], [:r, :i], [:r, :r] ].each do |mode_a, mode_b|
+      { gt: :>, eq: :== }.each_pair { |name, cmp|
+        def_instr.(:"#{name}#{mode_a}#{mode_b}", mode_a, mode_b) { |a, b, c|
+          "#{c} = #{a} #{cmp} #{b} ? 1 : 0"
+        }
+      }
+    end
+
+    ip, *program = File.readlines("19.txt", chomp: true)
+    ip = ip[/#ip (\d+)/, 1].to_i
+    program = program.map.with_index { |line, i|
+      instr, *args = line.split
+      action = instructions[instr.to_sym]
+      a, b, c = args
+      print ("# %02d)  " % i)
+      puts action.lines[1].strip
+        .sub(/\ba\b/, a).sub(/\bb\b/, b).sub(/\bc\b/, c)
+        .gsub(/(=.+)regs\[#{ip}\]/, "\\1#{i}")
+        .gsub(/regs\[(\d+)\]/,
+          "regs[0]" => "a", "regs[1]" => "b", "regs[2]" => "c",
+          "regs[3]" => "pc", "regs[4]" => "d", "regs[5]" => "e")
+        .sub(/^(\w+) = \1 ([*+]) (\w+)$/, '\1 \2= \3')
+        .sub(/^(\w+) = (\w+) ([*+]) \1$/, '\1 \3= \2')
+        .sub(/\b(\d+) ([*+]) (\d+)\b/) { $1.to_i.send($2, $3.to_i) }
+    }

data/data/solutions/github/eregon/2018/20_1.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/20_2.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/21_1.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/21_2.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/22_1.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/22_2.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/23_1.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/23_2.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/24_1.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/24_2.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2018/25_1.yml

@@ -0,0 +1 @@
+--- []

data/data/solutions/github/eregon/2019/01_1.yml

@@ -0,0 +1,4 @@
+---
+- :name: 1a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: p File.readlines('1.txt').sum { |line| Integer(line) / 3 - 2 }

data/data/solutions/github/eregon/2019/01_2.yml

@@ -0,0 +1,13 @@
+---
+- :name: 1b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: |-
+    p File.readlines('1.txt').sum { |line|
+      mod = Integer(line)
+      total = 0
+      while fuel = mod / 3 - 2 and fuel > 0
+        total += fuel
+        mod = fuel
+      end
+      total
+    }

data/data/solutions/github/eregon/2019/02_1.yml

@@ -0,0 +1,27 @@
+---
+- :name: 2a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: |-
+    input = File.read('2.txt')
+    code = input.chomp.split(',').map { |e| Integer(e) }
+
+    code[1] = 12
+    code[2] = 02
+
+    pc = 0
+    while opcode = code[pc] and opcode != 99
+      case opcode
+      when 1
+        a, b, out = code[pc+1, 3]
+        code[out] = code[a] + code[b]
+        pc += 4
+      when 2
+        a, b, out = code[pc+1, 3]
+        code[out] = code[a] * code[b]
+        pc += 4
+      else
+        raise "Unknown opcode: #{opcode}"
+      end
+    end
+
+    p code[0]

data/data/solutions/github/eregon/2019/02_2.yml

@@ -0,0 +1,4 @@
+---
+- :name: 2b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "input = File.read('2.txt')\ncode = input.chomp.split(',').map { |e| Integer(e) }.freeze\n\ndef interpreter(memory, input1, input2)\n  memory = memory.dup\n  memory[1] = input1\n  memory[2] = input2\n\n  ip = 0\n  while opcode = memory[ip] and opcode != 99\n    case opcode\n    when 1\n      a, b, out = memory[ip+1, 3]\n      memory[out] = memory[a] + memory[b]\n      ip += 4\n    when 2\n      a, b, out = memory[ip+1, 3]\n      memory[out] = memory[a] * memory[b]\n      ip += 4\n    else\n      raise \"Unknown opcode: #{opcode}\"\n    end\n  end\n  \n  memory[0]\nend\n\n100.times { |noun|\n  100.times { |verb|\n    if interpreter(code, noun, verb) == 19690720\n      p 100 * noun + verb\n      exit\n    end\n  }\n}"

data/data/solutions/github/eregon/2019/03_1.yml

@@ -0,0 +1,4 @@
+---
+- :name: 3a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "input = File.readlines('3.txt')\n\nclass Complex\n  def distance\n    real.abs + imag.abs\n  end\nend\n\nDIRS = { U: 1i, R: 1, D: -1i, L: -1 }\npassing = Hash.new(0)\n\ninput.map.with_index { |wire, i|\n  mask = 1 << i\n  pos = 0 + 0i\n  wire.chomp.split(',').each { |segment|\n    dir = DIRS.fetch(segment[0].to_sym)\n    n = Integer(segment[1..-1])\n    n.times {\n      pos += dir\n      passing[pos] |= mask\n    }\n  }  \n}\n\np passing.each_pair.select { |pos, count|\n  count == 0b11\n}.map(&:first).map(&:distance).min"

data/data/solutions/github/eregon/2019/03_2.yml

@@ -0,0 +1,4 @@
+---
+- :name: 3b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "input = File.readlines('3.txt')\n\nclass Complex\n  def distance\n    real.abs + imag.abs\n  end\nend\n\nDIRS = { U: 1i, R: 1, D: -1i, L: -1 }\npassing = Hash.new { |h,k| h[k] = [nil] * input.size }\n\ninput.map.with_index { |wire, i|\n  pos = 0 + 0i\n  steps = 0\n  wire.chomp.split(',').each { |segment|\n    dir = DIRS.fetch(segment[0].to_sym)\n    n = Integer(segment[1..-1])\n    n.times {\n      pos += dir\n      steps += 1\n      passing[pos][i] ||= steps\n    }\n  }  \n}\n\np passing.each_pair.select { |pos, steps|\n  steps.all?\n}.min_by { |pos, steps| steps.sum }.last.sum"

data/data/solutions/github/eregon/2019/04_1.yml

@@ -0,0 +1,12 @@
+---
+- :name: 4a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: |-
+    input = (246540..787419)
+
+    p input.count { |n|
+      n >= 100_000 and n < 1_000_000 and
+      digits = n.digits.reverse and
+      digits.each_cons(2).any? { |a,b| a == b } and
+      digits.each_cons(2).all? { |a,b| a <= b }
+    }

data/data/solutions/github/eregon/2019/04_2.yml

@@ -0,0 +1,14 @@
+---
+- :name: 4b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: |-
+    input = (246540..787419)
+
+    p input.count { |n|
+      n >= 100_000 and n < 1_000_000 and
+      digits = n.digits.reverse and
+      digits.each_cons(2).all? { |a,b| a <= b } and
+      counts = Array.new(10, 0) and
+      digits.each { |d| counts[d] += 1 } and
+      counts.any? { |c| c == 2 }
+    }

data/data/solutions/github/eregon/2019/05_1.yml

@@ -0,0 +1,4 @@
+---
+- :name: 5a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "input = File.read('5.txt')\ncode = input.chomp.split(',').map { |e| Integer(e) }.freeze\n\ndef interpreter(memory, inputs)\n  memory = memory.dup\n  ip = 0\n  mode = 0\n\n  get_mode = -> i {\n    # mode.digits[i-1] || 0\n    mode / (10 ** (i-1)) % 10\n  }\n\n  read = -> i {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0\n      memory[v]\n    when 1\n      v\n    else\n      raise \"Unknown read mode #{m} (#{mode} #{i})\"\n    end\n  }\n  \n  write = -> i, result {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0\n      memory[v] = result\n    else\n      raise \"Unknown write mode #{m} (#{mode} #{i})\"\n    end\n  }\n\n  while true\n    instruction = memory[ip]\n    mode, opcode = instruction.divmod(100)\n    case opcode\n    when 1 # add\n      write[3, read[1] + read[2]]\n      ip += 4\n    when 2 # multiply\n      write[3, read[1] * read[2]]\n      ip += 4\n    when 3 # input\n      write[1, inputs.shift || raise]\n      ip += 2\n    when 4 # output\n      p read[1]\n      ip += 2\n    when 99\n      break\n    else\n      raise \"Unknown opcode: #{opcode} at #{ip} (#{instruction})\"\n    end\n  end\nend\n\ninterpreter(code, [1])"

data/data/solutions/github/eregon/2019/05_2.yml

@@ -0,0 +1,4 @@
+---
+- :name: 5b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "input = File.read('5.txt')\ncode = input.chomp.split(',').map { |e| Integer(e) }.freeze\n\ndef interpreter(memory, inputs)\n  memory = memory.dup\n  ip = 0\n  mode = 0\n\n  get_mode = -> i {\n    # mode.digits[i-1] || 0\n    mode / (10 ** (i-1)) % 10\n  }\n\n  read = -> i {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0\n      memory[v]\n    when 1\n      v\n    else\n      raise \"Unknown read mode #{m} (#{mode} #{i})\"\n    end\n  }\n  \n  write = -> i, result {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0\n      memory[v] = result\n    else\n      raise \"Unknown write mode #{m} (#{mode} #{i})\"\n    end\n  }\n\n  while true\n    instruction = memory[ip]\n    mode, opcode = instruction.divmod(100)\n    case opcode\n    when 1 # add\n      write[3, read[1] + read[2]]\n      ip += 4\n    when 2 # multiply\n      write[3, read[1] * read[2]]\n      ip += 4\n    when 3 # input\n      write[1, inputs.shift || raise]\n      ip += 2\n    when 4 # output\n      p read[1]\n      ip += 2\n    when 5 # jump-if-true\n      if read[1] != 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 6 # jump-if-false\n      if read[1] == 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 7 # less than\n      write[3, read[1] < read[2] ? 1 : 0]\n      ip += 4\n    when 8 # equals\n      write[3, read[1] == read[2] ? 1 : 0]\n      ip += 4\n    when 99\n      break\n    else\n      raise \"Unknown opcode: #{opcode} at #{ip} (#{instruction})\"\n    end\n  end\nend\n\ninterpreter(code, [5])"

data/data/solutions/github/eregon/2019/06_1.yml

@@ -0,0 +1,4 @@
+---
+- :name: 6a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "lines = File.readlines('6.txt')\n\nclass Body\n  attr_reader :name, :parent\n  def initialize(name)\n    @name = name\n  end\n\n  def parent=(parent)\n    raise if @parent\n    @parent = parent\n  end\n  \n  def depth\n    if @name == 'COM' and @parent.nil?\n      0\n    else\n      @parent.depth + 1\n    end\n  end\nend\n\nbodies = Hash.new { |h,k| h[k] = Body.new(k) }\n\nlines.each { |line|\n  parent, child = line.chomp.split(')', 2)\n  bodies[child].parent = bodies[parent]\n}\n\np bodies.values.sum(&:depth)"

data/data/solutions/github/eregon/2019/06_2.yml

@@ -0,0 +1,4 @@
+---
+- :name: 6b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "lines = File.readlines('6.txt')\n\nclass Body\n  attr_reader :name, :parent\n  def initialize(name)\n    @name = name\n  end\n\n  def parent=(parent)\n    raise if @parent\n    @parent = parent\n  end\n  \n  def depth\n    if @name == 'COM' and @parent.nil?\n      0\n    else\n      @parent.depth + 1\n    end\n  end\nend\n\nbodies = Hash.new { |h,k| h[k] = Body.new(k) }\n\nlines.each { |line|\n  parent, child = line.chomp.split(')', 2)\n  bodies[child].parent = bodies[parent]\n}\n\na = bodies.fetch('YOU').parent\nb = bodies.fetch('SAN').parent\n\nsteps = 0\nwhile a != b\n  da, db = a.depth, b.depth\n\n  if da >= db\n    a = a.parent\n    steps += 1\n  end\n\n  if da <= db\n    b = b.parent\n    steps += 1\n  end\nend\np steps"

data/data/solutions/github/eregon/2019/07_1.yml

@@ -0,0 +1,4 @@
+---
+- :name: 7a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "input = File.read('7.txt')\ncode = input.chomp.split(',').map { |e| Integer(e) }.freeze\n\ndef interpreter(memory, inputs)\n  memory = memory.dup\n  ip = 0\n  mode = 0\n\n  get_mode = -> i {\n    mode / (10 ** (i-1)) % 10\n  }\n\n  read = -> i {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0\n      memory[v]\n    when 1\n      v\n    else\n      raise \"Unknown read mode #{m} (#{mode} #{i})\"\n    end\n  }\n  \n  write = -> i, result {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0\n      memory[v] = result\n    else\n      raise \"Unknown write mode #{m} (#{mode} #{i})\"\n    end\n  }\n\n  result = nil\n  while true\n    instruction = memory[ip]\n    mode, opcode = instruction.divmod(100)\n    case opcode\n    when 1 # add\n      write[3, read[1] + read[2]]\n      ip += 4\n    when 2 # multiply\n      write[3, read[1] * read[2]]\n      ip += 4\n    when 3 # input\n      write[1, inputs.shift || raise]\n      ip += 2\n    when 4 # output\n      result = read[1]\n      Fiber.yield(result)\n      ip += 2\n    when 5 # jump-if-true\n      if read[1] != 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 6 # jump-if-false\n      if read[1] == 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 7 # less than\n      write[3, read[1] < read[2] ? 1 : 0]\n      ip += 4\n    when 8 # equals\n      write[3, read[1] == read[2] ? 1 : 0]\n      ip += 4\n    when 99\n      break\n    else\n      raise \"Unknown opcode: #{opcode} at #{ip} (#{instruction})\"\n    end\n  end\n  result\nend\n\nn = 5\nbest = 0\nbest_phases = nil\n\n(0...n).to_a.permutation(n) { |phases|\n  amplifiers = phases.map { |phase|\n    Fiber.new { |signal|\n      interpreter(code, [phase, signal])\n    }\n  }\n  \n  signal = 0\n  amplifiers.each { |a|\n    signal = a.resume(signal)\n  }\n\n  if signal > best\n    best = signal\n    best_phases = phases.dup\n  end\n}\n\np best\np best_phases"

data/data/solutions/github/eregon/2019/07_2.yml

@@ -0,0 +1,7 @@
+---
+- :name: 7b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "input = File.read('7.txt')\ncode = input.chomp.split(',').map { |e| Integer(e) }.freeze\n\ndef interpreter(memory)\n  memory = memory.dup\n  ip = 0\n  mode = 0\n\n  get_mode = -> i {\n    mode / (10 ** (i-1)) % 10\n  }\n\n  read = -> i {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0\n      memory[v]\n    when 1\n      v\n    else\n      raise \"Unknown read mode #{m} (#{mode} #{i})\"\n    end\n  }\n  \n  write = -> i, result {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0\n      memory[v] = result\n    else\n      raise \"Unknown write mode #{m} (#{mode} #{i})\"\n    end\n  }\n\n  result = nil\n  while true\n    instruction = memory[ip]\n    mode, opcode = instruction.divmod(100)\n    case opcode\n    when 1 # add\n      write[3, read[1] + read[2]]\n      ip += 4\n    when 2 # multiply\n      write[3, read[1] * read[2]]\n      ip += 4\n    when 3 # input\n      write[1, Fiber.yield(result)]\n      ip += 2\n    when 4 # output\n      result = read[1]\n      # just save the result for the next input or halt\n      # Fiber.yield(result)\n      ip += 2\n    when 5 # jump-if-true\n      if read[1] != 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 6 # jump-if-false\n      if read[1] == 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 7 # less than\n      write[3, read[1] < read[2] ? 1 : 0]\n      ip += 4\n    when 8 # equals\n      write[3, read[1] == read[2] ? 1 : 0]\n      ip += 4\n    when 99\n      break\n    else\n      raise \"Unknown opcode: #{opcode} at #{ip} (#{instruction})\"\n    end\n  end\n  result\nend\n\nn = 5\nbest = 0\nbest_phases = nil\nrequire 'fiber'\n\n(5..9).to_a.permutation(n) { |phases|\n  amplifiers = n.times.map { |i|\n    Fiber.new {\n      interpreter(code)\n    }\n  }\n  \n  amplifiers.zip(phases) { |a,phase|\n    a.resume\n    a.resume(phase)\n  }\n  \n  signal = 0\n  while amplifiers.all?(&:alive?)\n    amplifiers.each { |a|\n      signal = a.resume(signal)\n      # continue after ouput instruction\n      # a.resume(:continue)\n    }\n  end\n\n  if signal > best\n    best = signal\n    best_phases = phases.dup\n  end\n}\n\np best\np best_phases"
+- :name: 7b_transfer.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "input = File.read('7.txt')\ncode = input.chomp.split(',').map { |e| Integer(e) }.freeze\n\ndef interpreter(memory, inputs, output)\n  memory = memory.dup\n  ip = 0\n  mode = 0\n\n  get_mode = -> i {\n    mode / (10 ** (i-1)) % 10\n  }\n\n  read = -> i {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0\n      memory[v]\n    when 1\n      v\n    else\n      raise \"Unknown read mode #{m} (#{mode} #{i})\"\n    end\n  }\n  \n  write = -> i, result {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0\n      memory[v] = result\n    else\n      raise \"Unknown write mode #{m} (#{mode} #{i})\"\n    end\n  }\n  result = nil\n  while true\n    instruction = memory[ip]\n    mode, opcode = instruction.divmod(100)\n    case opcode\n    when 1 # add\n      write[3, read[1] + read[2]]\n      ip += 4\n    when 2 # multiply\n      write[3, read[1] * read[2]]\n      ip += 4\n    when 3 # input\n      input = inputs.shift or raise\n      write[1, input]\n      ip += 2\n    when 4 # output\n      result = read[1]\n      inputs << output.transfer(result) if output.alive?\n      ip += 2\n    when 5 # jump-if-true\n      if read[1] != 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 6 # jump-if-false\n      if read[1] == 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 7 # less than\n      write[3, read[1] < read[2] ? 1 : 0]\n      ip += 4\n    when 8 # equals\n      write[3, read[1] == read[2] ? 1 : 0]\n      ip += 4\n    when 99\n      break\n    else\n      raise \"Unknown opcode: #{opcode} at #{ip} (#{instruction})\"\n    end\n  end\n\n  result # returns to root fiber\nend\n\nn = 5\nbest = 0\nbest_phases = nil\nrequire 'fiber'\n\n(5..9).to_a.permutation(n) { |phases|\n  amplifiers = n.times.map { |i|\n    phase = phases[i]\n    Fiber.new { |signal|\n      interpreter(code, [phase, signal], amplifiers[(i + 1) % n])\n    }\n  }\n\n  signal = 0\n  amplifiers.each { |amplifier|\n    signal = amplifier.transfer(signal)\n  }\n\n  if signal > best\n    best = signal\n    best_phases = phases.dup\n  end\n}\n\np best\np best_phases"

data/data/solutions/github/eregon/2019/08_1.yml

@@ -0,0 +1,12 @@
+---
+- :name: 8a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: |-
+    input = File.read('8.txt').chomp
+    width = 25
+    height = 6
+    n_pixels = width * height
+    raise unless input.size % n_pixels == 0
+    layers = input.chars.map { |c| Integer(c) }.each_slice(n_pixels).to_a
+    layer = layers.min_by { |layer| layer.count(0) }
+    p layer.count(1) * layer.count(2)

data/data/solutions/github/eregon/2019/08_2.yml

@@ -0,0 +1,14 @@
+---
+- :name: 8b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: |-
+    input = File.read('8.txt').chomp
+    width = 25
+    height = 6
+    n_pixels = width * height
+    raise unless input.size % n_pixels == 0
+    layers = input.chars.map { |c| Integer(c) }.each_slice(n_pixels).to_a
+    image = n_pixels.times.map { |i|
+      layers.find { |layer| layer[i] != 2 }[i]
+    }
+    puts image.map { |e| e == 1 ? '#' : ' ' }.each_slice(width).map { |row| row.join }

data/data/solutions/github/eregon/2019/09_1.yml

@@ -0,0 +1,4 @@
+---
+- :name: 9a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "input = File.read('9.txt')\ncode = input.chomp.split(',').map { |e| Integer(e) }.freeze\n\ndef interpreter(memory, inputs)\n  memory = memory.dup\n  def memory.[](i)\n    raise if i < 0\n    super(i) || 0\n  end\n  ip = 0\n  mode = 0\n  relative_base = 0\n\n  get_mode = -> i {\n    mode / (10 ** (i-1)) % 10\n  }\n\n  read = -> i {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0 # position\n      memory[v]\n    when 1 # immediate\n      v\n    when 2 # relative\n      memory[relative_base + v]\n    else\n      raise \"Unknown read mode #{m} (#{mode} #{i})\"\n    end\n  }\n  \n  write = -> i, result {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0 # position\n      memory[v] = result\n    when 2 # relative\n      memory[relative_base + v] = result\n    else\n      raise \"Unknown write mode #{m} (#{mode} #{i})\"\n    end\n  }\n\n  result = nil\n  while true\n    instruction = memory[ip]\n    mode, opcode = instruction.divmod(100)\n    case opcode\n    when 1 # add\n      write[3, read[1] + read[2]]\n      ip += 4\n    when 2 # multiply\n      write[3, read[1] * read[2]]\n      ip += 4\n    when 3 # input\n      input = inputs.shift || raise\n      write[1, input]\n      ip += 2\n    when 4 # output\n      result = read[1]\n      puts \"Output: #{result}\"\n      ip += 2\n    when 5 # jump-if-true\n      if read[1] != 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 6 # jump-if-false\n      if read[1] == 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 7 # less than\n      write[3, read[1] < read[2] ? 1 : 0]\n      ip += 4\n    when 8 # equals\n      write[3, read[1] == read[2] ? 1 : 0]\n      ip += 4\n    when 9 # relative base offset\n      relative_base += read[1]\n      ip += 2\n    when 99\n      break\n    else\n      raise \"Unknown opcode: #{opcode} at #{ip} (#{instruction})\"\n    end\n  end\n  result\nend\n\np interpreter(code, [1])"

data/data/solutions/github/eregon/2019/09_2.yml

@@ -0,0 +1,4 @@
+---
+- :name: 9b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: "input = File.read('9.txt')\ncode = input.chomp.split(',').map { |e| Integer(e) }.freeze\n\ndef interpreter(memory, inputs)\n  memory = memory.dup\n  def memory.[](i)\n    raise if i < 0\n    super(i) || 0\n  end\n  ip = 0\n  mode = 0\n  relative_base = 0\n\n  get_mode = -> i {\n    mode / (10 ** (i-1)) % 10\n  }\n\n  read = -> i {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0 # position\n      memory[v]\n    when 1 # immediate\n      v\n    when 2 # relative\n      memory[relative_base + v]\n    else\n      raise \"Unknown read mode #{m} (#{mode} #{i})\"\n    end\n  }\n  \n  write = -> i, result {\n    v = memory[ip + i]\n    case m = get_mode[i]\n    when 0 # position\n      memory[v] = result\n    when 2 # relative\n      memory[relative_base + v] = result\n    else\n      raise \"Unknown write mode #{m} (#{mode} #{i})\"\n    end\n  }\n\n  result = nil\n  while true\n    instruction = memory[ip]\n    mode, opcode = instruction.divmod(100)\n    case opcode\n    when 1 # add\n      write[3, read[1] + read[2]]\n      ip += 4\n    when 2 # multiply\n      write[3, read[1] * read[2]]\n      ip += 4\n    when 3 # input\n      input = inputs.shift || raise\n      write[1, input]\n      ip += 2\n    when 4 # output\n      result = read[1]\n      puts \"Output: #{result}\"\n      ip += 2\n    when 5 # jump-if-true\n      if read[1] != 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 6 # jump-if-false\n      if read[1] == 0\n        ip = read[2]\n      else\n        ip += 3\n      end\n    when 7 # less than\n      write[3, read[1] < read[2] ? 1 : 0]\n      ip += 4\n    when 8 # equals\n      write[3, read[1] == read[2] ? 1 : 0]\n      ip += 4\n    when 9 # relative base offset\n      relative_base += read[1]\n      ip += 2\n    when 99\n      break\n    else\n      raise \"Unknown opcode: #{opcode} at #{ip} (#{instruction})\"\n    end\n  end\n  result\nend\n\np interpreter(code, [2])"

data/data/solutions/github/eregon/2019/10_1.yml

@@ -0,0 +1,35 @@
+---
+- :name: 10a.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: |-
+    input = File.read('10.txt')
+
+    asteroids = []
+    input.lines.each_with_index { |line,y|
+      line.chomp.chars.each_with_index { |c,x|
+        asteroids << x + y.i if c == '#'
+      }
+    }
+    asteroids.freeze
+
+    width = input.lines[0].chomp.size
+    height = input.lines.size
+
+    p asteroids.map { |candidate|
+      others = (asteroids - [candidate]).sort_by { |a|
+        (a - candidate).abs
+      }
+
+      others.each { |other|
+        v = other - candidate
+        v /= v.real.gcd(v.imag)
+        (1..).each { |m|
+          d = other + v * m
+          break unless d.real.between?(0, width-1) and
+                       d.imag.between?(0, height-1)
+          others.delete(d)
+        }
+      }
+
+      [candidate, others.size]
+    }.max_by(&:last)

data/data/solutions/github/eregon/2019/10_2.yml

@@ -0,0 +1,39 @@
+---
+- :name: 10b.rb
+  :url: https://github.com/eregon/adventofcode/blob/master/2019
+  :solution: |-
+    input = File.read('10.txt')
+
+    asteroids = []
+    input.lines.each_with_index { |line,y|
+      line.chomp.chars.each_with_index { |c,x|
+        asteroids << x + y.i if c == '#'
+      }
+    }
+    asteroids.freeze
+
+    width = input.lines[0].chomp.size
+    height = input.lines.size
+    candidate = 20 + 21i
+
+    others = (asteroids - [candidate]).sort_by { |a|
+      (a - candidate).abs
+    }
+
+    others.each { |other|
+      v = other - candidate
+      v /= v.real.gcd(v.imag)
+      (1..).each { |m|
+        d = other + v * m
+        break unless d.real.between?(0, width-1) and
+                     d.imag.between?(0, height-1)
+        others.delete(d)
+      }
+    }
+
+    p others.sort_by { |other|
+      v = other - candidate
+      dx, dy = v.real, -v.imag
+      angle = Math::PI/2 - Math.atan2(dy, dx)
+      angle % (2 * Math::PI)
+    }[199]