2016/day3.m4

   1 divert(-1)dnl -*- m4 -*-
   2 # Usage: m4 [-Dfile=day3.input] day3.m4
   3
   4 include(`common.m4')ifelse(common(3), `ok', `',
   5 `errprint(`Missing common initialization
   6 ')m4exit(1)')
   7
   8 define(`list', translit(include(defn(`file')), nl))
   9 define(`part1', 0)define(`part2', 0)
  10 define(`valid', `_$0($1, $2, $3, 1)_$0($4, $5, $6, 1)_$0($7, $8, $9, 1)_$0($1,
  11   $4, $7, 2)_$0($2, $5, $8, 2)_$0($3, $6, $9, 2)')
  12 define(`_valid', `ifelse(eval($1 + $2 > $3 && $2 + $3 > $1 && $3 + $1 > $2),
  13   1, `define(`part$4', incr(part$4))')')
  14 ifdef(`__gnu__', `
  15   define(`d', ` *\([0-9][0-9]*\)')
  16   patsubst(defn(`list'), d()d()d()d()d()d()d()d()d(),
  17     `valid(\1, \2, \3, \4, \5, \6, \7, \8, \9)')
  18 ', `
  19   define(`prep', `valid(shift(forloop(0, 8, `, substr(`$1', eval(', ` * 5),
  20     5)')))')
  21   define(`half', `eval($1/45/2*45)')
  22   define(`chew', `ifelse($1, 45, `prep(`$2')', `$0(half($1), substr(`$2', 0,
  23     half($1)))$0(eval($1-half($1)), substr(`$2', half($1)))')')
  24   chew(len(defn(`list')), defn(`list'))
  25 ')
  26
  27 divert`'part1
  28 part2