1 files changed, 19 insertions, 0 deletions
diff --git a/exercism/emacs-lisp/rna-transcription/rna-transcription.el b/exercism/emacs-lisp/rna-transcription/rna-transcription.el
new file mode 100644
index 0000000..bb39f2b
--- /dev/null
+++ b/exercism/emacs-lisp/rna-transcription/rna-transcription.el
@@ -0,0 +1,19 @@
+;;; 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