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