Contents

(ns protein-translation)

(defn translate-codon [codon]
  (case codon
    "AUG" "Methionine"
    ("UUU" "UUC") "Phenylalanine"
    ("UUA" "UUG") "Leucine"
    ("UCU" "UCC" "UCA" "UCG") "Serine"
    ("UAU" "UAC") "Tyrosine"
    ("UGU" "UGC") "Cysteine"
    "UGG" "Tryptophan"
    ("UAA" "UAG" "UGA") "STOP"))

(defn translate-rna [rna]
  (->> rna
       (partition 3)
       (map (partial apply str))
       (map translate-codon)
       (take-while #(not= "STOP" %))))

Version data entries

121 entries across 121 versions & 1 rubygems

Version	Path
trackler-2.2.1.58	tracks/clojure/exercises/protein-translation/src/example.clj