如何使 f# 查询表达式可重用

Question

我正在尝试习惯F#查询表达式。

首先，他们肯定很渴望，因为：

let arr = [1; 2; 3]
let q = query { for item in arr do select item; count };;
val arr : int list = [1; 2; 3]
val q : int = 3

我想重用该查询，所以我尝试延迟计算：

let arr = ref [1; 2; 3]
let q = lazy query { for item in !arr do select item; count }
q.Value;;
val arr : int list ref = {contents = [1; 2; 3];}
val q : Lazy<int> = 3
val it : int = 3

现在，我想重新评估查询：

arr := [1; 2; 3; 4]
q.Force();;
val it : int = 3

所以，什么也没发生，它不会重新计算。如何在不重新定义查询的情况下多次使用查询？

Answer 1

很难说基于您非常小的示例的最佳方法是什么，但是编写可重用代码的最简单方法是编写一个函数：

let q (arr:seq<'T>) = 
  query { for item in arr do select item; count };;

然后，您只需调用它即可重用它：

> q [1;2;3];;
val it : int = 3
> q [1;2;3;4];;
val it : int = 4