2018/day20.m4

   1 divert(-1)dnl -*- m4 -*-
   2 # Usage: m4 [-Dfile=day20.input] day20.m4
   3
   4 include(`common.m4')ifelse(common(20), `ok', `',
   5 `errprint(`Missing common initialization
   6 ')m4exit(1)')
   7
   8 define(`input', translit(include(defn(`file')), `(|)^$'nl, `OPC'))
   9 define(`x', 5000)define(`y', 5000)define(`d', 0)
  10 define(`part1', 0)define(`part2', 0)
  11 define(`door', `ifdef(`g$1_$2', `define(`d', g$1_$2)', `define(`g$1_$2',
  12   $3)define(`d', $3)ifelse(eval($3 > part1), 1, `define(`part1',
  13   $3)')ifelse(len($3), 4, `define(`part2', incr(part2))')')define(`x',
  14   $1)define(`y', $2)')
  15 define(`N_', `door($1, decr($2), incr($3))')
  16 define(`E_', `door(incr($1), $2, incr($3))')
  17 define(`S_', `door($1, incr($2), incr($3))')
  18 define(`W_', `door(decr($1), $2, incr($3))')
  19 define(`O_', `pushdef(`x', $1)pushdef(`y', $2)pushdef(`d', $3)')
  20 define(`P_', `C_()O_(x, y, d)')
  21 define(`C_', `popdef(`x')popdef(`y')popdef(`d')')
  22 ifdef(`__gnu__', `
  23   patsubst(defn(`input'), `.', `\&_(x, y, d)')
  24 ',`
  25   define(`chew', `ifelse($1, 1, `$2_(x, y, d)', `$0(eval($1/2), substr(
  26     `$2', 0, eval($1/2)))$0(eval($1-$1/2), substr(`$2', eval($1/2)))')')
  27   chew(len(defn(`input')), defn(`input'))
  28 ')
  29
  30 divert`'part1
  31 part2