Scheme | (define (random-element lst) - Anonymous - f32b0c869

(define (random-element lst)
  (let loop ((lst (cdr lst))
             (cur (car lst))
             (n 1))
    (cond ((null? lst) cur)
          ((< (random 1.0) (/ 1 n)) (loop (cdr lst) (car lst) (1+ n)))
          (else (loop (cdr lst) cur (1+ n))))))