summaryrefslogtreecommitdiff
path: root/day4/zerobit.TXT
blob: 628a2a5b2020028b66150f93e47b4e2219a0fd57 (plain) (blame)
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\