Partition with offset and varying size

Question

Assume I have the list below.

 list=Range@20;

Desired partition is:

{{1,2,3,4},{4,5,6,7,8},{8,9,10,11,12},{12,13,14,15,16},{16,17,18,19,20}}

I have tried

Partition[Range@20, 4, 3]

and

FoldPairList[TakeDrop, Range@20, Range[4, 6]]

does not give me what I want. Any suggestion?

What determines the size of the sublist? – Kuba Jan 22 '18 at 07:07 — Kuba, Jan 22 '18 at 07:07
I would like to overlap the end point – OkkesDulgerci Jan 22 '18 at 07:11 — OkkesDulgerci, Jan 22 '18 at 07:11

score 6 · Accepted Answer · answered Jan 22 '18 at 07:11

6

Partition[Range @ 20, 5, 4, {2, 2}, {}]

{{1, 2, 3, 4}, {4, 5, 6, 7, 8}, {8, 9, 10, 11, 12}, {12, 13, 14, 15, 16}, {16, 17, 18, 19, 20}}

answered Jan 22 '18 at 07:11

kglr

OkkesDulgerci · Answer 2 · 2018-01-22T07:20:32.840

3

I found this solution:

Join[{Range@4}, Partition[Range[4, 20], 5, 4]]

{{1, 2, 3, 4}, {4, 5, 6, 7, 8}, {8, 9, 10, 11, 12}, {12, 13, 14, 15,
16}, {16, 17, 18, 19, 20}}

If there is other solution I would like to see them as well.

edited Jan 22 '18 at 07:20

answered Jan 22 '18 at 07:09

OkkesDulgerci

2 Answers2