numof 1 bits in 0 to 255 by ksk

let(^)=List.map
let rec($)n l=n=0&[]=print_int^l;n-1$l@(+)1^l;;8$[0]

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

download

return to the top page