0. #lang racket
1. (define (random-by l)
2.   (define r (random))
3.   (for/fold ([sum 0] [i 0] #:result (- i 1))
4.             ([c l])
5.     #:break (> sum r)
6.     (values (+ sum c) (+ i 1))))

=>

eval:2:0: for/fold/derived: bad syntax

in: (for/fold/derived (for/fold ((sum 0) (i 0) #:result (-

i 1)) ((c l)) #:break (> sum r) (values (+ sum c) (+ i 1)))

((sum 0) (i 0) #:result (- i 1)) ((c l)) #:break (> sum r)

(values (+ sum c) (+ i 1)))