numof 1 bits in 0 to 255 by pooq

REBOL[]for i 0 255 1[a: 0 for j 0 7 1[a: a + to-integer i /(power 2 j)// 2]prin a]

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

download

return to the top page