人工智障--IP 智能识别

假如给定一串文本型数字串，要你智能写出所有IP可能怎么玩？
先上一个初级套路：

来开始优化吧，，，
怎么测速度？
4位、5位、6位、7位、8位、9位、10位、11位、12位、13位各搞1万个随机数呗，，，

let
fx=(m as text)=>if Text.Length(m)>12 or Text.Length(m)<4 then "位数超限" else 
List.Zip(List.Accumulate({1..4},{{m,""}},(p,q)=>
List.TransformMany(p,each 
if q=4 then (if Number.From(_{0})>255 or _{0}="" or _{0}&"畅"<"0畅" then {} else {Text.Length(_{0})}) else
//(Number.From(_{0})??666)>255简写_{0}=""的判断，，，
if _{0}="" then {} else
if _{0}<"1" then {1} else 
if Number.From(Text.Start(_{0},3))>255 then {1,2} else {1..3},
(x,y)=>{Text.Middle(x{0},y),x{1}&(if q=1 then "" else ".")&Text.Start(x{0},y)}))){1}
in
fx

道高一尺 魔高一丈
https://pbihub.cn/users/44