Anonymous user
Vector products: Difference between revisions
m
→{{header|Forth}}
mNo edit summary |
|||
Line 801:
</pre>
=={{header|Forth}}==
{{works with|
: 3f! ( &v - ) ( f: x y z - ) dup float+ dup float+ f! f! f! ;
|