Forward difference: Difference between revisions

m
Line 1,380:
=={{header|Oforth}}==
 
<lang Oforth>: forwardDiff(l) { l right(l size 1 -) l zipWith(#-) };
: forwardDiffN(n, l) { l #[ forwardDiff dup println ] times(n) };
 
forwardDiffN(10, [ 90, 47, 58, 29, 22, 32, 55, 5, 55, 73])</lang>
1,015

edits