Contents

module LargestSeriesProduct

open System

let digits (str: string) = 
    str
    |> Seq.map (string >> int)
    |> Seq.toList

let slices size list = 
    let slice i = 
        list 
        |> List.skip i 
        |> List.take size

    let sliceCount = List.length list + 1 - size

    List.init sliceCount slice

let largestProduct input seriesLength = 
    if seriesLength > String.length input then failwith "Slice size is too big"
    else 
        input 
        |> digits 
        |> slices seriesLength
        |> List.map (List.fold (*) 1)
        |> List.max

Version data entries

266 entries across 266 versions & 1 rubygems

Version	Path
trackler-2.2.1.28	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.27	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.26	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.25	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.24	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.23	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.22	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.21	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.20	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.19	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.18	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.17	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.16	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.15	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.14	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.13	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.12	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.11	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.10	tracks/fsharp/exercises/largest-series-product/Example.fs
trackler-2.2.1.9	tracks/fsharp/exercises/largest-series-product/Example.fs