Numbers with equal rises and falls: Difference between revisions
Content added Content deleted
(add freebasic) |
|||
Line 944: | Line 944: | ||
200: 404 |
200: 404 |
||
10000000: 41909002</pre> |
10000000: 41909002</pre> |
||
=={{header|Perl}}== |
|||
<lang perl>#!/usr/bin/perl |
|||
use strict; |
|||
use warnings; |
|||
sub rf |
|||
{ |
|||
local $_ = shift; |
|||
my $sum = 0; |
|||
$sum += $1 <=> $2 while /(.)(?=(.))/g; |
|||
$sum |
|||
} |
|||
my $count = 0; |
|||
my $n = 0; |
|||
my @numbers; |
|||
while( $count < 200 ) |
|||
{ |
|||
rf(++$n) or $count++, push @numbers, $n; |
|||
} |
|||
print "first 200: @numbers\n" =~ s/.{1,70}\K\s/\n/gr; |
|||
$count = 0; |
|||
$n = 0; |
|||
while( $count < 10e6 ) |
|||
{ |
|||
rf(++$n) or $count++; |
|||
} |
|||
print "\n10,000,000th number: $n\n";</lang> |
|||
{{out}} |
|||
<pre> |
|||
first 200: 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 |
|||
10,000,000th number: 41909002 |
|||
</pre> |
|||
=={{header|Phix}}== |
=={{header|Phix}}== |