day 15 golf again, 709 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,,$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,,,index(bcdefghijklmnopqrstuvwxyz,$1)+98)')_($,_(!,,,include(I)))