rna-transcription.el (659B)
1 ;;; rna-transcription.el -- RNA Transcription (exercism) 2 3 ;;; Commentary: 4 5 ;;; Code: 6 7 (provide 'rna-transcription) 8 9 (defun transcribe (nucleotide) 10 "Return the matching RNA pair for DNA NUCLEOTIDE." 11 (cond ((char-equal nucleotide ?C) "G") 12 ((char-equal nucleotide ?G) "C") 13 ((char-equal nucleotide ?A) "U") 14 ((char-equal nucleotide ?T) "A") 15 ((error "Unrecognized nucleotide")))) 16 17 (defun to-rna (dna) 18 "Transcribe a string representing DNA nucleotides. 19 Return a string representing RNA nucleotides." 20 (cl-loop for nucleotide being the elements of dna 21 concat (transcribe nucleotide))) 22 23 ;;; rna-transcription.el ends here