Numbers with equal rises and falls: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: syntax coloured) |
|||
Line 1,062: | Line 1,062: | ||
The 10,000,000th number is: 41909002 |
The 10,000,000th number is: 41909002 |
||
</pre> |
</pre> |
||
=={{header|J}}== |
|||
<lang J> NB. This would have been shorter but memory constraints forced me to test candidates |
|||
NB. in batches rather than all at once (iPads are amazing but not supercomputers...) |
|||
gennumberblocks =: 3 : 0 |
|||
NB. y Block index. Each block is at most 100000 numbers |
|||
NB. Return one or more boxed blocks of numbers, segregated by digit count |
|||
(<. 10 ^. n) </. n =. (y * 100000) + >: i.100000 |
|||
) |
|||
testblock =: 3 : 0 |
|||
NB. y A block of numbers all with the same digit count |
|||
NB. Return those that pass the test |
|||
y #~ (s =: (+/"1) 2 </\"1 f) = t =: (+/"1) 2 >/\"1 f =: "."1"0 ": ,. y |
|||
) |
|||
pow =: 3 : 0 |
|||
NB. Generate and test one or more blocks of numbers and add the results to the |
|||
NB. running list of answers |
|||
'nextblockindex answers' =. y |
|||
(>: nextblockindex) ; answers , ; testblock &. > gennumberblocks nextblockindex |
|||
) |
|||
go =: 3 : 0 |
|||
result =: pow ^: ((1e7&>)@#@(1&{::)) ^:_ (0 ; '') |
|||
'The first 200 numbers are:' (1!:2) 2 |
|||
(10 20 $ 200 {. 1 {:: result) (1!:2) 2 |
|||
'The 10,000,000th number is: ' , ": 9999999 { 1 {:: result |
|||
)</lang> |
|||
{{out}} |
|||
<pre>go '' |
|||
The first 200 numbers are: |
|||
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 |
|||
The 10,000,000th number is: 41909002 </pre> |
|||
=={{header|Java}}== |
=={{header|Java}}== |