ray1729

(ns clj-playground.enzyme-selection
  (:require [clojure.data.csv :as csv]
            [clojure.java.io :as io]))

(defn read-enzyme-data
  "Read clone/analysis/enzyme data from CSV file filename. Group
  enzymes for each clone/analysis pair into a set and return a list of
  sets of enzymes"
  [filename]
  (with-open [in-file (io/reader filename)]

ray1729

(defn parse-flags
  "Parse a list of flags. Each flag name must be a keyword, and the
  value must not be a keyword. If the value is omitted, true is
  assumed. Returns a map.

  e.g. (parse-flags [:i :j 1 :k \"two\"])
  => {:i true, :j 1, :k \"two\"}"
  [flags]
  (loop [flags (seq flags) accum {}]
    (if flags

ray1729

;; Perl: $RE{num}{-base => 2}{real}{-group => 3}{-sep => ','}

(re-seq (re :real {:base 2 :group 3 :sep \,} ) "1.345")

ray1729

(defn keep-only
  [n bucket-fn s]
  (letfn [(my-filter
           [s seen]
           (when (seq s)
             (let [e (first s)
                   b (bucket-fn e)
                   c (inc (get seen b 0))]
               (if (> c n)
                 (recur (rest s) seen)

ray1729

(defn secret-santa
  [names]
  (let [s (shuffle names)]
    (partition 2 1 (cons (last s) s))))

ray1729

#!/usr/bin/env perl

use strict;
use warnings FATAL => 'all';

my ( $key, @values ) = next_record();

while ( defined $key ) {
    my ( $next_key, @next_values ) = next_record();    
    if ( defined $next_key and $next_key eq $key ) {

ray1729

;; This is a suggested improvement for processing SNP data, in response
;; to Jan Aerts' blog post <http://saaientist.blogspot.com/2010/06/encounter-with-incanter-about-clojure.html>.
;; Note that this example is for Clojure 1.1.0; if you're using Clojure 1.2, change the ns definition
;; to use clojure.contrib.io instead of duck-streams.

(ns ray1729.clojure.bio.snps
  (:use [clojure.contrib.duck-streams :only (read-lines)]))

(defn parse-line
  [s]