(phixonline)-->
with javascript_semantics
function fwd_diff_n(sequence s, integer order)
assert(order<length(s))
s = deep_copy(s)
for i=1 to order do
for j=1 to length(s)-1 do
s[j] = s[j+1]-s[j]
end for
s = s[1..-2]
end for
return s
end function
constant s = {90, 47, 58, 29, 22, 32, 55, 5, 55, 73}
for i=1 to 9 do
?fwd_diff_n(s,i)
end for