От: | Аноним | ||
Дата: | 23.02.10 02:31 | ||
Оценка: |
П>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 )}