Anonymous user
Vector: Difference between revisions
m
→{{header|Ol}}
No edit summary |
m (→{{header|Ol}}) |
||
Line 1,261:
(error "error:" "not applicable (+ vector non-vector)"))
(if (vector? b)
(error "error:" "not applicable (+ non-vector vector)"
(:+ a b))))
(define :- -)
Line 1,271:
(error "error:" "not applicable (+ vector non-vector)"))
(if (vector? b)
(error "error:" "not applicable (+ non-vector vector)"
(:- a b))))
(define :* *)
Line 1,281:
(error "error:" "not applicable (* vector vector)"))
(if (vector? b)
(error "error:" "not applicable (* scalar vector)"
(:* a b))))
(define :/ /)
Line 1,291:
(error "error:" "not applicable (/ vector vector)"))
(if (vector? b)
(error "error:" "not applicable (/ scalar vector)"
(:/ a b))))
(define x [1 2 3 4 5])
| |||