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