Magic constant: Difference between revisions
Content added Content deleted
(Added Quackery) |
(Added Quackery) |
||
| Line 490: | Line 490: | ||
=={{header|Quackery}}== |
=={{header|Quackery}}== |
||
<lang Quackery> [ 3 + dup |
<lang Quackery> [ 3 + dup 3 ** + 2 / ] is magicconstant ( n --> n ) |
||
20 times [ i^ magicconstant echo sp ] cr cr |
20 times [ i^ magicconstant echo sp ] cr cr |
||
1000 magicconstant echo cr cr |
1000 magicconstant echo cr cr |
||
0 1 |
0 1 |
||
[ over magicconstant over > if |
[ over magicconstant over > if |
||
[ over 3 + echo cr |
[ over 3 + echo cr |
||
10 * ] |
10 * ] |
||
dip 1+ |
dip 1+ |
||
[ 10 21 ** ] constant |
[ 10 21 ** ] constant |
||
= until ] |
over = until ] |
||
2drop</lang> |
2drop</lang> |
||