0 people like it.

test

1: 
2: 
3: 
4: 
5: 
6: 
7: 
8: 

let inner_product s1 s2 =
    (s1, s2) ||> Seq.map2 (*) |> Seq.sum

let fir (kernel:double seq) (s:double seq)  =
    let k = Seq.length kernel
    s
    |> Seq.windowed k
    |> Seq.map (inner_product kernel)
val inner_product : s1:seq<double> -> s2:seq<double> -> double

Full name: Script.inner_product
val s1 : seq<double>
val s2 : seq<double>
module Seq

from Microsoft.FSharp.Collections
val map2 : mapping:('T1 -> 'T2 -> 'U) -> source1:seq<'T1> -> source2:seq<'T2> -> seq<'U>

Full name: Microsoft.FSharp.Collections.Seq.map2
val sum : source:seq<'T> -> 'T (requires member ( + ) and member get_Zero)

Full name: Microsoft.FSharp.Collections.Seq.sum
val fir : kernel:seq<double> -> s:seq<double> -> seq<double>

Full name: Script.fir
val kernel : seq<double>
Multiple items
val double : value:'T -> float (requires member op_Explicit)

Full name: Microsoft.FSharp.Core.ExtraTopLevelOperators.double

--------------------
type double = System.Double

Full name: Microsoft.FSharp.Core.double
Multiple items
val seq : sequence:seq<'T> -> seq<'T>

Full name: Microsoft.FSharp.Core.Operators.seq

--------------------
type seq<'T> = System.Collections.Generic.IEnumerable<'T>

Full name: Microsoft.FSharp.Collections.seq<_>
val s : seq<double>
val k : int
val length : source:seq<'T> -> int

Full name: Microsoft.FSharp.Collections.Seq.length
val windowed : windowSize:int -> source:seq<'T> -> seq<'T []>

Full name: Microsoft.FSharp.Collections.Seq.windowed
val map : mapping:('T -> 'U) -> source:seq<'T> -> seq<'U>

Full name: Microsoft.FSharp.Collections.Seq.map
Raw view Test code New version

More information

Link:http://fssnip.net/4T
Posted:15 years ago
Author:
Tags:

This web site is created using F# and Suave web server. It is hosted on Azure and the source code is on GitHub. Contributions are welcome!

The first version of fssnip.net has been created by @tomaspetricek back in 2010. This web site is a new, open-source and contribution-friendly version.