ray1729

(ns parsatron-play.core
  (:refer-clojure :exclude [char])
  (:require [the.parsatron :refer :all]))

;; Goal is to parse something like:
;; ##INFO=<ID=foo,Type=Integer,Number=1,Description="Some description, which may contain commas">

(defparser not-char [& cs]
  (token (complement (set cs))))

ray1729

(fn solve-maze
  [maze]
  (let [num-rows (count maze)
        num-cols (count (first maze))
        char-at-pos (fn [[row col]] (get (get maze row) col))
        free? (fn [p] (when-let [c (char-at-pos p)] (not= c \#)))
        neighbours (fn [[row col]] (filter free? (map (fn [[delta-row delta-col]]
                                                       [(+ row delta-row)
                                                        (+ col delta-col)])
                                                     [[0 0] [0 1] [0 -1] [1 0] [-1 0]])))

ray1729

#!/usr/bin/env perl

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

use List::Util qw(max min);

my @COLS     = qw( label _ chr strand start end );
my @KEY_COLS = qw( label chr strand );

ray1729

#!/usr/bin/env perl

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

my %seen;
my @uniq;

while ( <> ) {
    chomp;

ray1729

(defn factorial [n] (reduce * (range 1 (inc n))))

(defn multinomial [n & ms]
  (/ (factorial n) (reduce * (map factorial ms))))

(def N (reduce +  (for [m1 (range 1 6)
                        m2 (range 1 (- 7 m1))
                        m3 (range 1 (- 8 m1 m2))
                        m4 (range 1 (- 9 m1 m2 m3))
                        m5 (range 1 (- 10 m1 m2 m3 m4))

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))))