# Return to Answer

 3 deleted 13 characters in body edited Jul 10 '17 at 9:57 user1066 6,52822 gold badges2020 silver badges3333 bronze badges Another approach, using Inner: Edit As per J.M's comment above regarding Table: s // Inner[Table, #, RotateLeft@#, List] &  (As per J.M's comment above regarding Table) Original Post s // Inner[NestList[# &, #1, #2 - 1] &, #, RotateLeft@#, List] &  {{3, 3, 3, 3}, {4, 4, 4, 4, 4, 4}, {6}, {1, 1}, {2, 2, 2, 2, 2}, {5, 5, 5}} Alternatively: s // Inner[ConstantArray, #, RotateLeft@#, List] &  Another approach, using Inner: Edit As per J.M's comment above regarding Table: s // Inner[Table, #, RotateLeft@#, List] &  Original Post s // Inner[NestList[# &, #1, #2 - 1] &, #, RotateLeft@#, List] &  {{3, 3, 3, 3}, {4, 4, 4, 4, 4, 4}, {6}, {1, 1}, {2, 2, 2, 2, 2}, {5, 5, 5}} Alternatively: s // Inner[ConstantArray, #, RotateLeft@#, List] &  Another approach, using Inner: s // Inner[Table, #, RotateLeft@#, List] &  (As per J.M's comment above regarding Table) Original Post s // Inner[NestList[# &, #1, #2 - 1] &, #, RotateLeft@#, List] &  {{3, 3, 3, 3}, {4, 4, 4, 4, 4, 4}, {6}, {1, 1}, {2, 2, 2, 2, 2}, {5, 5, 5}} Alternatively: s // Inner[ConstantArray, #, RotateLeft@#, List] &  2 add Table solution edited Jul 10 '17 at 9:03 user1066 6,52822 gold badges2020 silver badges3333 bronze badges Another approach, using InnerInner: Edit As per J.M's comment above regarding Table: s // Inner[Table, #, RotateLeft@#, List] &  Original Post s // Inner[NestList[# &, #1, #2 - 1] &, #, RotateLeft@#, List] &  {{3, 3, 3, 3}, {4, 4, 4, 4, 4, 4}, {6}, {1, 1}, {2, 2, 2, 2, 2}, {5, 5, 5}} Alternatively: s // Inner[ConstantArray, #, RotateLeft@#, List] &  Another approach, using Inner: s // Inner[NestList[# &, #1, #2 - 1] &, #, RotateLeft@#, List] &  {{3, 3, 3, 3}, {4, 4, 4, 4, 4, 4}, {6}, {1, 1}, {2, 2, 2, 2, 2}, {5, 5, 5}} Alternatively: s // Inner[ConstantArray, #, RotateLeft@#, List] &  Another approach, using Inner: Edit As per J.M's comment above regarding Table: s // Inner[Table, #, RotateLeft@#, List] &  Original Post s // Inner[NestList[# &, #1, #2 - 1] &, #, RotateLeft@#, List] &  {{3, 3, 3, 3}, {4, 4, 4, 4, 4, 4}, {6}, {1, 1}, {2, 2, 2, 2, 2}, {5, 5, 5}} Alternatively: s // Inner[ConstantArray, #, RotateLeft@#, List] &  1 answered Jul 9 '17 at 22:21 user1066 6,52822 gold badges2020 silver badges3333 bronze badges Another approach, using Inner: s // Inner[NestList[# &, #1, #2 - 1] &, #, RotateLeft@#, List] &  {{3, 3, 3, 3}, {4, 4, 4, 4, 4, 4}, {6}, {1, 1}, {2, 2, 2, 2, 2}, {5, 5, 5}} Alternatively: s // Inner[ConstantArray, #, RotateLeft@#, List] &