exercism#1310 haskell rna-transcription now matches README

fluxusfrequency · Mar 24, 2014 · 7c9a949 · 7c9a949
1 parent 52862ff
commit 7c9a949
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 12 deletions.
diff --git a/assignments/haskell/rna-transcription/example.hs b/assignments/haskell/rna-transcription/example.hs
@@ -1,8 +1,12 @@
 module DNA (toRNA) where
 
 replaceThymidine :: Char -> Char
-replaceThymidine 'T' = 'U'
-replaceThymidine nucleotide = nucleotide
+replaceThymidine c = case c of
+  'C' -> 'G'
+  'G' -> 'C'
+  'A' -> 'U'
+  'T' -> 'A'
+  _ -> error $ "Invalid nucleotide " ++ show c
 
 toRNA :: String -> String
 toRNA = map replaceThymidine
diff --git a/assignments/haskell/rna-transcription/rna-transcription_test.hs b/assignments/haskell/rna-transcription/rna-transcription_test.hs
@@ -12,16 +12,16 @@ testCase label assertion = TestLabel label (TestCase assertion)
 
 toRNATests :: [Test]
 toRNATests =
-  [ testCase "transcribes cytidine unchanged" $
-    "C" @=? toRNA "C"
-  , testCase "transcribes guanosine unchanged" $
-    "G" @=? toRNA "G"
-  , testCase "transcribes adenosine unchanged" $
-    "A" @=? toRNA "A"
-  , testCase "transcribes thymidine to uracil" $
-    "U" @=? toRNA "T"
-  , testCase "transcribes all occurrences of thymidine to uracil" $
-    "ACGUGGUCUUAA" @=? toRNA "ACGTGGTCTTAA"
+  [ testCase "transcribes cytidine to guanosine" $
+    "G" @=? toRNA "C"
+  , testCase "transcribes guanosine to cytidine" $
+    "C" @=? toRNA "G"
+  , testCase "transcribes adenosine to uracil" $
+    "U" @=? toRNA "A"
+  , testCase "transcribes thymidine to adenosine" $
+    "A" @=? toRNA "T"
+  , testCase "transcribes all ACGT to UGCA" $
+    "UGCACCAGAAUU" @=? toRNA "ACGTGGTCTTAA"
   ]
 
 main :: IO ()