Network mask v2 by uru

var a,b:word;x:char;begin
repeat
read(a);repeat
read(x,b);a:=b+a*256until eoln;writeln(32-ln(not a+1.0)/0.7:0:0)until 1=0end.

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

download

return to the top page