Magic constant: Difference between revisions

Added Quackery
(Added Quackery)
(Added Quackery)
Line 490:
=={{header|Quackery}}==
 
<lang Quackery> [ 3 + dup 2dup3 * * + 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
over = until ]
2drop</lang>
 
1,462

edits