九九归真

= Table.FromColumns(List.Accumulate({1..9},{{},{1..9}},(x,y)=>{x{0}&{x{1}},List.Skip(x{1})&{y}}){0})

= Table.FromColumns(List.Generate(()=>[a={1..9},b=0],each [b]<9 ,each [a=List.Skip([a])&{[a]{0}},b=[b]+1],each [a]))

= let a = Text.ToList("东南西北"),b=List.Accumulate(a,{{},a },(x,y)=>{x{0}&{x{1}} ,List.Skip(x{1})&{y}}){0} in Table.FromColumns(b)

= let a = Text.ToList("东南西北"),b=List.Accumulate(a,{{},"东南西北" },(x,y)=>{x{0}&{x{1}},Text.TrimStart(x{1},y)&y}){0} in b

再收录群里大佬的衍生案例:由@月照菩提 提供

随便补充一个布局:

= Table.FromColumns(List.Accumulate({1..9,0},{{},{0..9}},(x,y)=>{x{0}&{x{1}},{y}&List.RemoveItems(x{1},{y})}){0})