Mian-Chowla sequence: Difference between revisions
Added Quackery.
(Added Quackery.) |
|||
Line 1,744:
(Computation time c. 27 ms)</pre>
=={{header|Quackery}}==
<lang Quackery> [ stack ] is makeable ( --> s )
[ temp put
1 bit makeable put
' [ 1 ] 1
[ true temp put
1+
over witheach
[ over + bit
makeable share & if
[ false temp replace
conclude ] ]
temp take if
[ dup dip join
over witheach
[ over + bit
makeable take
| makeable put ] ]
over size temp share = until ]
makeable release
temp release
drop ] is mian-chowla ( n --> [ )
100 mian-chowla
30 split swap echo cr
-10 split nip echo</lang>
{{out}}
<pre>[ 1 2 4 8 13 21 31 45 66 81 97 123 148 182 204 252 290 361 401 475 565 593 662 775 822 916 970 1016 1159 1312 ]
[ 22526 23291 23564 23881 24596 24768 25631 26037 26255 27219 ]
</pre>
=={{header|Raku}}==
| |||