在 F# 中缩放序列

Question

我试图按序列的第一个元素缩放序列，因此第一个元素始终为 1，然后后续元素是原始序列的第一个元素与第 n 个元素的比率。

这是我的代码，

       open System
       open System.Collections

           let squish1 (x:Double seq) =
                let r =  (Seq.head x:Double)
                Seq.fold (fun (xi:Double) (r:Double) -> xi/r);;

我在这个小向量上进行测试：-

                squish1 [|5.0; 1.0; 1.0; 1.0; 1.0; 1.0|];;

我已经输入了所有内容，因为我收到此错误消息

normaliseSequence.fsx(9,1)：错误 FS0030：值限制。值“it”已被推断为具有泛型类型 val it : (Double -> '_a -> Double) 当 '_a :>序列
要么明确“it”的参数，要么如果您不希望它是通用的，请添加类型注释。

但显然我误解了，因为即使输入了所有内容我也会收到错误消息。我缺少什么？

非常感谢所有的建议。谢谢

Answer 1

fold 还需要两个参数：种子值和序列。这有效：

let squish1 (x:Double seq) =
    let r =  (Seq.head x:Double)
    Seq.fold (fun (xi:Double) (r:Double) -> xi/r) 0.0 x

但是，我猜你可能想要 map 而不是 fold：

let squish1 (x:Double seq) =
    let r =  (Seq.head x:Double)
    Seq.map (fun (xi:Double) -> xi/r) x

顺便说一句，我可能会这样写：

let inline squish1 (x:seq<_>) =
  let r = Seq.head x
  Seq.map (fun n -> n / r) x

现在它适用于所有支持除法的类型。