retroforth/example/AddingVectors.forth

25 lines
420 B
Text
Raw Normal View History

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
~~~