day4/cnt3bits.TXT


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

\START92\
\COMMENT=Optimized version of cntbits for v < 8
\NAME=cnt3bits
\FILE=day4.cnt3bits.92f
(v)
Func
If v=0 Then
 Return 0
ElseIf v=7 Then
 Return 3
ElseIf v=1 or v=2 or v=4 Then
 Return 1
Else
 Return 2
EndIf
EndFunc

\STOP92\