day 15 golfed m4, 829 effective bytes

[aoc_eblake.git] / 2023 / day15.golfm4

define(_,`ifelse(index($1,^),0,`shift($@)',$1,$,`eval($2)',$1,~,`substr$2',$1,@,
`_(^_(^_(^_(^_(^$@)))))',$1,&,($3+$2)*17%256,$1$3,?0,$2+,$1$3,>,,$1,>,`+($2)*(1+
$4)*$5_(>,_(?,$2,_($,$4-$7+0))1,_(^_(@,$@)))',$1$3,-,,$1$2,-$3,`,_(^_(@,$@))',
$1,-,`,$3,$4,$5_(-,$2,_(^_(@,$@)))',$1$2,*1+,`,$3,$4,$5,$6,$7,$8,_(^',$1$3,*$6,
`,$3,$4,$5,_(^',$1,*,`,$6,$7,$8_(+,$3,$4,$5',$1$5,+,`,$2,$3,$4',$1,+,`_(*,_($,$3
<$6)$@),_(@,_(@,,$@)))',$1$4,!,`$2) _($,_(>,1,_$3)',$1,!,`$2_(!,+_(%,0,,,$4,$3),
_(@,$@))',$1$4,%-,`_(&,$2,45),(^_(-,$3,_$6))',$1$4,%=,`_(&,_(&,$2,61),$5+48),(^
_(+,$3,$2,$5,_$6))',$1,%,`_(%,_(&,$2,_($4)),$3$4,_(~,($5,0,1)),_(~,($5,1)),$6)',
$1,b,98,$1,c,99,$1,d,100,$1,f,102,$1,g,103,$1,h,104,$1,j,106,$1,k,107,$1,l,108,
$1,m,109,$1,n,110,$1,p,112,$1,q,113,$1,r,114,$1,s,115,$1,t,116,$1,v,118,$1,x,
120,$1,z,122,$1,a,97,$1,o,111)')_($,_(!,,,include(I)))