langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Forward-difference/Standard-ML/forward-difference.ml
+++ b/Task/Forward-difference/Standard-ML/forward-difference.ml
@ -0,0 +1,7 @@
+fun forward_difference xs = ListPair.map op- (tl xs, xs)
+
+fun nth_forward_difference n xs =
+  if n = 0 then
+    xs
+  else
+    nth_forward_difference (n-1) (forward_difference xs)