Magic constant: Difference between revisions
Added Quackery
(Added Quackery) |
(Added Quackery) |
||
Line 490:
=={{header|Quackery}}==
<lang Quackery> [ 3 + dup
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+
[ 10 21 ** ] constant
over = until ]
2drop</lang>
|