2022/day18.golfm4

   1 define(d,defn(define))d(e,E($1)E($2)E($3))d(E,`eval(($1)%23).')d(v,`translit(
   2 A(BC+D@)A(D1,BC+D2,D3)A(D@+BC),A-D,$1$)')eval(translit(_(include(i)),d(_,
   3 `ifelse($1,,,`d(e($@))_(shift(shift(shift($@))))+6c($1,$2,$3)')')
   4 ,`,'d(c,v(s01))d(s,`ifdef(e($@),-2)'))) len(d(x,v(h01)v(h22))d(h,
   5 `ifdef(e($@),.,`ifdef(/e($@),,`d(/e($@))x($@)')')')h(0,0,0))