Contents

module PerfectNumbers

type Classification = Perfect | Abundant | Deficient 

let sumOfFactors n = [for x in 1..n / 2 do if n % x = 0 then yield x] |> List.sum

let classify n = 
    match sumOfFactors n with
    | x when x = n -> Perfect
    | x when x < n -> Deficient
    | _ -> Abundant

Version data entries

265 entries across 265 versions & 1 rubygems

Version	Path
trackler-2.2.1.47	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.46	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.45	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.44	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.43	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.42	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.41	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.40	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.39	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.38	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.37	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.36	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.35	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.34	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.33	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.32	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.31	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.30	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.29	tracks/fsharp/exercises/perfect-numbers/Example.fs
trackler-2.2.1.28	tracks/fsharp/exercises/perfect-numbers/Example.fs