day 20 part 1

[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,1,$2+,$1$3,>,,$1,>,`+($2)*(1+
$4)*$5_(>,_(_($,!($7-$4)),$2)1,_(^_(@,$@)))',$1$3,-,,$1$2,-$3,`,_(^_(@,$@))',0,
$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',$1$4,%=,`_(&,_(&,$2,61),$5+48
),(^_(+,$3,$2,$5',$1,%,`_(%,_(&,$2,_($4)),$3$4,_(~,($5,0,1)),_(~,($5,1)))',
$1,,,index(bcdefghijklmnopqrstuvwxyz,$1)+98)')_($,_(!,,,include(I)))