Source

rosalind / src / rosalind / p001.clj

1
2
3
4
5
6
7
8
9
(ns rosalind.p001
  (:require [clojure.string :refer [join]]))

(defn solve [s]
  (println (join " " (map (frequencies s) "ACGT"))))

(solve "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC")

(solve (slurp "/Users/sjl/Downloads/rosalind_dna.txt"))