Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Numbers-with-equal-rises-and-falls/Mathematica/numbers-with-equal-rises-and-falls.math
+++ b/Task/Numbers-with-equal-rises-and-falls/Mathematica/numbers-with-equal-rises-and-falls.math
@ -0,0 +1,13 @@
+ClearAll[EqualRisesAndFallsQ]
+EqualRisesAndFallsQ[n_Integer] := Total[Sign[Differences[IntegerDigits[n]]]] == 0
+Take[Select[Range[1000], EqualRisesAndFallsQ], 200]
+valid = 0;
+Dynamic[{i, valid}]
+Do[
+ If[EqualRisesAndFallsQ[i],
+  valid += 1;
+  If[valid == 10^7, Print[i]; Break[]]
+  ]
+ ,
+ {i, 50 10^6}
+ ]