PasteRack.org
Paste # 76609
2020-04-02 14:23:45

Fork as a new paste.

Paste viewed 393 times.


Embed:

Is there performance issues in this function?

  1. #lang racket
  2.  
  3. (define (vector-assoc v vec)
  4.   (letrec ([f (lambda (n)
  5.   (if (equal? n (+ (vector-length vec) 1))
  6.       #f
  7.   (if (pair? (vector-ref vec n))
  8.       (if (equal? (car (vector-ref vec n)) v)
  9.           (vector-ref vec n)
  10.           (f (+ n 1)))
  11.           (f (+ n 1)))))])
  12.   (f 0)))

=>