Magic constant: Difference between revisions
Added Quackery
(Added Quackery) |
|||
Line 487:
true.
</pre>
=={{header|Quackery}}==
<lang Quackery> [ 3 + dup 2dup * * + 2 / ] is magicconstant ( n --> n )
20 times [ i^ magicconstant echo sp ] cr cr
1000 magicconstant echo cr cr
0 1
[ over magicconstant over > if
[ over 3 + echo cr
10 * ]
dip 1+ dup
[ 10 21 ** ] constant
= until ]
2drop</lang>
{{out}}
<pre>15 34 65 111 175 260 369 505 671 870 1105 1379 1695 2056 2465 2925 3439 4010 4641 5335
504514015
3
4
6
13
28
59
126
272
585
1260
2715
5849
12600
27145
58481
125993
271442
584804
1259922
2714418
5848036</pre>
=={{header|Raku}}==
| |||