day4/cntbits.TXT


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

\START92\
\COMMENT=Counts the bits set to 1 in v
\NAME=cntbits
\FILE=day4.cntbits.92f
(v)
Func
Local r,t
0\->\r
While v>0
 v/2\->\t
 floor(t)\->\v
 If t\!=\v Then
  r+1\->\r
 EndIf
EndWhile
EndFunc

\STOP92\