13 lines
304 B
Text
13 lines
304 B
Text
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}
|
|
]
|