numof 1 bits in 0 to 255 by *yuko*

var i,n:byte;begin repeat write(n);i:=i+1;n:=n+1-round(ln(i and(-i))/0.7)until i<1end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page