Anonymous user
Vector products: Difference between revisions
→{{header|Forth}}
mNo edit summary |
|||
Line 753:
=={{header|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! ;
| |||