(define (yoba-length xs)
  (define (iter xs count)
    (if (null? xs)
        count
        (iter (filter (lambda (x)
                        (not (= x (car xs)))) xs)
              (+ 1 count))))
  (iter xs 0))

(display (yoba-length '(1 1 2 3 4 4 5)))