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