为什么我不能在 F# 中打印这个数组?

Why can't I print this array in F#?

我在 C# 中有这个列表:

List<string> words = new List<string> { "how", "are", "you" };

我可以轻松打印列表的内容:

foreach(string word in words)
   Debug.WriteLine(word);

现在我想在 F# 中做同样的事情(我从 here 了解到 List<T> 类似于 ResizeArray):

let words = ResizeArray<string>()
words.Add("how")
words.Add("are")
words.Add("you")

for word in words do
    Debug.WriteLine(sprintf "%s" word) 

现在的问题是,在 for 循环中 word 变为空。我在这里做错了什么?

编辑: 这是完整的代码。我已按照建议将其更改为 printf。不幸的是,在 for 循环中我仍然得到 null:

let myFunction =
    let words = ResizeArray<string>()
    words.Add("how")
    words.Add("are")
    words.Add("you")

    for word in words do
        printf "%s" word // <-- word becomes null
    words

[<EntryPoint>]
let main argv = 
    ignore myFunction
    0 // return an integer exit code

这个有效:

for word in words do
    printf "%s" word

但是如果你真的想要调试输出,你是否正在加载 system.diagnostics 命名空间?

open System.Diagnostics

(Your code)

这对我有用而无需加载命名空间:

for word in words do
    System.Diagnostics.Debug.Write(sprintf "%s" word)

我知道您希望您的代码看起来像 C#。但是 F# 是一种函数式语言(严格来说不是,但这是主要的范例),这些特性就是语言的强大之处。首先是你的collection。一个更惯用的类型是列表。它是不可变的,这是该语言的功能特征之一。

let words = ["how"; "are"; "you"]

由于它是不可变的,您可以通过创建一个新的 collection 来扩展它。您可以在开头追加一个项目:

let moreWords = "Hello" :: words

或将一个列表与另一个列表合并:

let evenMore = moreWords @ ["I"; "am"; "fine"]

然后迭代。 For 循环是纯粹的命令式结构。由于我们切换到函数 collection 使用 built-in 列表函数之一进行迭代:

let prnt lst = lst |> List.iter (fun x -> printfn "%s" x)

这需要一个列表。逐项迭代它。并对每个项目执行 (fun x -> printfn "%s" x) 函数。

或者您可以尝试一下,编写自己的函数来遍历所有元素并对每个元素执行一个函数。一种方法是使用递归和列表匹配:

let rec loopFn lst fn =
    match lst with
    | [] -> fn
    | head::tail ->
        fn head
        loopFn tail fn

这个函数接受一个列表和另一个函数作为参数。匹配列表。如果它是空的 (| []) - 执行函数。否则将列表拆分为头部,其余的 (head::tail) 在 head (fn head) 上执行函数并进一步循环剩余的项目 (loopFn tail fn)。

要打印项目,请将单词列表和打印函数传递给函数:

loopFn words (fun x -> printfn "%s" x)

或者因为 printfn 本身就是一个函数,你可以稍微简化调用:

loopFn words (printfn "%s")

我怀疑这是由于 F# 的惰性求值特性所致。因此,word 在被 printf 语句使用之前实际上并未分配,因此您无法在调试器中看到该值。

如果您在循环中添加另一个语句并在那里设置断点,您将看到 word 的赋值值。请参阅下面的代码段 -

let myFunction =
let words = ResizeArray<string>()
words.Add("how")
words.Add("are")
words.Add("you")

for word in words do
    printf "%s" word // 
    printf "%s" word // <-- SET A BREAKPOINT HERE AND VERIFY THE VALUE OF 'word'

words