Klarner-Rado sequence: Difference between revisions
Content added Content deleted
(New post.) |
(Added Quackery.) |
||
Line 1,446: | Line 1,446: | ||
54381285 |
54381285 |
||
1031926801</pre> |
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}}== |
=={{header|Raku}}== |