RosettaCodeData/Task/Forward-difference/Maxima/forward-difference.maxima

ldiff(u, n) := block([m: length(u)], for j thru n do u: makelist(u[i + 1] - u[i], i, 1, m - j), u);