分享：数字转圈圈，烧脑VBA题，PowerQuery解法

AbleZeng

烧脑VBA题，PQ解法，鸣谢 飞天篮球猪 提供的技术帮助。相关文章：

PQ求助，一列数字，按照指定数字依次分段

http://club.excelhome.net/thread-1509437-1-1.html

Power Query求助：List顺序上下摆放

http://club.excelhome.net/thread-1509770-1-1.html

1. let
   
2.     Change1 = (x) =>Table.ToRows(Table.FromColumns(x)),
   
3.     顺序 = {2..27},
   
4.     Source = {1..225},
   
5.     分组依据 = 分组依据[分组依据],
   
6.     转换 = let  a = List.Buffer(Source),
   
7.                 b = List.Buffer(分组依据),
   
8.                 n = List.Count(b)
   
9.             in List.Skip(
   
10.                         List.Generate(()=>{"",0,0},
    
11.                                       each _{2} <= n,
    
12.                                       each {Text.Format("{#{0}..#{1}}",{ a{_{1}},a{_{1}+b{_{2}}-1} }),
    
13.                                             _{1}+b{_{2}},
    
14.                                             _{2}+1
    
15.                                            },
    
16.                                       each _{0}
    
17. 
    
18.                         )
    
19.                 ),
    
20.     源数据 = List.Reverse(List.Transform(转换,each Expression.Evaluate(_))),
    
21.     起始List = {List.First(源数据)} & {List.Reverse(List.FirstN(源数据,2){1})},
    
22.     拼接 = let a = List.Buffer(起始List),
    
23.                b = List.Buffer(源数据),
    
24.                c = List.Buffer(顺序),
    
25.                d = List.Max(顺序),
    
26.                e = Change1
    
27.             in List.Skip(
    
28.                         List.Generate(()=>{a,0,0},
    
29.                                       each _{1}<d,
    
30.                                       each [i = Number.Mod(_{1},4),
    
31.                                             r = {{ e(_{0}) & {b{c{_{2}}}},
    
32.                                                    {b{c{_{2}}}} & e(_{0}),
    
33.                                                    {List.Reverse(b{c{_{2}}})} & e(_{0}),
    
34.                                                    e(_{0}) & {List.Reverse(b{c{_{2}}})}
    
35.                                                  }{i},
    
36.                                                  _{1}+1,
    
37.                                                  _{2}+1}
    
38.                                            ][r],
    
39.                                       each _{0}
    
40. 
    
41.                         )
    
42. 
    
43.             ),
    
44.     输出 = Table.FromRows(List.Last(拼接))
    
45. in
    
46.     输出

复制代码

飞天篮球猪

螺旋矩阵有解法的，还有另外几种变式

wdx223

飞天篮球猪 发表于 2019-11-27 08:13
螺旋矩阵有解法的，还有另外几种变式

大佬懂得真多！

飞天篮球猪

wdx223 发表于 2019-11-27 09:15
大佬懂得真多！

冬佬，有空耍一哈螺旋矩阵

deadzlq

再调整一下

飞天篮球猪

这种顺时针的n*n矩阵.....这个不是最优解，仅供参考

1. let
   
2.     Table.SpiralMatrix=(n)=>
   
3.                             let
   
4.                                 //先生成一张n×n的空表格t,然后ToRecords,比如15×15
   
5.                                 t = Table.ToRecords(#table(List.Transform({0..n-1},Text.From),List.Repeat({List.Repeat({""},n)},n))),
   
6.      
   
7.                                 s = List.Accumulate( {0..Number.RoundDown((n-1)/2)},  //这个表示由外而内需要循环的圈数。
   
8.                                                      {t,0},   //{源和变化后的records,每一圈循环的起始值在list{1..n*n}中的位置}
   
9.                                                      (x,y)=>let i = (n-y)*4-(y+1)*4  //这个i表示每一圈循环的数的个数，比如第1圈56个数，第2圈48个数...
   
10.                                                              in { List.Accumulate( List.Range({1..n*n},x{1},if i=0 then 1 else i), //每一圈循环的那些数取值
    
11.                                                                                    {x{0},y,y}, //这里的y,y是指某行某列
    
12.                                                                                    (s,c)=>let fld = Text.From(s{2}),
    
13.                                                                                               rcd = Record.FromList({c},{fld}),
    
14.                                                                                               lst = List.ReplaceRange(s{0},s{1},1,{s{0}{s{1}}&rcd})
    
15. 
    
16.                                                                                            in if s{1}=y and s{2}=y then {lst,s{1},s{2}+1} else  //循环起点
    
17.                                                                                               if s{1}=y and s{2}<n-y-1 then {lst,s{1},s{2}+1} else  //往右
    
18.                                                                                               if s{1}<n-y-1 and s{2}=n-y-1 then {lst,s{1}+1,s{2}} else //往下
    
19.                                                                                               if s{1}=n-y-1 and s{2}>y then {lst,s{1},s{2}-1} else  //往左
    
20.                                                                                               {lst,s{1}-1,s{2}}){0}, //往上
    
21.                                                                   x{1}+(n-y)*4-(y+1)*4 }  //下一次循环取数的起点位置
    
22.                                                     ),
    
23. 
    
24.                                r = Table.FromRecords(s{0})
    
25.                            in
    
26.                                r,
    
27. 
    
28.     Output = Table.SpiralMatrix(15)
    
29. in
    
30.     Output

复制代码

AbleZeng

deadzlq 发表于 2019-11-27 10:59
再调整一下

老师优化的赞，Number.Power用的太精髓了。学习学习

飞天篮球猪

fyi...m行n列按顺时针方向行进由外而内的螺旋矩阵目前还没发现bug

EX萌新

学习了学习了，这个就厉害了，第一次接触这个，比较震撼

AbleZeng

wdx223 发表于 2019-11-27 09:15
大佬懂得真多！

冬佬，你是怎么给的三朵花？