numof 1 bits in 0 to 255 by pooq

0/0:-!.
A/B:-D is A>>1,D/E,B is E+(A/\1).
m:-between(0,255,N),N/X,\+write(X).

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

download

return to the top page