hg.stevelosh.com > rosalind

src/rosalind/p003.clj @ 7f4e6345e260 

Do the first few problems.
author Steve Losh <steve@stevelosh.com>
date Mon, 12 Nov 2012 12:36:49 -0500
parents (none)
children (none) 
(ns rosalind.p003
  (:require [clojure.string :refer [join]]))

(def nucleotide-complement
  {\A \T
   \C \G
   \T \A
   \G \C})


(defn solve [s]
  (join "" (map nucleotide-complement (reverse s))))

(solve "AAAACCCGGT")

(print (solve (slurp "/Users/sjl/Downloads/rosalind_revc.txt")))