Forward difference: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,524: / Line 1,524: @@
 =={{header|M2000 Interpreter}}==
+Function Diff(a()) get an array by value (a shallow copy)
 <lang M2000 Interpreter>
 Form 80, 40
@@ Line 1,531: / Line 1,532: @@
       a()=(90,47,58,29,22,32,55,5,55,73)
       Function Diff(a()) {
-            dim b(len(a())-1)
+            for i=0 to len(a())-2: a(i)=a(i+1)-a(i):Next i
-            for i=0 to len(b())-1: b(i)=a(i+1)-a(i):Next i
+            Dim a(len(a())-1) ' redim one less
-            =b()
+            =a()
       }
       Print "Original:","",a()