Data commit

Task/Numbers-with-equal-rises-and-falls/PureBasic/numbers-with-equal-rises-and-falls.basic

@@ -0,0 +1,39 @@
+Procedure.b eqrf(n.i)
+  sn.s = Str(n)
+  q.i = 0
+
+  For i.i = 2 To Len(sn)
+    If Asc(Mid(sn, i, 1)) > Asc(Mid(sn, i - 1, 1)):
+      q + 1
+    Else
+      If Asc(Mid(sn, i, 1)) < Asc(Mid(sn, i - 1, 1)):
+        q - 1
+      EndIf
+    EndIf
+  Next
+  If q = 0:
+    ProcedureReturn #True
+  Else
+    ProcedureReturn #False
+  EndIf
+
+EndProcedure
+
+OpenConsole()
+c.i = 0
+i.i = 1
+While c < 10000001
+  If eqrf(i):
+    c + 1
+    If c <= 200:
+      Print(" " + Str(i))
+    EndIf
+    If c = 10000000:
+      PrintN(#CRLF$ + Str(i))
+    EndIf
+  EndIf
+  i + 1
+Wend
+
+Input()
+CloseConsole()