它获取一个向量数据类型的列表和一个向量,并计算这两个向量的贴近度。这个方法工作得很好,但我不知道如何做递归版本。let romulus_iter (x:vector list ) (vec:vector) =
let vector_close_hash = Hashtbl.create 10 inlet prevkey = ref 10000.0 in (* Define previous key to be a large value since we intiall
下面是它的四开寻址版本的一个实现,在该实现中,函数Find将Key和TableSize的值传递给Hash函数,并将哈希值作为变量CurrentPos返回。ElementType Retrieve( Position P, HashTable H );以下是源文件中的类型和结构当发生这种情况时,我尝试单元测试,并发现在调用Hash函数一轮之后,CurrentPos的值将被