Vector: Difference between revisions
→{{header|PicoLisp}}
(added Ol) |
|||
Line 1,401:
{2.5,3.5}
</pre>
=={{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>
=={{header|PicoLisp}}==
| |||