F#正确使用序列缓存

Question

我正在尝试使用Seq.cache和我所做的函数,它返回一个数字序列,直到数字N,不包括数字1.我无法弄清楚如何将缓存序列保留在范围内但仍然使用它在我的定义中.

let rec primesNot1 n = 
    {2 .. n} 
    |> Seq.filter (fun i -> 
        (primesNot1 (i / 2) |> Seq.for_all (fun o -> i % o <> 0)))
    |> Seq.append {2 .. 2}
    |> Seq.cache

有关如何使用Seq.cache来加快速度的任何想法？目前它不断从范围中退出,只会降低性能.

Answer 1

Seq.cache缓存一个IEnumerable<T>实例,以便序列中的每个项目仅计算一次.但是,在您的情况下,您正在缓存函数返回的序列,并且每次调用该函数时都会得到一个新的缓存序列,这对您没有任何帮助.我不认为缓存是你正确解决问题的正确方法; 相反,你应该考虑记忆.

如果不是定义一个给出素数的函数而不是n你想要定义一个无限的可枚举素数序列,那么缓存就更有意义了.这看起来更像是这样的:

let rec upFrom i =
  seq { 
    yield i
    yield! upFrom (i+1)
  }

let rec primes =
  seq { 
    yield 2
    yield!
      upFrom 3 |>
      Seq.filter (fun p -> primes |> Seq.takeWhile (fun j -> j*j <= p) |> Seq.forall (fun j -> p % j <> 0))
  }
  |> Seq.cache

我没有比较这种方法与你的相比.