29 lines
439 B
Plaintext
29 lines
439 B
Plaintext
func[] vadd a[] b[] .
|
|
for i to len a[]
|
|
r[] &= a[i] + b[i]
|
|
.
|
|
return r[]
|
|
.
|
|
func[] vsub a[] b[] .
|
|
for i to len a[]
|
|
r[] &= a[i] - b[i]
|
|
.
|
|
return r[]
|
|
.
|
|
func[] vmul a[] b .
|
|
for i to len a[]
|
|
r[] &= a[i] * b
|
|
.
|
|
return r[]
|
|
.
|
|
func[] vdiv a[] b .
|
|
for i to len a[]
|
|
r[] &= a[i] / b
|
|
.
|
|
return r[]
|
|
.
|
|
print vadd [ 5 7 ] [ 2 3 ]
|
|
print vsub [ 5 7 ] [ 2 3 ]
|
|
print vmul [ 5 7 ] 11
|
|
print vdiv [ 5 7 ] 2
|