25 lines
424 B
Text
25 lines
424 B
Text
|
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
|
||
|
|
````
|
||
|
|
|