複数の機能を組み合わせる

Question

私はDNA転写プログラムを作ろうとしているが、私はそれをやっている方法に問題がある、私は確かにこれを行う簡単な方法がありますが、これは来た最初のことだった私の頭には向いているが、それは私が望むように働いていない。ここで

dnaToRna :: [Char] -> [Char] 
dnaToRna [] = [] 
dnaToRna xs = reverse(transc xs) 
    where transc = (replaceA . replaceT . replaceC . replaceG) 
replaceA = map(\c -> if c == 'A' then 'U' else c) 
replaceT = map(\c -> if c == 'T' then 'A' else c) 
replaceC = map(\c -> if c == 'C' then 'G' else c) 
replaceG = map(\c -> if c == 'G' then 'C' else c) 

は出力です：

*Main> let seq = "AAATGTTAGTACACTAAGG" 
*Main> dnaToRna seq 
"GGUUUGUGUUGUUUGUUUU" 

私は相互コンダクタンスがAを置き換えるためである把握し、 任意のヒントなどなど、文字列全体をチェックし、Tを置き換え？ ありがとうございます！

Answer 1

すべてのChar -> Charのコンバージョンを一度に処理する関数を1つ作成する必要があります。

dnaToRna :: [Char] -> [Char] 
dnaToRna = reverse . map transc 
    where 
    transc 'A' = 'U' 
    transc 'T' = 'A' 
    transc 'C' = 'G' 
    transc 'G' = 'C' 
    transc _ = error "Invalid DNA molecule" 

これはより安全にするために、あなたはそれが代わりにMaybe [Char]を返す作ることができます。カスタムマッピング機能を使用する代わりにlookup関数を使用することもできます。

dnaToRna :: [Char] -> Maybe [Char] 
dnaToRna = mapM (`lookup` zip "ATCG" "UAGC") . reverse 

Answer 2

@ 4castleの答えが正しい方向を示します。

OPの問題は解決されているので、ルックアップにData.Mapを使用すると、効率を上げる方法を示す価値があると思います。また、foldlを使用することによって、逆転ジョブもスキップすることができます。