2 lines
121 B
Forth
2 lines
121 B
Forth
: forwardDiff(l) l right(l size 1 -) l zipWith(#-) ;
|
|
: forwardDiffN(n, l) l #[ forwardDiff dup println ] times(n) ;
|