在 F# 中缩放序列

Question

我正在尝试通过序列的第一个元素来缩放序列，因此第一个元素将始终为一个，然后后续元素是原始序列的第一个元素与第 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：值限制。值“它”已被 >推断为具有泛型类型 val it : (Double -> '_a -> Double) 当 '_a :> seq
要么明确“它”的参数，要么，如果你不打算让它是通用的，>添加一个类型注释。

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

感谢您收到任何和所有建议。谢谢

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

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