Klarner-Rado sequence: Difference between revisions
Added Quackery.
(New post.) |
(Added Quackery.) |
||
Line 1,446:
54381285
1031926801</pre>
=={{header|Quackery}}==
<code>bsearchwith</code> is defined at [[Binary search#Quackery]].
<syntaxhighlight lang="Quackery"> [ over [] = iff
[ 2drop 0 0 ] done
over size 0 swap 2swap
bsearchwith < ] is search ( [ n --> n b )
[ [] ' [ 1 ]
rot times
[ 1 split dip join
over -1 peek
2 * 1+
2dup search iff
2drop
else
[ dip swap stuff ]
over -1 peek
3 * 1+
2dup search iff
2drop
else
[ dip swap stuff ] ]
drop ] is klarner-rado ( n --> [ )
10000 klarner-rado
say "First 100 Klarner-Rado numbers:" cr
dup 100 split drop
[] swap witheach
[ number$ nested join ]
80 wrap$
cr cr
say "1000th Klarner-Rado number: "
dup 999 peek echo
cr cr
say "10000th Klarner-Rado number: "
9999 peek echo</syntaxhighlight>
{{out}}
<pre>First 100 Klarner-Rado numbers:
1 3 4 7 9 10 13 15 19 21 22 27 28 31 39 40 43 45 46 55 57 58 63 64 67 79 81 82
85 87 91 93 94 111 115 117 118 121 127 129 130 135 136 139 159 163 165 166 171
172 175 183 187 189 190 193 202 223 231 235 237 238 243 244 247 255 256 259 261
262 271 273 274 279 280 283 319 327 331 333 334 343 345 346 351 352 355 364 367
375 379 381 382 387 388 391 405 406 409 418
1000th Klarner-Rado number: 8487
10000th Klarner-Rado number: 157653</pre>
=={{header|Raku}}==
| |||