Вот мой способ построения последовательности Фибоначчи в виде списка, значения которых не превышает х:Альтернативный способ построения списка до тех пор, пока предикат не будет удовлетворен?
(define (fibs-upto x)
(for/list ([i (in-naturals)]
#:break (> (fib i) x))
(fib i)))
Есть еще один, может быть чист способ сделать это без использования #:break
, и без использования #lang lazy
строить бесконечный ленивый список?
Мне нравится этот тип стандартный цикл. –
@bitrauser FWIW Я добавил версию с помощью 'sequence-map' – soegaard