Vector products: Difference between revisions
Content added Content deleted
mNo edit summary |
|||
Line 753: | Line 753: | ||
=={{header|Forth}}== |
=={{header|Forth}}== |
||
{{works with|Forth|with a separate floating point stack.}}<lang Forth> |
{{works with|Forth|1994 ANSI with a separate floating point stack.}}<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! ; |
||