2017/day22.m4

   1 divert(-1)dnl -*- m4 -*-
   2 # Usage: m4 [-Dlimit=N] [-Dhashsize=H] [-Dfile=day22.input] day22.m4
   3 # Optionally use -Dverbose=1 to see some progress
   4
   5 include(`common.m4')ifelse(common(22, 65537), `ok', `',
   6 `errprint(`Missing common initialization
   7 ')m4exit(1)')
   8
   9 ifdef(`limit', `', `define(`limit', 10000000)')
  10
  11 define(`F', defn(`ifdef'))define(`D', defn(`define'))define(`E', defn(`eval'))
  12 define(`P', defn(`popdef'))define(`I', defn(`incr'))define(`C', defn(`decr'))
  13 define(`input', translit(include(defn(`file')), `.#'nl, `01_'))
  14 define(`offset', 500)define(`width', index(defn(`input'), `_'))
  15 define(`p', eval((offset - width/2)*offset*2+(offset - width/2)))
  16 define(`v0', `D(`p', I(`$1'))')
  17 define(`v1', `D(`g$1')D(`G$1', `n2')v0($@)')
  18 define(`v_', `D(`p', eval($1+offset*2-width))')
  19 ifdef(`__gnu__', `
  20   patsubst(defn(`input'), `.', `v\&(p)')
  21 ',`
  22   define(`split', `ifelse($1, 1, `v$2(p)', `$0(eval($1/2),
  23     substr(`$2', 0, eval($1/2)), `$3')$0(eval($1 - $1/2), substr(`$2',
  24     eval($1/2)), `$3')')')
  25   split(len(defn(`input')), defn(`input'))
  26 ')
  27 define(`part1', 0)define(`T', 0)
  28 define(`do10000', `popdef(`$0')')
  29 define(`n0', `D(`$1')D(`part1', I(part1))l$2')
  30 define(`n1', `P(`$1')r$2')
  31 define(`do', `_$0(`$1',F(`g$1',`n1',`n0')(`g$1',`$2'),`$3')')
  32 define(`_do', `F(`do$3',`do$3',`do')(m$2(`$1'),`$2',I(`$3'))')
  33 define(`r0', ``1'')define(`r1', ``2'')define(`r2', ``3'')define(`r3', ``0'')
  34 define(`l0', ``3'')define(`l1', ``0'')define(`l2', ``1'')define(`l3', ``2'')
  35 define(`m0', `E(`$1-''dquote(eval(offset*2))`)')
  36 define(`m1', `I(`$1')')
  37 define(`m2', `E(`$1+''dquote(eval(offset*2))`)')
  38 define(`m3', `C(`$1')')
  39 do(eval(offset*offset*2+offset), 0, 1)
  40
  41 define(`rename', `ifdef(`$2', `', `define(`$2', defn(`$1'))popdef(`$1')')')
  42 define(`do'100000, `output(1, `...'decr($3))rename(`$0',
  43   `do'eval(`$3+99999'))do($@)')
  44 define(`do'limit)
  45 define(`b0', ``2'')define(`b1', ``3'')define(`b2', ``0'')define(`b3', ``1'')
  46 define(`n0', `D(`$1',`n1')l$2')
  47 define(`n1', `D(`$1',`n2')D(`T',I(T))`$2'')
  48 define(`n2', `D(`$1',`n3')r$2')
  49 define(`n3', `P(`$1')b$2')
  50 define(`do', `_$0(`$1',F(`G$1',`G$1()',`n0')(`G$1',`$2'),`$3')')
  51 do(eval(offset*offset*2+offset), 0, 1)
  52 define(`part2', T)
  53
  54 divert`'part1
  55 part2