ND
Size: a a a
ND
ND
VV
(define (vector-assoc v vec)
(letrec ([f (lambda (x)
(cond [(list? (vector-ref vec x))] ((if (equal? v (car (vector-ref vec x)))
(vector-ref vec x)
(lambda (x) (f (+ 1 x)))))
[(= (x (vector-length vec)))] ((if (equal? v (car (vector-ref vec x)))
(vector-ref vec x)
#f))
[#f] ((lambda (x) (f (+ 1 x))))))])
(f 1)))
VV
ND
ND
VV
VL
oo
oo
oo
oo
oo
LL
LL
oo
oo
oo
LL
oo