14 lines
297 B
Text
14 lines
297 B
Text
(for A
|
|
(quote
|
|
"127.0.0.1"
|
|
"127.0.0.1:80"
|
|
"::1"
|
|
"[::1]:80"
|
|
"2605:2700:0:3::4713:93e3"
|
|
"[2605:2700:0:3::4713:93e3]:80" )
|
|
(let I (ipAddress (chop A))
|
|
(tab (-29 34 40 7)
|
|
A
|
|
(hex (car I))
|
|
(format (car I))
|
|
(cdr I) ) ) )
|