Data update

Task/Numbers-with-equal-rises-and-falls/PascalABC.NET/numbers-with-equal-rises-and-falls.pas

@@ -0,0 +1,17 @@
+function a296712(): sequence of integer;
+begin
+  foreach var n in 1.step do
+    if n.ToString
+        .Pairwise((x, y) -> (if x > y then 1 else if x < y then -1 else 0))
+        .Sum = 0 then
+      yield n;
+end;
+
+begin
+  println('The first 200 numbers are:');
+  a296712.Take(200).Print;
+  println;
+  println;
+  println('The 10,000,000th number is:');
+  a296712.ElementAt(10_000_000 - 1).Println;
+end.