Vector products: Difference between revisions
Content added Content deleted
mNo edit summary |
|||
| Line 801: | Line 801: | ||
</pre> |
</pre> |
||
=={{header|Forth}}== |
=={{header|Forth}}== |
||
{{works with| |
{{works with|Forth|with a separate floating point stack.}}<lang Forth> |
||
<lang Forth> |
|||
: 3f! ( &v - ) ( f: x y z - ) dup float+ dup float+ f! f! f! ; |
: 3f! ( &v - ) ( f: x y z - ) dup float+ dup float+ f! f! f! ; |
||