diff options
Diffstat (limited to 'day4/cntbits.TXT')
| -rw-r--r-- | day4/cntbits.TXT | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/day4/cntbits.TXT b/day4/cntbits.TXT new file mode 100644 index 0000000..4360326 --- /dev/null +++ b/day4/cntbits.TXT @@ -0,0 +1,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\
|