Contents

module NucleotideCount

let private validNucleotides = ['A'; 'T'; 'C'; 'G']

let private isValid nucleotide = List.contains nucleotide validNucleotides

let count (nucleotide:char) (strand:string) = 
    match isValid nucleotide with
    | true  -> Seq.fold (fun acc elem -> if elem = nucleotide then acc + 1 else acc) 0 strand
    | false -> failwith "Invalid nucleotide"

let nucleotideCounts strand = 
    if String.forall isValid strand then
        List.map (fun nucleotide -> (nucleotide, count nucleotide strand)) validNucleotides 
        |> Map.ofSeq
        |> Some
    else    
        None

Version data entries

123 entries across 123 versions & 1 rubygems

Version	Path
trackler-2.2.1.159	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.158	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.157	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.156	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.155	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.154	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.153	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.152	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.151	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.150	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.149	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.148	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.147	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.146	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.145	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.144	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.143	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.142	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.141	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.140	tracks/fsharp/exercises/nucleotide-count/Example.fs