DNANucleotide.hs

module Bioinformatics.DNANucleotide (
  DNANucleotide (..),
  charToDNANucleotide
) where

import Data.Char
import Data.List

data DNANucleotide = A | C | G | T deriving(Show, Eq, Ord, Read)

charToDNANucleotide :: Char -> DNANucleotide
charToDNANucleotide c = read [toUpper c] :: DNANucleotide

RNANucleotide.hs

module Bioinformatics.RNANucleotide (
  RNANucleotide (..),
  charToRNANucleotide
) where

import Data.Char
import Data.List

data RNANucleotide = A | C | G | U deriving (Show, Eq, Ord, Read)

charToRNANucleotide :: Char -> RNANucleotide
charToRNANucleotide c = read [toUpper c] :: RNANucleotide

TranscribingDNAIntoRNA2.hs

import Bioinformatics.DNANucleotide as D
import Bioinformatics.RNANucleotide as R

dnaToRNA :: D.DNANucleotide -> R.RNANucleotide
dnaToRNA d
  | d == D.A = R.A
  | d == D.C = R.C
  | d == D.G = R.G
  | otherwise = R.U

mainDNAToRNA = do
  dna <- getLine
  putStrLn $ concat . map show . map dnaToRNA $ map D.charToDNANucleotide dna