(while 1(prn(reduce #(+%1(.indexOf(str(.toString(bigint%2)2)0)"0"))0(re-seq #"\d+"(read-line)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page