Numbers with equal rises and falls: Difference between revisions
Content added Content deleted
(Added Java solution) |
|||
Line 1,274: | Line 1,274: | ||
200: 404 |
200: 404 |
||
10000000: 41909002</pre> |
10000000: 41909002</pre> |
||
=={{header|Nim}}== |
|||
<lang Nim>import strutils |
|||
func insequence(n: Positive): bool = |
|||
## Return true if "n" is in the sequence. |
|||
if n < 10: return true |
|||
var diff = 0 |
|||
var prev = n mod 10 |
|||
var n = n div 10 |
|||
while n != 0: |
|||
let digit = n mod 10 |
|||
if digit < prev: inc diff |
|||
elif digit > prev: dec diff |
|||
prev = digit |
|||
n = n div 10 |
|||
result = diff == 0 |
|||
iterator a297712(): (int, int) = |
|||
## Yield the positions and the numbers of the sequence. |
|||
var n = 1 |
|||
var pos = 0 |
|||
while true: |
|||
if n.insequence: |
|||
inc pos |
|||
yield (pos, n) |
|||
inc n |
|||
echo "First 200 numbers in the sequence:" |
|||
for (pos, n) in a297712(): |
|||
if pos <= 200: |
|||
stdout.write ($n).align(3), if pos mod 20 == 0: '\n' else: ' ' |
|||
elif pos == 10_000_000: |
|||
echo "\nTen millionth number in the sequence: ", n |
|||
break</lang> |
|||
{{out}} |
|||
<pre>First 200 numbers in the sequence: |
|||
1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 101 102 |
|||
103 104 105 106 107 108 109 111 120 121 130 131 132 140 141 142 143 150 151 152 |
|||
153 154 160 161 162 163 164 165 170 171 172 173 174 175 176 180 181 182 183 184 |
|||
185 186 187 190 191 192 193 194 195 196 197 198 201 202 203 204 205 206 207 208 |
|||
209 212 213 214 215 216 217 218 219 222 230 231 232 240 241 242 243 250 251 252 |
|||
253 254 260 261 262 263 264 265 270 271 272 273 274 275 276 280 281 282 283 284 |
|||
285 286 287 290 291 292 293 294 295 296 297 298 301 302 303 304 305 306 307 308 |
|||
309 312 313 314 315 316 317 318 319 323 324 325 326 327 328 329 333 340 341 342 |
|||
343 350 351 352 353 354 360 361 362 363 364 365 370 371 372 373 374 375 376 380 |
|||
381 382 383 384 385 386 387 390 391 392 393 394 395 396 397 398 401 402 403 404 |
|||
Ten millionth number in the sequence: 41909002</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |