Re[7]: Как ускорить yield return?
От: Аноним  
Дата: 23.02.10 02:31
Оценка:
Здравствуйте, Пельмешко, Вы писали:

П>Btw, ну ведь красота же:

П>
П>let rec fromTo x y =
П>    seq { if x <= y then
П>             yield  x
П>             yield! fromTo (x+1) y }
П>


Интересно, как можно вот такую красоту сохранить, а варнинг (о рекурсивной ссылке на не-функцию) убрать?
let rec fib = Seq.cache <| seq {
    yield 0I
    yield 1I
    yield! Seq.map2 (+) fib (Seq.skip 1 fib )}
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.