RosettaCodeData/Task/Forward-difference/SequenceL/forward-difference-2.sequencel
2023-07-01 13:44:08 -04:00

3 lines
122 B
Text

forwardDifference(x(1),n) :=
x when n = 0 or size(x) = 1 else
forwardDifference(tail(x) - x[1 ... size(x) - 1], n - 1);