2019/day5.m4

   1 divert(-1)dnl -*- m4 -*-
   2 # Usage: m4 [-Dfile=day5.input] day5.m4
   3
   4 include(`intcode.m4')ifelse(intcode(5), `ok', `',
   5 `errprint(`Missing IntCode initialization
   6 ')m4exit(1)')
   7
   8 parse(input)
   9 no64()
  10 define(`write', `ifelse($1, 0, `', `divert`'$1
  11 divert(-1)')')
  12 define(`try', `
  13   save()
  14   define(`read', $1)
  15   run(0)
  16   restore()')
  17 try(1)
  18 try(5)