Data update

Task/Forward-difference/EasyLang/forward-difference.easy

@@ -0,0 +1,13 @@
+func[] fwddiff s[] n .
+   for i to n
+      for j = 1 to len s[] - 1
+         s[j] = s[j + 1] - s[j]
+      .
+      len s[] -1
+   .
+   return s[]
+.
+s[] = [ 90 47 58 29 22 32 55 5 55 73 ]
+print fwddiff s[] 1
+print fwddiff s[] 2
+print fwddiff s[] 9

Task/Forward-difference/PascalABC.NET/forward-difference.pas

@@ -0,0 +1,17 @@
+function Convert(a: array of integer): array of integer;
+begin
+  var n := a.Length;
+  var res := new integer[n-1];
+  for var i:=0 to n-2 do
+    res[i] := a[i+1]-a[i];
+  Result := res;
+end;
+
+begin
+  var a := |90, 47, 58, 29, 22, 32, 55, 5, 55, 73|;
+  while a.Length > 0 do
+  begin
+    Println(a);
+    a := Convert(a);
+  end;
+end.