2 lines
100 B
Text
2 lines
100 B
Text
|
ldiff(u, n) := block([m: length(u)], for j thru n do u: makelist(u[i + 1] - u[i], i, 1, m - j), u);
|