Rebol3 Code Examplex
Palindromic gapful numbers
Find gapful numbers that are also palindromes.
Rebol [
title: "Rosetta code: Palindromic gapful numbers"
file: %Palindromic_gapful_numbers.r3
url: https://rosettacode.org/wiki/Palindromic_gapful_numbers
note: "Based on Go language solution"
needs: 3.0.0
]
palindromic-gapful-numbers: function/with [data [block!]][
max: 100000 ;; Maximum number of palindromic gapful numbers to find
max-digits: 10
max-to-find: 0
p: 0 ;; Current palindrome being tested
results: make map! 12000 ;; Map to store results: index -> [d1 d2 d3 ... d9]
foreach d data [ ;; Initialize result rows for requested indices
for i d/1 d/2 1 [
results/(to integer! i): copy [0 0 0 0 0 0 0 0 0] ;; Each row has 9 slots for digits 1-9
max-to-find: max-to-find + 9
]
]
;; For each ending digit d = 1..9, generate palindromes and collect those divisible by d*11
repeat d 9 [
count: 0 ;; Count of valid palindromes found for digit d
pow: 1 ;; Power of 10 for constructing palindromes
divisor: d * 11 ;; Divisor: d repeated (11, 22, 33, ..., 99)
done?: false ;; Flag to break out of nested loops
for nd 3 max-digits 1 [ ;; Test palindromes of 3 to max-digits
slim: (d + 1) * pow ;; Upper limit for left half generation
for s d * pow slim - 1 1 [ ;; Generate left half starting with digit d
e: rev10 s ;; Reverse s to create right half
mlim: pick [9 0] odd? nd ;; Middle digit limit: 0-9 for odd length, none for even
for m 0 mlim 1 [ ;; Iterate middle digit (if odd length)
p: either even? nd [
(s * pow * 10) + e ;; Even length: concatenate left + right
][
(s * pow * 100) + (m * pow * 10) + e ;; Odd length: left + middle + right
]
if zero? p % divisor [ ;; Check if palindrome is divisible by d*11 (gapful)
count: count + 1 ;; Increment count for this digit
row: select results count ;; Get result row for this position
if block? row [
poke row d p ;; Store palindrome in column d
prin [clear-screen max-to-find mold row]
;; Stop if we've found enough
-- max-to-find
if zero? max-to-find [done?: true break]
]
]
]
if done? [break] ;; Break out of s loop
]
if odd? nd [pow: pow * 10] ;; Increase power for next digit length
if done? [break] ;; Break out of nd loop
]
]
prin clear-screen
results
][
clear-screen: "^[[H^[[2J^[[3J"
;; Helper function: Reverse the base-10 digits of a positive integer
rev10: function [s [integer!]] [
e: 0
while [s > 0] [
e: e * 10 + mod s 10 ;; Build reversed number digit by digit
s: to integer! s / 10 ;; Remove last digit from s
]
e
]
]
results: palindromic-gapful-numbers [1x20 86x100 991x1000]
? results
Output:
[H[2J[3J 405 [121 0 0 0 0 0 0 0 0][H[2J[3J 404 [1001 0 0 0 0 0 0 0 0][H[2J[3J 403 [1111 0 0 0 0 0 0 0 0][H[2J[3J 402 [1221 0 0 0 0 0 0 0 0][H[2J[3J 401 [1331 0 0 0 0 0 0 0 0][H[2J[3J 400 [1441 0 0 0 0 0 0 0 0][H[2J[3J 399 [1551 0 0 0 0 0 0 0 0][H[2J[3J 398 [1661 0 0 0 0 0 0 0 0][H[2J[3J 397 [1771 0 0 0 0 0 0 0 0][H[2J[3J 396 [1881 0 0 0 0 0 0 0 0][H[2J[3J 395 [1991 0 0 0 0 0 0 0 0][H[2J[3J 394 [10901 0 0 0 0 0 0 0 0][H[2J[3J 393 [11011 0 0 0 0 0 0 0 0][H[2J[3J 392 [12221 0 0 0 0 0 0 0 0][H[2J[3J 391 [13431 0 0 0 0 0 0 0 0][H[2J[3J 390 [14641 0 0 0 0 0 0 0 0][H[2J[3J 389 [15851 0 0 0 0 0 0 0 0][H[2J[3J 388 [17171 0 0 0 0 0 0 0 0][H[2J[3J 387 [18381 0 0 0 0 0 0 0 0][H[2J[3J 386 [19591 0 0 0 0 0 0 0 0][H[2J[3J 385 [165561 0 0 0 0 0 0 0 0][H[2J[3J 384 [166661 0 0 0 0 0 0 0 0][H[2J[3J 383 [167761 0 0 0 0 0 0 0 0][H[2J[3J 382 [168861 0 0 0 0 0 0 0 0][H[2J[3J 381 [169961 0 0 0 0 0 0 0 0][H[2J[3J 380 [170071 0 0 0 0 0 0 0 0][H[2J[3J 379 [171171 0 0 0 0 0 0 0 0][H[2J[3J 378 [172271 0 0 0 0 0 0 0 0][H[2J[3J 377 [173371 0 0 0 0 0 0 0 0][H[2J[3J 376 [174471 0 0 0 0 0 0 0 0][H[2J[3J 375 [175571 0 0 0 0 0 0 0 0][H[2J[3J 374 [176671 0 0 0 0 0 0 0 0][H[2J[3J 373 [177771 0 0 0 0 0 0 0 0][H[2J[3J 372 [178871 0 0 0 0 0 0 0 0][H[2J[3J 371 [179971 0 0 0 0 0 0 0 0][H[2J[3J 370 [17799771 0 0 0 0 0 0 0 0][H[2J[3J 369 [17800871 0 0 0 0 0 0 0 0][H[2J[3J 368 [17811871 0 0 0 0 0 0 0 0][H[2J[3J 367 [17822871 0 0 0 0 0 0 0 0][H[2J[3J 366 [17833871 0 0 0 0 0 0 0 0][H[2J[3J 365 [17844871 0 0 0 0 0 0 0 0][H[2J[3J 364 [17855871 0 0 0 0 0 0 0 0][H[2J[3J 363 [17866871 0 0 0 0 0 0 0 0][H[2J[3J 362 [17877871 0 0 0 0 0 0 0 0][H[2J[3J 361 [17888871 0 0 0 0 0 0 0 0][H[2J[3J 360 [121 242 0 0 0 0 0 0 0][H[2J[3J 359 [1001 2002 0 0 0 0 0 0 0][H[2J[3J 358 [1111 2112 0 0 0 0 0 0 0][H[2J[3J 357 [1221 2222 0 0 0 0 0 0 0][H[2J[3J 356 [1331 2332 0 0 0 0 0 0 0][H[2J[3J 355 [1441 2442 0 0 0 0 0 0 0][H[2J[3J 354 [1551 2552 0 0 0 0 0 0 0][H[2J[3J 353 [1661 2662 0 0 0 0 0 0 0][H[2J[3J 352 [1771 2772 0 0 0 0 0 0 0][H[2J[3J 351 [1881 2882 0 0 0 0 0 0 0][H[2J[3J 350 [1991 2992 0 0 0 0 0 0 0][H[2J[3J 349 [10901 20702 0 0 0 0 0 0 0][H[2J[3J 348 [11011 21912 0 0 0 0 0 0 0][H[2J[3J 347 [12221 22022 0 0 0 0 0 0 0][H[2J[3J 346 [13431 23232 0 0 0 0 0 0 0][H[2J[3J 345 [14641 24442 0 0 0 0 0 0 0][H[2J[3J 344 [15851 25652 0 0 0 0 0 0 0][H[2J[3J 343 [17171 26862 0 0 0 0 0 0 0][H[2J[3J 342 [18381 28182 0 0 0 0 0 0 0][H[2J[3J 341 [19591 29392 0 0 0 0 0 0 0][H[2J[3J 340 [165561 265562 0 0 0 0 0 0 0][H[2J[3J 339 [166661 266662 0 0 0 0 0 0 0][H[2J[3J 338 [167761 267762 0 0 0 0 0 0 0][H[2J[3J 337 [168861 268862 0 0 0 0 0 0 0][H[2J[3J 336 [169961 269962 0 0 0 0 0 0 0][H[2J[3J 335 [170071 270072 0 0 0 0 0 0 0][H[2J[3J 334 [171171 271172 0 0 0 0 0 0 0][H[2J[3J 333 [172271 272272 0 0 0 0 0 0 0][H[2J[3J 332 [173371 273372 0 0 0 0 0 0 0][H[2J[3J 331 [174471 274472 0 0 0 0 0 0 0][H[2J[3J 330 [175571 275572 0 0 0 0 0 0 0][H[2J[3J 329 [176671 276672 0 0 0 0 0 0 0][H[2J[3J 328 [177771 277772 0 0 0 0 0 0 0][H[2J[3J 327 [178871 278872 0 0 0 0 0 0 0][H[2J[3J 326 [179971 279972 0 0 0 0 0 0 0][H[2J[3J 325 [17799771 27799772 0 0 0 0 0 0 0][H[2J[3J 324 [17800871 27800872 0 0 0 0 0 0 0][H[2J[3J 323 [17811871 27811872 0 0 0 0 0 0 0][H[2J[3J 322 [17822871 27822872 0 0 0 0 0 0 0][H[2J[3J 321 [17833871 27833872 0 0 0 0 0 0 0][H[2J[3J 320 [17844871 27844872 0 0 0 0 0 0 0][H[2J[3J 319 [17855871 27855872 0 0 0 0 0 0 0][H[2J[3J 318 [17866871 27866872 0 0 0 0 0 0 0][H[2J[3J 317 [17877871 27877872 0 0 0 0 0 0 0][H[2J[3J 316 [17888871 27888872 0 0 0 0 0 0 0][H[2J[3J 315 [121 242 363 0 0 0 0 0 0][H[2J[3J 314 [1001 2002 3003 0 0 0 0 0 0][H[2J[3J 313 [1111 2112 3333 0 0 0 0 0 0][H[2J[3J 312 [1221 2222 3663 0 0 0 0 0 0][H[2J[3J 311 [1331 2332 3993 0 0 0 0 0 0][H[2J[3J 310 [1441 2442 31713 0 0 0 0 0 0][H[2J[3J 309 [1551 2552 33033 0 0 0 0 0 0][H[2J[3J 308 [1661 2662 36663 0 0 0 0 0 0][H[2J[3J 307 [1771 2772 300003 0 0 0 0 0 0][H[2J[3J 306 [1881 2882 303303 0 0 0 0 0 0][H[2J[3J 305 [1991 2992 306603 0 0 0 0 0 0][H[2J[3J 304 [10901 20702 309903 0 0 0 0 0 0][H[2J[3J 303 [11011 21912 312213 0 0 0 0 0 0][H[2J[3J 302 [12221 22022 315513 0 0 0 0 0 0][H[2J[3J 301 [13431 23232 318813 0 0 0 0 0 0][H[2J[3J 300 [14641 24442 321123 0 0 0 0 0 0][H[2J[3J 299 [15851 25652 324423 0 0 0 0 0 0][H[2J[3J 298 [17171 26862 327723 0 0 0 0 0 0][H[2J[3J 297 [18381 28182 330033 0 0 0 0 0 0][H[2J[3J 296 [19591 29392 333333 0 0 0 0 0 0][H[2J[3J 295 [165561 265562 30366303 0 0 0 0 0 0][H[2J[3J 294 [166661 266662 30399303 0 0 0 0 0 0][H[2J[3J 293 [167761 267762 30422403 0 0 0 0 0 0][H[2J[3J 292 [168861 268862 30455403 0 0 0 0 0 0][H[2J[3J 291 [169961 269962 30488403 0 0 0 0 0 0][H[2J[3J 290 [170071 270072 30511503 0 0 0 0 0 0][H[2J[3J 289 [171171 271172 30544503 0 0 0 0 0 0][H[2J[3J 288 [172271 272272 30577503 0 0 0 0 0 0][H[2J[3J 287 [173371 273372 30600603 0 0 0 0 0 0][H[2J[3J 286 [174471 274472 30633603 0 0 0 0 0 0][H[2J[3J 285 [175571 275572 30666603 0 0 0 0 0 0][H[2J[3J 284 [176671 276672 30699603 0 0 0 0 0 0][H[2J[3J 283 [177771 277772 30722703 0 0 0 0 0 0][H[2J[3J 282 [178871 278872 30755703 0 0 0 0 0 0][H[2J[3J 281 [179971 279972 30788703 0 0 0 0 0 0][H[2J[3J 280 [17799771 27799772 3084004803 0 0 0 0 0 0][H[2J[3J 279 [17800871 27800872 3084334803 0 0 0 0 0 0][H[2J[3J 278 [17811871 27811872 3084664803 0 0 0 0 0 0][H[2J[3J 277 [17822871 27822872 3084994803 0 0 0 0 0 0][H[2J[3J 276 [17833871 27833872 3085225803 0 0 0 0 0 0][H[2J[3J 275 [17844871 27844872 3085555803 0 0 0 0 0 0][H[2J[3J 274 [17855871 27855872 3085885803 0 0 0 0 0 0][H[2J[3J 273 [17866871 27866872 3086116803 0 0 0 0 0 0][H[2J[3J 272 [17877871 27877872 3086446803 0 0 0 0 0 0][H[2J[3J 271 [17888871 27888872 3086776803 0 0 0 0 0 0][H[2J[3J 270 [121 242 363 484 0 0 0 0 0][H[2J[3J 269 [1001 2002 3003 4004 0 0 0 0 0][H[2J[3J 268 [1111 2112 3333 4224 0 0 0 0 0][H[2J[3J 267 [1221 2222 3663 4444 0 0 0 0 0][H[2J[3J 266 [1331 2332 3993 4664 0 0 0 0 0][H[2J[3J 265 [1441 2442 31713 4884 0 0 0 0 0][H[2J[3J 264 [1551 2552 33033 40304 0 0 0 0 0][H[2J[3J 263 [1661 2662 36663 42724 0 0 0 0 0][H[2J[3J 262 [1771 2772 300003 44044 0 0 0 0 0][H[2J[3J 261 [1881 2882 303303 46464 0 0 0 0 0][H[2J[3J 260 [1991 2992 306603 48884 0 0 0 0 0][H[2J[3J 259 [10901 20702 309903 400004 0 0 0 0 0][H[2J[3J 258 [11011 21912 312213 401104 0 0 0 0 0][H[2J[3J 257 [12221 22022 315513 402204 0 0 0 0 0][H[2J[3J 256 [13431 23232 318813 403304 0 0 0 0 0][H[2J[3J 255 [14641 24442 321123 404404 0 0 0 0 0][H[2J[3J 254 [15851 25652 324423 405504 0 0 0 0 0][H[2J[3J 253 [17171 26862 327723 406604 0 0 0 0 0][H[2J[3J 252 [18381 28182 330033 407704 0 0 0 0 0][H[2J[3J 251 [19591 29392 333333 408804 0 0 0 0 0][H[2J[3J 250 [165561 265562 30366303 4473744 0 0 0 0 0][H[2J[3J 249 [166661 266662 30399303 4485844 0 0 0 0 0][H[2J[3J 248 [167761 267762 30422403 4497944 0 0 0 0 0][H[2J[3J 247 [168861 268862 30455403 4607064 0 0 0 0 0][H[2J[3J 246 [169961 269962 30488403 4619164 0 0 0 0 0][H[2J[3J 245 [170071 270072 30511503 4620264 0 0 0 0 0][H[2J[3J 244 [171171 271172 30544503 4632364 0 0 0 0 0][H[2J[3J 243 [172271 272272 30577503 4644464 0 0 0 0 0][H[2J[3J 242 [173371 273372 30600603 4656564 0 0 0 0 0][H[2J[3J 241 [174471 274472 30633603 4668664 0 0 0 0 0][H[2J[3J 240 [175571 275572 30666603 4681864 0 0 0 0 0][H[2J[3J 239 [176671 276672 30699603 4693964 0 0 0 0 0][H[2J[3J 238 [177771 277772 30722703 4803084 0 0 0 0 0][H[2J[3J 237 [178871 278872 30755703 4815184 0 0 0 0 0][H[2J[3J 236 [179971 279972 30788703 4827284 0 0 0 0 0][H[2J[3J 235 [17799771 27799772 3084004803 482282284 0 0 0 0 0][H[2J[3J 234 [17800871 27800872 3084334803 482414284 0 0 0 0 0][H[2J[3J 233 [17811871 27811872 3084664803 482535284 0 0 0 0 0][H[2J[3J 232 [17822871 27822872 3084994803 482656284 0 0 0 0 0][H[2J[3J 231 [17833871 27833872 3085225803 482777284 0 0 0 0 0][H[2J[3J 230 [17844871 27844872 3085555803 482898284 0 0 0 0 0][H[2J[3J 229 [17855871 27855872 3085885803 482909284 0 0 0 0 0][H[2J[3J 228 [17866871 27866872 3086116803 483020384 0 0 0 0 0][H[2J[3J 227 [17877871 27877872 3086446803 483141384 0 0 0 0 0][H[2J[3J 226 [17888871 27888872 3086776803 483262384 0 0 0 0 0][H[2J[3J 225 [121 242 363 484 5005 0 0 0 0][H[2J[3J 224 [1001 2002 3003 4004 5115 0 0 0 0][H[2J[3J 223 [1111 2112 3333 4224 5225 0 0 0 0][H[2J[3J 222 [1221 2222 3663 4444 5335 0 0 0 0][H[2J[3J 221 [1331 2332 3993 4664 5445 0 0 0 0][H[2J[3J 220 [1441 2442 31713 4884 5555 0 0 0 0][H[2J[3J 219 [1551 2552 33033 40304 5665 0 0 0 0][H[2J[3J 218 [1661 2662 36663 42724 5775 0 0 0 0][H[2J[3J 217 [1771 2772 300003 44044 5885 0 0 0 0][H[2J[3J 216 [1881 2882 303303 46464 5995 0 0 0 0][H[2J[3J 215 [1991 2992 306603 48884 50105 0 0 0 0][H[2J[3J 214 [10901 20702 309903 400004 51315 0 0 0 0][H[2J[3J 213 [11011 21912 312213 401104 52525 0 0 0 0][H[2J[3J 212 [12221 22022 315513 402204 53735 0 0 0 0][H[2J[3J 211 [13431 23232 318813 403304 54945 0 0 0 0][H[2J[3J 210 [14641 24442 321123 404404 55055 0 0 0 0][H[2J[3J 209 [15851 25652 324423 405504 56265 0 0 0 0][H[2J[3J 208 [17171 26862 327723 406604 57475 0 0 0 0][H[2J[3J 207 [18381 28182 330033 407704 58685 0 0 0 0][H[2J[3J 206 [19591 29392 333333 408804 59895 0 0 0 0][H[2J[3J 205 [165561 265562 30366303 4473744 565565 0 0 0 0][H[2J[3J 204 [166661 266662 30399303 4485844 566665 0 0 0 0][H[2J[3J 203 [167761 267762 30422403 4497944 567765 0 0 0 0][H[2J[3J 202 [168861 268862 30455403 4607064 568865 0 0 0 0][H[2J[3J 201 [169961 269962 30488403 4619164 569965 0 0 0 0][H[2J[3J 200 [170071 270072 30511503 4620264 570075 0 0 0 0][H[2J[3J 199 [171171 271172 30544503 4632364 571175 0 0 0 0][H[2J[3J 198 [172271 272272 30577503 4644464 572275 0 0 0 0][H[2J[3J 197 [173371 273372 30600603 4656564 573375 0 0 0 0][H[2J[3J 196 [174471 274472 30633603 4668664 574475 0 0 0 0][H[2J[3J 195 [175571 275572 30666603 4681864 575575 0 0 0 0][H[2J[3J 194 [176671 276672 30699603 4693964 576675 0 0 0 0][H[2J[3J 193 [177771 277772 30722703 4803084 577775 0 0 0 0][H[2J[3J 192 [178871 278872 30755703 4815184 578875 0 0 0 0][H[2J[3J 191 [179971 279972 30788703 4827284 579975 0 0 0 0][H[2J[3J 190 [17799771 27799772 3084004803 482282284 57800875 0 0 0 0][H[2J[3J 189 [17800871 27800872 3084334803 482414284 57811875 0 0 0 0][H[2J[3J 188 [17811871 27811872 3084664803 482535284 57822875 0 0 0 0][H[2J[3J 187 [17822871 27822872 3084994803 482656284 57833875 0 0 0 0][H[2J[3J 186 [17833871 27833872 3085225803 482777284 57844875 0 0 0 0][H[2J[3J 185 [17844871 27844872 3085555803 482898284 57855875 0 0 0 0][H[2J[3J 184 [17855871 27855872 3085885803 482909284 57866875 0 0 0 0][H[2J[3J 183 [17866871 27866872 3086116803 483020384 57877875 0 0 0 0][H[2J[3J 182 [17877871 27877872 3086446803 483141384 57888875 0 0 0 0][H[2J[3J 181 [17888871 27888872 3086776803 483262384 57899875 0 0 0 0][H[2J[3J 180 [121 242 363 484 5005 6006 0 0 0][H[2J[3J 179 [1001 2002 3003 4004 5115 6336 0 0 0][H[2J[3J 178 [1111 2112 3333 4224 5225 6666 0 0 0][H[2J[3J 177 [1221 2222 3663 4444 5335 6996 0 0 0][H[2J[3J 176 [1331 2332 3993 4664 5445 61116 0 0 0][H[2J[3J 175 [1441 2442 31713 4884 5555 64746 0 0 0][H[2J[3J 174 [1551 2552 33033 40304 5665 66066 0 0 0][H[2J[3J 173 [1661 2662 36663 42724 5775 69696 0 0 0][H[2J[3J 172 [1771 2772 300003 44044 5885 600006 0 0 0][H[2J[3J 171 [1881 2882 303303 46464 5995 603306 0 0 0][H[2J[3J 170 [1991 2992 306603 48884 50105 606606 0 0 0][H[2J[3J 169 [10901 20702 309903 400004 51315 609906 0 0 0][H[2J[3J 168 [11011 21912 312213 401104 52525 612216 0 0 0][H[2J[3J 167 [12221 22022 315513 402204 53735 615516 0 0 0][H[2J[3J 166 [13431 23232 318813 403304 54945 618816 0 0 0][H[2J[3J 165 [14641 24442 321123 404404 55055 621126 0 0 0][H[2J[3J 164 [15851 25652 324423 405504 56265 624426 0 0 0][H[2J[3J 163 [17171 26862 327723 406604 57475 627726 0 0 0][H[2J[3J 162 [18381 28182 330033 407704 58685 630036 0 0 0][H[2J[3J 161 [19591 29392 333333 408804 59895 633336 0 0 0][H[2J[3J 160 [165561 265562 30366303 4473744 565565 60399306 0 0 0][H[2J[3J 159 [166661 266662 30399303 4485844 566665 60422406 0 0 0][H[2J[3J 158 [167761 267762 30422403 4497944 567765 60455406 0 0 0][H[2J[3J 157 [168861 268862 30455403 4607064 568865 60488406 0 0 0][H[2J[3J 156 [169961 269962 30488403 4619164 569965 60511506 0 0 0][H[2J[3J 155 [170071 270072 30511503 4620264 570075 60544506 0 0 0][H[2J[3J 154 [171171 271172 30544503 4632364 571175 60577506 0 0 0][H[2J[3J 153 [172271 272272 30577503 4644464 572275 60600606 0 0 0][H[2J[3J 152 [173371 273372 30600603 4656564 573375 60633606 0 0 0][H[2J[3J 151 [174471 274472 30633603 4668664 574475 60666606 0 0 0][H[2J[3J 150 [175571 275572 30666603 4681864 575575 60699606 0 0 0][H[2J[3J 149 [176671 276672 30699603 4693964 576675 60722706 0 0 0][H[2J[3J 148 [177771 277772 30722703 4803084 577775 60755706 0 0 0][H[2J[3J 147 [178871 278872 30755703 4815184 578875 60788706 0 0 0][H[2J[3J 146 [179971 279972 30788703 4827284 579975 60811806 0 0 0][H[2J[3J 145 [17799771 27799772 3084004803 482282284 57800875 6084004806 0 0 0][H[2J[3J 144 [17800871 27800872 3084334803 482414284 57811875 6084334806 0 0 0][H[2J[3J 143 [17811871 27811872 3084664803 482535284 57822875 6084664806 0 0 0][H[2J[3J 142 [17822871 27822872 3084994803 482656284 57833875 6084994806 0 0 0][H[2J[3J 141 [17833871 27833872 3085225803 482777284 57844875 6085225806 0 0 0][H[2J[3J 140 [17844871 27844872 3085555803 482898284 57855875 6085555806 0 0 0][H[2J[3J 139 [17855871 27855872 3085885803 482909284 57866875 6085885806 0 0 0][H[2J[3J 138 [17866871 27866872 3086116803 483020384 57877875 6086116806 0 0 0][H[2J[3J 137 [17877871 27877872 3086446803 483141384 57888875 6086446806 0 0 0][H[2J[3J 136 [17888871 27888872 3086776803 483262384 57899875 6086776806 0 0 0][H[2J[3J 135 [121 242 363 484 5005 6006 7007 0 0][H[2J[3J 134 [1001 2002 3003 4004 5115 6336 7777 0 0][H[2J[3J 133 [1111 2112 3333 4224 5225 6666 77077 0 0][H[2J[3J 132 [1221 2222 3663 4444 5335 6996 700007 0 0][H[2J[3J 131 [1331 2332 3993 4664 5445 61116 707707 0 0][H[2J[3J 130 [1441 2442 31713 4884 5555 64746 710017 0 0][H[2J[3J 129 [1551 2552 33033 40304 5665 66066 717717 0 0][H[2J[3J 128 [1661 2662 36663 42724 5775 69696 720027 0 0][H[2J[3J 127 [1771 2772 300003 44044 5885 600006 727727 0 0][H[2J[3J 126 [1881 2882 303303 46464 5995 603306 730037 0 0][H[2J[3J 125 [1991 2992 306603 48884 50105 606606 737737 0 0][H[2J[3J 124 [10901 20702 309903 400004 51315 609906 740047 0 0][H[2J[3J 123 [11011 21912 312213 401104 52525 612216 747747 0 0][H[2J[3J 122 [12221 22022 315513 402204 53735 615516 750057 0 0][H[2J[3J 121 [13431 23232 318813 403304 54945 618816 757757 0 0][H[2J[3J 120 [14641 24442 321123 404404 55055 621126 760067 0 0][H[2J[3J 119 [15851 25652 324423 405504 56265 624426 767767 0 0][H[2J[3J 118 [17171 26862 327723 406604 57475 627726 770077 0 0][H[2J[3J 117 [18381 28182 330033 407704 58685 630036 777777 0 0][H[2J[3J 116 [19591 29392 333333 408804 59895 633336 780087 0 0][H[2J[3J 115 [165561 265562 30366303 4473744 565565 60399306 72299227 0 0][H[2J[3J 114 [166661 266662 30399303 4485844 566665 60422406 72322327 0 0][H[2J[3J 113 [167761 267762 30422403 4497944 567765 60455406 72399327 0 0][H[2J[3J 112 [168861 268862 30455403 4607064 568865 60488406 72422427 0 0][H[2J[3J 111 [169961 269962 30488403 4619164 569965 60511506 72499427 0 0][H[2J[3J 110 [170071 270072 30511503 4620264 570075 60544506 72522527 0 0][H[2J[3J 109 [171171 271172 30544503 4632364 571175 60577506 72599527 0 0][H[2J[3J 108 [172271 272272 30577503 4644464 572275 60600606 72622627 0 0][H[2J[3J 107 [173371 273372 30600603 4656564 573375 60633606 72699627 0 0][H[2J[3J 106 [174471 274472 30633603 4668664 574475 60666606 72722727 0 0][H[2J[3J 105 [175571 275572 30666603 4681864 575575 60699606 72799727 0 0][H[2J[3J 104 [176671 276672 30699603 4693964 576675 60722706 72822827 0 0][H[2J[3J 103 [177771 277772 30722703 4803084 577775 60755706 72899827 0 0][H[2J[3J 102 [178871 278872 30755703 4815184 578875 60788706 72922927 0 0][H[2J[3J 101 [179971 279972 30788703 4827284 579975 60811806 72999927 0 0][H[2J[3J 100 [17799771 27799772 3084004803 482282284 57800875 6084004806 7452992547 0 0][H[2J[3J 99 [17800871 27800872 3084334803 482414284 57811875 6084334806 7453223547 0 0][H[2J[3J 98 [17811871 27811872 3084664803 482535284 57822875 6084664806 7453993547 0 0][H[2J[3J 97 [17822871 27822872 3084994803 482656284 57833875 6084994806 7454224547 0 0][H[2J[3J 96 [17833871 27833872 3085225803 482777284 57844875 6085225806 7454994547 0 0][H[2J[3J 95 [17844871 27844872 3085555803 482898284 57855875 6085555806 7455225547 0 0][H[2J[3J 94 [17855871 27855872 3085885803 482909284 57866875 6085885806 7455995547 0 0][H[2J[3J 93 [17866871 27866872 3086116803 483020384 57877875 6086116806 7456226547 0 0][H[2J[3J 92 [17877871 27877872 3086446803 483141384 57888875 6086446806 7456996547 0 0][H[2J[3J 91 [17888871 27888872 3086776803 483262384 57899875 6086776806 7457227547 0 0][H[2J[3J 90 [121 242 363 484 5005 6006 7007 8008 0][H[2J[3J 89 [1001 2002 3003 4004 5115 6336 7777 8448 0][H[2J[3J 88 [1111 2112 3333 4224 5225 6666 77077 8888 0][H[2J[3J 87 [1221 2222 3663 4444 5335 6996 700007 80608 0][H[2J[3J 86 [1331 2332 3993 4664 5445 61116 707707 86768 0][H[2J[3J 85 [1441 2442 31713 4884 5555 64746 710017 88088 0][H[2J[3J 84 [1551 2552 33033 40304 5665 66066 717717 800008 0][H[2J[3J 83 [1661 2662 36663 42724 5775 69696 720027 802208 0][H[2J[3J 82 [1771 2772 300003 44044 5885 600006 727727 804408 0][H[2J[3J 81 [1881 2882 303303 46464 5995 603306 730037 806608 0][H[2J[3J 80 [1991 2992 306603 48884 50105 606606 737737 808808 0][H[2J[3J 79 [10901 20702 309903 400004 51315 609906 740047 821128 0][H[2J[3J 78 [11011 21912 312213 401104 52525 612216 747747 823328 0][H[2J[3J 77 [12221 22022 315513 402204 53735 615516 750057 825528 0][H[2J[3J 76 [13431 23232 318813 403304 54945 618816 757757 827728 0][H[2J[3J 75 [14641 24442 321123 404404 55055 621126 760067 829928 0][H[2J[3J 74 [15851 25652 324423 405504 56265 624426 767767 840048 0][H[2J[3J 73 [17171 26862 327723 406604 57475 627726 770077 842248 0][H[2J[3J 72 [18381 28182 330033 407704 58685 630036 777777 844448 0][H[2J[3J 71 [19591 29392 333333 408804 59895 633336 780087 846648 0][H[2J[3J 70 [165561 265562 30366303 4473744 565565 60399306 72299227 80611608 0][H[2J[3J 69 [166661 266662 30399303 4485844 566665 60422406 72322327 80622608 0][H[2J[3J 68 [167761 267762 30422403 4497944 567765 60455406 72399327 80633608 0][H[2J[3J 67 [168861 268862 30455403 4607064 568865 60488406 72422427 80644608 0][H[2J[3J 66 [169961 269962 30488403 4619164 569965 60511506 72499427 80655608 0][H[2J[3J 65 [170071 270072 30511503 4620264 570075 60544506 72522527 80666608 0][H[2J[3J 64 [171171 271172 30544503 4632364 571175 60577506 72599527 80677608 0][H[2J[3J 63 [172271 272272 30577503 4644464 572275 60600606 72622627 80688608 0][H[2J[3J 62 [173371 273372 30600603 4656564 573375 60633606 72699627 80699608 0][H[2J[3J 61 [174471 274472 30633603 4668664 574475 60666606 72722727 80800808 0][H[2J[3J 60 [175571 275572 30666603 4681864 575575 60699606 72799727 80811808 0][H[2J[3J 59 [176671 276672 30699603 4693964 576675 60722706 72822827 80822808 0][H[2J[3J 58 [177771 277772 30722703 4803084 577775 60755706 72899827 80833808 0][H[2J[3J 57 [178871 278872 30755703 4815184 578875 60788706 72922927 80844808 0][H[2J[3J 56 [179971 279972 30788703 4827284 579975 60811806 72999927 80855808 0][H[2J[3J 55 [17799771 27799772 3084004803 482282284 57800875 6084004806 7452992547 8085995808 0][H[2J[3J 54 [17800871 27800872 3084334803 482414284 57811875 6084334806 7453223547 8086006808 0][H[2J[3J 53 [17811871 27811872 3084664803 482535284 57822875 6084664806 7453993547 8086116808 0][H[2J[3J 52 [17822871 27822872 3084994803 482656284 57833875 6084994806 7454224547 8086226808 0][H[2J[3J 51 [17833871 27833872 3085225803 482777284 57844875 6085225806 7454994547 8086336808 0][H[2J[3J 50 [17844871 27844872 3085555803 482898284 57855875 6085555806 7455225547 8086446808 0][H[2J[3J 49 [17855871 27855872 3085885803 482909284 57866875 6085885806 7455995547 8086556808 0][H[2J[3J 48 [17866871 27866872 3086116803 483020384 57877875 6086116806 7456226547 8086666808 0][H[2J[3J 47 [17877871 27877872 3086446803 483141384 57888875 6086446806 7456996547 8086776808 0][H[2J[3J 46 [17888871 27888872 3086776803 483262384 57899875 6086776806 7457227547 8086886808 0][H[2J[3J 45 [121 242 363 484 5005 6006 7007 8008 9009][H[2J[3J 44 [1001 2002 3003 4004 5115 6336 7777 8448 9999][H[2J[3J 43 [1111 2112 3333 4224 5225 6666 77077 8888 94149][H[2J[3J 42 [1221 2222 3663 4444 5335 6996 700007 80608 99099][H[2J[3J 41 [1331 2332 3993 4664 5445 61116 707707 86768 900009][H[2J[3J 40 [1441 2442 31713 4884 5555 64746 710017 88088 909909][H[2J[3J 39 [1551 2552 33033 40304 5665 66066 717717 800008 918819][H[2J[3J 38 [1661 2662 36663 42724 5775 69696 720027 802208 927729][H[2J[3J 37 [1771 2772 300003 44044 5885 600006 727727 804408 936639][H[2J[3J 36 [1881 2882 303303 46464 5995 603306 730037 806608 945549][H[2J[3J 35 [1991 2992 306603 48884 50105 606606 737737 808808 954459][H[2J[3J 34 [10901 20702 309903 400004 51315 609906 740047 821128 963369][H[2J[3J 33 [11011 21912 312213 401104 52525 612216 747747 823328 972279][H[2J[3J 32 [12221 22022 315513 402204 53735 615516 750057 825528 981189][H[2J[3J 31 [13431 23232 318813 403304 54945 618816 757757 827728 990099][H[2J[3J 30 [14641 24442 321123 404404 55055 621126 760067 829928 999999][H[2J[3J 29 [15851 25652 324423 405504 56265 624426 767767 840048 9459549][H[2J[3J 28 [17171 26862 327723 406604 57475 627726 770077 842248 9508059][H[2J[3J 27 [18381 28182 330033 407704 58685 630036 777777 844448 9557559][H[2J[3J 26 [19591 29392 333333 408804 59895 633336 780087 846648 9606069][H[2J[3J 25 [165561 265562 30366303 4473744 565565 60399306 72299227 80611608 95311359][H[2J[3J 24 [166661 266662 30399303 4485844 566665 60422406 72322327 80622608 95400459][H[2J[3J 23 [167761 267762 30422403 4497944 567765 60455406 72399327 80633608 95499459][H[2J[3J 22 [168861 268862 30455403 4607064 568865 60488406 72422427 80644608 95588559][H[2J[3J 21 [169961 269962 30488403 4619164 569965 60511506 72499427 80655608 95677659][H[2J[3J 20 [170071 270072 30511503 4620264 570075 60544506 72522527 80666608 95766759][H[2J[3J 19 [171171 271172 30544503 4632364 571175 60577506 72599527 80677608 95855859][H[2J[3J 18 [172271 272272 30577503 4644464 572275 60600606 72622627 80688608 95944959][H[2J[3J 17 [173371 273372 30600603 4656564 573375 60633606 72699627 80699608 96033069][H[2J[3J 16 [174471 274472 30633603 4668664 574475 60666606 72722727 80800808 96122169][H[2J[3J 15 [175571 275572 30666603 4681864 575575 60699606 72799727 80811808 96211269][H[2J[3J 14 [176671 276672 30699603 4693964 576675 60722706 72822827 80822808 96300369][H[2J[3J 13 [177771 277772 30722703 4803084 577775 60755706 72899827 80833808 96399369][H[2J[3J 12 [178871 278872 30755703 4815184 578875 60788706 72922927 80844808 96488469][H[2J[3J 11 [179971 279972 30788703 4827284 579975 60811806 72999927 80855808 96577569][H[2J[3J 10 [17799771 27799772 3084004803 482282284 57800875 6084004806 7452992547 8085995808 9675005769][H[2J[3J 9 [17800871 27800872 3084334803 482414284 57811875 6084334806 7453223547 8086006808 9675995769][H[2J[3J 8 [17811871 27811872 3084664803 482535284 57822875 6084664806 7453993547 8086116808 9676886769][H[2J[3J 7 [17822871 27822872 3084994803 482656284 57833875 6084994806 7454224547 8086226808 9677777769][H[2J[3J 6 [17833871 27833872 3085225803 482777284 57844875 6085225806 7454994547 8086336808 9678668769][H[2J[3J 5 [17844871 27844872 3085555803 482898284 57855875 6085555806 7455225547 8086446808 9679559769][H[2J[3J 4 [17855871 27855872 3085885803 482909284 57866875 6085885806 7455995547 8086556808 9680440869][H[2J[3J 3 [17866871 27866872 3086116803 483020384 57877875 6086116806 7456226547 8086666808 9681331869][H[2J[3J 2 [17877871 27877872 3086446803 483141384 57888875 6086446806 7456996547 8086776808 9682222869][H[2J[3J 1 [17888871 27888872 3086776803 483262384 57899875 6086776806 7457227547 8086886808 9683113869][H[2J[3JRESULTS is a map of value:
1 block! length: 9 [121 242 363 484 5005 6006 7007 8008 9009]
2 block! length: 9 [1001 2002 3003 4004 5115 6336 7777 8448 9999]
3 block! length: 9 [1111 2112 3333 4224 5225 6666 77077 8888 94149]
4 block! length: 9 [1221 2222 3663 4444 5335 6996 700007 80608 99099]
5 block! length: 9 [1331 2332 3993 4664 5445 61116 707707 86768 900009]
6 block! length: 9 [1441 2442 31713 4884 5555 64746 710017 88088 909909]
7 block! length: 9 [1551 2552 33033 40304 5665 66066 717717 800008 918819]
8 block! length: 9 [1661 2662 36663 42724 5775 69696 720027 802208 927729]
9 block! length: 9 [1771 2772 300003 44044 5885 600006 727727 804408 936639]
10 block! length: 9 [1881 2882 303303 46464 5995 603306 730037 806608 945549]
11 block! length: 9 [1991 2992 306603 48884 50105 606606 737737 808808 954459]
12 block! length: 9 [10901 20702 309903 400004 51315 609906 740047 821128 963369]
13 block! length: 9 [11011 21912 312213 401104 52525 612216 747747 823328 972279]
14 block! length: 9 [12221 22022 315513 402204 53735 615516 750057 825528 981189]
15 block! length: 9 [13431 23232 318813 403304 54945 618816 757757 827728 990099]
16 block! length: 9 [14641 24442 321123 404404 55055 621126 760067 829928 999999]
17 block! length: 9 [15851 25652 324423 405504 56265 624426 767767 840048 9459549]
18 block! length: 9 [17171 26862 327723 406604 57475 627726 770077 842248 9508059]
19 block! length: 9 [18381 28182 330033 407704 58685 630036 777777 844448 9557559]
20 block! length: 9 [19591 29392 333333 408804 59895 633336 780087 846648 9606069]
86 block! length: 9 [165561 265562 30366303 4473744 565565 60399306 72299227 806...
87 block! length: 9 [166661 266662 30399303 4485844 566665 60422406 72322327 806...
88 block! length: 9 [167761 267762 30422403 4497944 567765 60455406 72399327 806...
89 block! length: 9 [168861 268862 30455403 4607064 568865 60488406 72422427 806...
90 block! length: 9 [169961 269962 30488403 4619164 569965 60511506 72499427 806...
91 block! length: 9 [170071 270072 30511503 4620264 570075 60544506 72522527 806...
92 block! length: 9 [171171 271172 30544503 4632364 571175 60577506 72599527 806...
93 block! length: 9 [172271 272272 30577503 4644464 572275 60600606 72622627 806...
94 block! length: 9 [173371 273372 30600603 4656564 573375 60633606 72699627 806...
95 block! length: 9 [174471 274472 30633603 4668664 574475 60666606 72722727 808...
96 block! length: 9 [175571 275572 30666603 4681864 575575 60699606 72799727 808...
97 block! length: 9 [176671 276672 30699603 4693964 576675 60722706 72822827 808...
98 block! length: 9 [177771 277772 30722703 4803084 577775 60755706 72899827 808...
99 block! length: 9 [178871 278872 30755703 4815184 578875 60788706 72922927 808...
100 block! length: 9 [179971 279972 30788703 4827284 579975 60811806 72999927 808...
991 block! length: 9 [17799771 27799772 3084004803 482282284 57800875 6084004806 ...
992 block! length: 9 [17800871 27800872 3084334803 482414284 57811875 6084334806 ...
993 block! length: 9 [17811871 27811872 3084664803 482535284 57822875 6084664806 ...
994 block! length: 9 [17822871 27822872 3084994803 482656284 57833875 6084994806 ...
995 block! length: 9 [17833871 27833872 3085225803 482777284 57844875 6085225806 ...
996 block! length: 9 [17844871 27844872 3085555803 482898284 57855875 6085555806 ...
997 block! length: 9 [17855871 27855872 3085885803 482909284 57866875 6085885806 ...
998 block! length: 9 [17866871 27866872 3086116803 483020384 57877875 6086116806 ...
999 block! length: 9 [17877871 27877872 3086446803 483141384 57888875 6086446806 ...
1000 block! length: 9 [17888871 27888872 3086776803 483262384 57899875 6086776806 ...