【已总结】[第119期]假如你是无人驾驶车上的电脑，你想好了怎么走吗？

An374938857

ykytom 发表于 2017-11-16 22:15
这几天刚才楼主那学到的

终于看懂了，受教了。

请问这个算法有借鉴什么算法或思想吗？想学一下这个背后的设计思想。因为像广度优先搜索和狄克斯特拉算法都是直接找最短路径，您这个算法是有借鉴类似的某个经典算法设计的吗？感谢

江南156

看不懂

alan57

递归公式

1. =LAMBDA(m,n,LET(_a,$A$2:$A$13&"-"&$B$2:$B$13,_b,DROP(REDUCE(0,m,LAMBDA(x,y,VSTACK(x,FILTER(_a,ISNUMBER(FIND(y,_a)))))),1),_c,TOCOL(TEXTSPLIT(_a,_b,,1),3),_d,UNIQUE(TEXTSPLIT(TEXTJOIN(",",,SUBSTITUTE(MAP(_b,LAMBDA(x,TEXTSPLIT(x,VSTACK($F$2,m),,1))),"-","")),,",")),IF(OR(ISNUMBER(FIND(n,_d))),m&"->"&n,TOCOL(m&"->"&TOROW(gx(_d,n))))))

复制代码

计算公式

1. =LET(_f,DROP(REDUCE(0,gx(F2,F3),LAMBDA(s,t,VSTACK(s,HSTACK(t,LET(_a,TEXTSPLIT(t,,"->"),_b,DROP(REDUCE(0,SEQUENCE(ROWS(_a)-1),LAMBDA(x,y,VSTACK(x,HSTACK(CHOOSEROWS(_a,y),CHOOSEROWS(_a,y+1))))),1),_c,BYROW(_b,LAMBDA(x,LET(_c1,MMULT(ISNUMBER(FIND(TAKE(x,,1),A2:B13))*1,{1;1})*MMULT(ISNUMBER(FIND(TAKE(x,,-1),A2:B13))*1,{1;1}),_c2,FILTER(C2:C13,_c1=1),TEXTJOIN(",",,SUM(_c1)=1,_c2)))),_d1,AND(TEXTBEFORE(_c,",")="TRUE"),_d,IF(ISERROR(_d1),0,HSTACK(_d1,SUM(--TEXTAFTER(_c,",")))),TAKE(_d,,-1)))))),1),TAKE(SORT(FILTER(_f,TAKE(_f,,-1)>0),2),1))

复制代码

alan57

1. =LAMBDA(m,n,z,IF(@m=n,z,LET(_a,VSTACK($A$2:$C$13,CHOOSECOLS($A$2:$C$13,{2,1,3})),_b,FILTER(TAKE(_a,,-2),(TAKE(_a,,1)=@m)*(ISERR(FIND(INDEX(_a,,2),z))),0),REDUCE(0,SEQUENCE(ROWS(_b)),LAMBDA(x,y,IF(SUM(_b)=0,x,LET(_c,INDEX(_b,y,),VSTACK(x,gx(_c,n,TEXTBEFORE(z,":")&"->"&@_c&":"&TEXTAFTER(z,":")+SUM(_c))))))))))

复制代码

上一个答案递归实在太卡，抄超人老师的发一个。

1. =LET(_a,gx(F3,F4,F3&":0"),_b,IFNA(--TEXTAFTER(_a,":"),10^5),FILTER(_a,MIN(_b)=_b))

复制代码

F3为出发点，F4为终点。

peter-chen

牛，留下学习用，谢谢各位老师