2 c=and
(rshift
(c
, 1),0x55555555)+and
(c
,0x55555555)
3 c=and
(rshift
(c
, 2),0x33333333)+and
(c
,0x33333333)
4 c=and
(rshift
(c
, 4),0x0f0f0f0f)+and
(c
,0x0f0f0f0f)
5 c=and
(rshift
(c
, 8),0x00ff00ff)+and
(c
,0x00ff00ff)
6 c=and
(rshift
(c
,16),0x0000ffff)+and
(c
,0x0000ffff)
11 for (ret=
0,n=
split(ip
,a
,"\."),x=
1;x
<=n
;x
++) ret=or
(lshift
(ret
,8),a
[x
])
15 function int2ip
(ip
,ret
,x
) {
18 for(;x
<3;ret=and
(ip
,255)"."ret
,ip=rshift
(ip
,8),x
++);