Question

我查看了很多类似的问题并搜索了谷歌几个小时，我无处可去。

我正在尝试从我的Program.fs文件访问我的Tree.fs文件中的二叉树模块，在资源管理器窗口中，我已将Tree.fs文件移动到Program.fs文件上方，几乎所有其他类似的问题，但这不是为我工作。

My Tree.fs文件

namespace Lab2

type Elem = System.IComparable

type Tree = E | T of Tree * Elem * Tree

module BinaryTree =
    let emptyTree = E

    let rec add = function
                    | x, E -> T(E, x, E)
                    | x, T(a, y, b) when x < y -> T(add(x, a), y, b)
                    | x, T(a, y, b) when y < x -> T(a, y, add(x, b))
                    | _, s -> s

    let rec addList = function
                        | [], T(a, y, b) -> T(a, y, b)
                        | x::xs, T(a, y, b) when x < y -> addList(xs, T(add(x, a), y, b))
                        | x::xs, T(a, y, b) when y < x -> addList(xs, T(a, y, add(x, b)))
                        | _, s -> s


    let rec preorder = function
                        | T(a, y, b) when a <> E -> y::preorder a
                        | T(a, y, b) when b <> E -> y::preorder b
                        | _ -> []

    let rec inorder = function
                        | T(a, y, b) when a <> E -> y::inorder a
                        | T(a, y, b) when b <> E -> y::inorder b
                        | _ -> []

    let rec postorder = function
                        | T(a, y, b) when b <> E -> y::preorder b
                        | T(a, y, b) when a <> E -> y::preorder a
                        | _ -> []

    let rec treeToString = function
                            | T(a, y, b) when a <> E -> "(node " + y.ToString() + treeToString a
                            | T(a, y, b) when b <> E -> y.ToString() + treeToString b + ")"
                            | _ -> "Empty"

我的Program.fs文件

module Lab2.Program

open Lab2.BinaryTree

let tree = addList([5; 2; 1; 6; 7], emptyTree);;

let inorder_tree = inorder(tree);;

let char_tree = addList(['e';'b';'a';'f';'g'], emptyTree);;

let inorder_char_tree = inorder(char_tree);;

let print = treeToString(char_tree);;

我已经尝试过不在我的两个文件中使用Lab2名称空间，而只是将这两个文件用作模块，但这仍然会给我带来同样的错误。

我的代码中没有蓝线或红线，没有错误，直到我调试

错误仅发生在以下行

let tree = addList([5; 2; 1; 6; 7], emptyTree);;

所以在调试时看起来像这样

Program.fs(66,6): error FS0039: The namespace or module 'Lab2' is not defined
> val inorder_tree : Elem list = []
> val char_tree : Tree = E
> val inorder_char_tree : Elem list = []
> val print : string = "Empty"

Answer 1

如果编译并运行项目，则没有错误。根据您的结果，我猜您手动将两个文件的内容复制到F＃Interactive中，但第一行包含命名空间和模块声明。在这种情况下，F＃Interactive不知道Lab2命名空间，因此出现错误消息。快速解决方法是更改

open Lab2.BinaryTree

到

open BinaryTree

它适用于fsc和fsi，因为Program和BinaryTree模块共享父命名空间Lab2。

但是，您在运行项目和在F＃Interactive中执行项目时感到困惑。一个常见的解决方案是创建一个Tree.fsx文件并在其中加载相应的模块：

#load "Tree.fs"    
open Lab2.BinaryTree

let tree = addList([5; 2; 1; 6; 7], emptyTree);;
let inorderTree = inorder(tree);;
let charTree = addList(['e';'b';'a';'f';'g'], emptyTree);;
let inorderCharTree = inorder(charTree);;
let print = treeToString(charTree);;

命名空间或模块＆＃39; Lab2＆＃39;没有定义

1 个答案: