Vector: Difference between revisions

=={{header|Phixmonti}}==

<lang Phixmonti>include ..\Utilitys.pmt

def add + enddef

def sub - enddef

def mul * enddef

def div / enddef

def opVect /# a b op -- c #/

var op

len var lon

( lon 1 -1 ) for var i

i get rot i get rot op exec >ps swap

endfor

lon for drop

ps>

endfor

lon tolist

enddef

( 5 7 ) ( 2 3 )

getid add opVect ?

getid sub opVect ?

getid mul opVect ?

getid div opVect ?</lang>

{{out}}

<pre>[7, 10]

[3, 4]

[10, 21]

[2.5, 2.333333333333333]

=== Press any key to exit ===</pre>