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 = 
    List.map (fun nucleotide -> (nucleotide, count nucleotide strand)) validNucleotides 
    |> Map.ofSeq

Version data entries

273 entries across 273 versions & 1 rubygems

Version	Path
trackler-2.2.1.55	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.54	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.53	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.52	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.51	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.50	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.49	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.48	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.47	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.46	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.45	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.44	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.43	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.42	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.41	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.40	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.39	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.38	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.37	tracks/fsharp/exercises/nucleotide-count/Example.fs
trackler-2.2.1.36	tracks/fsharp/exercises/nucleotide-count/Example.fs