Sha256: 6a07927e148d3ad5e04cf9f09dd1b01c31e00a434a4ade287fb9534b0b50ac75
Contents?: true
Size: 737 Bytes
Versions: 330
Compression:
Stored size: 737 Bytes
Contents
module NucleotideCount exposing (..) import String version : Int version = 2 type alias NucleotideCounts = { a : Int , t : Int , c : Int , g : Int } init : NucleotideCounts init = { a = 0 , t = 0 , c = 0 , g = 0 } update : Char -> NucleotideCounts -> NucleotideCounts update char counts = case char of 'A' -> { counts | a = counts.a + 1 } 'T' -> { counts | t = counts.t + 1 } 'C' -> { counts | c = counts.c + 1 } 'G' -> { counts | g = counts.g + 1 } _ -> counts nucleotideCounts : String -> NucleotideCounts nucleotideCounts sequence = String.foldl update init sequence
Version data entries
330 entries across 330 versions & 1 rubygems