retroforth/example/AddingVectors.forth

This is an example adding two three element vectors.

~~~
:vadd (v1v2v3-)
  'abc  'cabcabcab reorder
  [ #2 +  ] tri@ [ fetch ] bi@ + swap store
  [ n:inc ] tri@ [ fetch ] bi@ + swap store
                 [ fetch ] bi@ + swap store ;
~~~

A test case:

~~~
'a d:create #1 , #2 , #3 ,
'b d:create #2 , #3 , #4 ,
'c d:create #3 allot

&a &b &c vadd

&c fetch-next putn nl
   fetch-next putn nl
   fetch      putn nl
~~~