DNA.hs

1
2
3
4
5
6
7
8
9
10
11
module DNA where

toRNA :: [Char] -> [Char]
toRNA = map mapNuc
  where
    mapNuc x = case x of
      'A' -> 'U'
      'C' -> 'G'
      'G' -> 'C'
      'T' -> 'A'
      _ -> error "Invalid nucleotide"

@Abbath and @abo64 think this looks great

Comments


You're not logged in right now. Please login via GitHub to comment