mirror of
https://github.com/correl/elm.git
synced 2024-12-22 19:17:27 +00:00
16 lines
391 B
Text
16 lines
391 B
Text
|
module NucleotideCountExample where
|
||
|
|
|
||
|
|
import String
|
||
|
|
import List
|
||
|
|
|
||
|
|
nucleotideCounts : String -> List (Char, Int)
|
||
|
|
nucleotideCounts sequence = [
|
||
|
|
(getCount 'A' sequence),
|
||
|
|
(getCount 'T' sequence),
|
||
|
|
(getCount 'C' sequence),
|
||
|
|
(getCount 'G' sequence)
|
||
|
|
]
|
||
|
|
|
||
|
|
getCount : Char -> String -> (Char, Int)
|
||
|
|
getCount base sequence = (base, (List.length (String.split (String.fromChar base) sequence)) - 1)
|