1 2 3 4 5 6 7 8 9 10
\START92\ \COMMENT=Zeros the pth bit in i (1-based) \NAME=zerobit \FILE=day4.zerobit.92f (i,p) Func i-2^(p-1)*mod(floor(i/2^(p-1)),2) EndFunc \STOP92\