;;; rna-transcription.el -- RNA Transcription (exercism)
;;; Commentary:
;;; Code:

(require 'seq)

(defun char-to-rna (c)
  (cond
   ((eql ?G c) ?C)
   ((eql ?C c) ?G)
   ((eql ?T c) ?A)
   ((eql ?A c) ?U)
   (t (error 'invalid-char))))

(defun to-rna (str)
  (apply 'string (seq-map 'char-to-rna str)))

(provide 'rna-transcription)
;;; rna-transcription.el ends here