ship561

(let [sqs {"AUGUGGAAAG" 4, "CGACCUCGUC" 2, "CCAGCGAACC" 2, "GGGCGAAGCU" 5, "GUUUACUUCA" 1, 
           "UACCAUAGUA" 1, "CGACCAGCAU" 2, "UGAAUUUCGA" 2, "GGUCUUUCUU" 2, "UGAAAUACAU" 1}]
                                 (prn :>>)
                                 (r/fold (fn ([] {})
                                           ([l r] (merge-with + l r)))
                                         (fn [M sq cs]
                                           (->> (take 2 sq)
                                                frequencies
                                                (merge-with + M)))
                                         sqs))

ship561

(-> (identity 12)
    ((fn [the-threaded-var] (* the-threaded-var 3)))
    (/ 3))

ship561

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

ship561

(defn bar [input]
  (let [xf1 (partial re-seq #"[-\w]+")
        xf2 (fn [[x & ys]]
              [x
               (->> ys
                    (map-indexed #(if (odd? %1)
                                    (read-string %2)
                                    %2))
                    (apply assoc {}))])]
    (transduce (comp (map xf1)

ship561

(defn levenshtein [thr str1 str2]
        "Clojure Levenshtein distance which short circuits when the distance is > thr"
        (let [n (count str1) 
              m (count str2)]
          (cond 
            (= 0 n) m
            (= 0 m) n
            :else
            (last
             (reduce (fn [prev-col i]

ship561

(ns sandbox.cipher
  (:require [clojure.string :as str]))

(def alphabet "abcdefghijklmnopqrstuvwxyz")

(defn rotate [n coll]
  (concat (drop n coll) (take n coll)))

(defn caeser-cipher [offset]
  (-> (zipmap alphabet (rotate offset alphabet))