Forward difference: Difference between revisions

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 ⟶ 1,532:
a()=(90,47,58,29,22,32,55,5,55,73)
Function Diff(a()) {
dimfor i=0 to b(len(a())-2: a(i)=a(i+1)-a(i):Next i
for i=0 toDim a(len(ba())-1:) b(i)=a(i+1)-a(i):Next' redim one iless
=ba()
}
Print "Original:","",a()
Anonymous user