输入两个Vector x,y对x,y对的数组 并找到两个x,y对的函数 输出新数组......?
let v1 = [|for x, y in [3.,3.; 5.,5.; 1.,1.] -> Vector(x, y)|];;
let v2 = [|for x, y in [1.,1.; 2.,2.; 4.,4.] -> Vector(x, y)|];;
let data8 v1 v2 = Array.map2 (fun x y -> Vector.CrossProduct) v1 v2
val v1:Vector [] = [| 3,3; 5,5; 1,1 |]
val v2:Vector [] = [| 1,1; 2,2; 4,4 |]
val data8:'a [] - > 'b [] - > (Vector * Vector - > float)[]
data8 v1 v2 ;; val it :( Vector * Vector - > float)[] = [|; ; |]
答案 0 :(得分:4)
请参阅:http://fpish.net/topic/Some/0/73895
您忘记将参数传递给Vector.CrossProduct:
let data8 v1 v2 = Array.map2 (fun x y -> Vector.CrossProduct(x, y)) v1 v2