saralilyb

(defn ignore-trailing-slash
  "Modifies the request uri before calling the handler.
  Removes a single trailing slash from the end of the uri if present.

  Useful for handling optional trailing slashes until Compojure's route matching syntax supports regex.
  Adapted from http://stackoverflow.com/questions/8380468/compojure-regex-for-matching-a-trailing-slash"
  [handler]
  (fn [request]
    (let [uri (:uri request)]
      (handler (assoc request :uri (if (and (not (= "/" uri))

saralilyb

(defn editor [text]
  (let [dom-node (r/atom nil)]
    (r/create-class
      {:component-did-update
       ;; this is the draw code plus the update code
                     (fn [this old-argv]
                       (let [editor (js/SimpleMDE.
                                      (clj->js
                                        {:autofocus    true
                                         :spellChecker true

saralilyb

blockprint_training_dim1 <- function(rel, inc, boundary = 50) {
	# right now this assumes rel = rotation and inc = spacing

	isafep <- function(x) x < boundary # check if fep
	isfep <- isafep(rel) # are we a fep?
	cat("\t{\n") # begin block
	cat("\t\tstimulus: gabgen(", rel,", ", inc, ")\n", sep = "") # code for generation
	key_answer_val <- ifelse(isfep, 70, 78) # fep (f) if it's less than 50, n if more
	cat("\t\tkey_answer: ", key_answer_val, "\n", sep = "") # which button is good?
	text_to_use_correct <- ifelse(isfep, "fep_correct_text", "notfep_correct_text")

saralilyb

# compares bayesfactor analyses relative to the last, which is the random only model (just participants)
compbf <- function(m) { 
  m[c(1:(length(m)-1))]/m[length(m)] 
}

saralilyb

#!/bin/sh

usage(){
	echo "Usage: $0 inputfile.js closurecompiledfile.js"
	exit 1
}

is_file_exits(){
	local f="$1"
	[[ -f "$f" ]] && return 0 || return 1

saralilyb

What I Wish I'd Known About Equity Before Joining A Unicorn

Disclaimer: This piece is written anonymously. The names of a few particular companies are mentioned, but as common examples only.

This is a short write-up on things that I wish I'd known and considered before joining a private company (aka startup, aka unicorn in some cases). I'm not trying to make the case that you should never join a private company, but the power imbalance between founder and employee is extreme, and that potential candidates would

saralilyb

# 2d4 vs 1d8

samples <- 10000

# 2d4
m1d4 <- sample(1:4, samples, replace = TRUE)
m2d4 <- sample(1:4, samples, replace = TRUE)

bastard_sword <- m1d4 + m2d4

saralilyb

set linespace=4
set noexpandtab
set wrap
set linebreak
set breakindent
set briopt=shift:2
set shiftwidth=2
set tabstop=2
set textwidth=79
set columns=80

saralilyb

arrmax = numeric.mapreduce('if(xi > accum) accum=xi;','-Infinity');
arrmin = numeric.mapreduce('if(xi < accum) accum=xi;','Infinity');

saralilyb

rescale_core = (y, a, b, m, M) ->
	y if M - m < .0000001
	numeric.add(numeric.mul(b - a, numeric.div(numeric.sub(y, m), M - m)), a)