module NucleotideCount (..) 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)