2018/day11.m4

   1 divert(-1)dnl -*- m4 -*-
   2 # Usage: m4 [-Dserial=N] [-Dhashsize=H] [-Dfile=day11.input] day11.m4
   3 # Optionally use -Dverbose=1 to see some progress
   4
   5 include(`common.m4')ifelse(common(11, 131071), `ok', `',
   6 `errprint(`Missing common initialization
   7 ')m4exit(1)')
   8
   9 ifdef(`serial', `', `define(`serial', translit(include(defn(`file')), nl))')
  10
  11 define(`D', defn(`define'))define(`E', defn(`eval'))define(`I', defn(`ifelse'))
  12 define(`P', defn(`incr'))define(`M', defn(`decr'))
  13 define(`prep', `D(`g0_$1',0)D(`g$1_0',0)')
  14 forloop_arg(0, 300, `prep')
  15 define(`p', ``($1*$2+$3)*$1%1000/100-5'')
  16 define(`g', `(g$1_$2)')
  17 define(`_prep', `D(`g$1_$2',E(p(`(10+$1)',`$2','serial`)+g($1,M(`$2'))+g('dnl
  18 `M(`$1'),`$2')-g(M(`$1'),M(`$2'))))')
  19 define(`prep', `forloop(1, 300, `_$0(', `, `$1')')')
  20 forloop_arg(1, 300, `prep')
  21 define(`b', 0)
  22 define(`c', `_$0(g$2_$4+g$1_$3-(g$2_$3)-(g$1_$4),`$5')')
  23 define(`_c', `I(E(`$1>'b),1,`D(`b',E(`$1'))$2')')
  24 define(`_find', `c(M(`$1'),P(P(`$1')),M(`$2'),P(P(`$2')),`D(`part1',`$1,$2')')')
  25 define(`find', `forloop(1,298,`_$0(',`,`$1')')')
  26 output(1, `...3')
  27 forloop_arg(1, 298, `find')
  28
  29 define(`total', b)
  30 define(`_find', `c(M(`$1'),E(`$1+$3-1'),M(`$2'),E(`$2+$3-1'),`D(`try',
  31 `$1,$2,$3')')')
  32 define(`find', `forloop(1,E(`301-$2'),`_$0(',`,`$1',`$2')')')
  33 define(`round', `output(1, `...$1')D(`b', 0)forloop(1,E(`301-$1'),
  34   `find(',`,`$1')')I(E(b>total),1,`D(`total',b)D(`part2',defn(`try'))')I(E(
  35   b>total*8/9),1,`$0(P(`$1'))')')
  36 round(4)
  37
  38 divert`'part1
  39 part2