Question

In Scheme language

Create a second function "vecfn" that allows one to pass the function to perform on the input lists as the first argument. Below are the test cases that should work when you type them in.

(display (vecfn - '(1 2 3) '(4 5 6))) (newline)
(display (vecfn + '(4) (list (sqrt -1)))) (newline)
(display (vecfn / '(1 2 3) '(1 4 5))) (newline)

Finally, add a "vecfun" to the syntax of Scheme. Submit a single text file.

Answer 1

List values are given as input,
If two list's are of same length then the List values are added correspondingly.
If they are of different length then the length of list with lesser length is made equal with the list with greater length. Then the values are added correspondingly.

Function - append-zeroes is used to append extra zero's to get make the length equal.

Code for Adding to List .

(define (append-zeroes lst n)
(append lst (make-list (abs n) 0)))

(define (vecadd lst1 lst2)
(let ((diff (- (length lst1) (length lst2))))
(cond [(< diff 0)
(map + (append-zeroes lst1 diff) lst2)]
[(> diff 0)
(map + lst1 (append-zeroes lst2 diff))]
[else (map + lst1 lst2)])))