2016/day4.m4

   1 divert(-1)dnl -*- m4 -*-
   2 # Usage: m4 [-Dfile=day4.input] day4.m4
   3
   4 include(`common.m4')ifelse(common(4), `ok', `',
   5 `errprint(`Missing common initialization
   6 ')m4exit(1)')
   7
   8 define(`list', translit(include(defn(`file')), alpha`'nl`[]', ALPHA`;'))
   9 define(`part1', 0)
  10 define(`letter', `defn(`$0$1')')
  11 define(`setup', `define(`letter$1', translit(eval($1 + 9, 36), alpha,
  12   ALPHA))define(`_'letter$1, $1)')
  13 forloop_arg(1, 26, `setup')define(`letter0', defn(`letter26'))
  14 define(`pair', `ifelse(index(`$2', `$1'), -1, `_$0(`$3', `$1')')')
  15 define(`_pair', `ifelse(eval($1_ < $2_ || (_$1 > _$2 && $1_ == $2_)), 1, -)')
  16 define(`room', `forloop(1, 26, `_$0(letter(', `), `$1', $2)')ifelse(_pair(`$4',
  17   `$5')_pair(`$5', `$6')_pair(`$6', `$7')_pair(`$7', `$8')forloop(1, 26,
  18   `pair(letter(', `), `$4$5$6$7$8', `$8')'), `', `decode(`$1', `$3')')')
  19 define(`decode', `define(`part1', eval(part1 + $2))ifelse(index(_$0($2,
  20   substr(`$1', 0, 1), substr(`$1', 1)), `NORTH'), -1, `', `define(`part2',
  21   $2)')')
  22 define(`_decode', `ifelse(`$2', `', `', `ifelse(`$2', `-', ` ', `letter(eval(
  23   (_$2 + $1) % 26))')$0($1, substr(`$3', 0, 1), substr(`$3', 1))')')
  24 define(`_room', `define(`$1_', eval($3 - len(translit(`$2', `$1'))))')
  25 ifdef(`__gnu__', `
  26   patsubst(defn(`list'), `\([A-Z-]*\)\([0-9]*\)\(.\)\(.\)\(.\)\(.\)\(.\);',
  27     `room(`\1', len(`\1'), \2, `\3', `\4', `\5', `\6', `\7')')
  28 ',`
  29   define(`prep', `_$0(`$1', eval(len(`$1') - 8))')
  30   define(`_prep', `room(substr(`$1', 0, $2), $2, substr(`$1', $2, 3)forloop(0,
  31     4, `, substr(`$1', eval($2 + 3 + ', `), 1)'))')
  32   define(`chew', `prep(substr(`$1', 0, index(`$1', `;'))))define(`tail',
  33     substr(`$1', incr(index(`$1', `;'))))ifelse(index(defn(`tail'), `;'),
  34     -1, `', `$0(defn(`tail'))')')
  35   define(`split', `ifelse(eval($1 < 140), 1, `chew(`$2')', `$0(eval($1/2),
  36     substr(`$2', 0, eval($1/2)))$0(eval(len(defn(`tail')) + $1 - $1/2),
  37     defn(`tail')substr(`$2', eval($1/2)))')')
  38   split(len(defn(`list')), defn(`list'))
  39 ')
  40
  41 divert`'part1
  42 part2