Haskell RNA transcription!

dna.hs

-- Short version to show the power of Haskell :-)

module DNA(toRNA) where

toRNA = map convert where
  convert 'T' = 'U'
  convert  n  =  n

-- Long version with a bunch of cool stuff that makes me happy

module DNA(toRNA) where

type Nucleotide = Char
type DNA        = [Nucleotide]
type RNA        = [Nucleotide]

toRNA :: DNA -> RNA
toRNA = map (thymidine `to` uracil)

thymidine :: Nucleotide
thymidine = 'T'

uracil :: Nucleotide
uracil = 'U'

to :: Nucleotide -> Nucleotide -> Nucleotide -> Nucleotide
to x y n
  | n == x    = y
  | otherwise = n