From dcebd44260fa67b04d217e778265982393ccc032 Mon Sep 17 00:00:00 2001 From: Andreas Grois Date: Wed, 17 Dec 2025 07:30:19 +0100 Subject: Day4: Comment programs and export text version. --- day4/cntbits.TXT | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 day4/cntbits.TXT (limited to 'day4/cntbits.TXT') 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\ -- cgit v1.2.3