kyptin

(ns perftest.core
  (:require
    [clojure.java.io :as io]))

(defn perftest
  []
  (with-open [writer (io/writer "times.out")]
    (let [bigseq (range 1e8)]
      (doall
        (for [item bigseq]

kyptin

#!/bin/bash

# Referenced in Leiningen Issue #1180, here:
# https://github.com/technomancy/leiningen/issues/1180

if [ ! -z `ls -A | egrep -v '^(main|child|grandchild|setup-nested-lein-projects.sh)$'` ]; then
  echo "Cowardly refusing to continue in a directory with unrecognized files."
  exit 0
fi

kyptin

#!/bin/bash

# Referenced in Leiningen Issue #1190, here:
# https://github.com/technomancy/leiningen/issues/1190

if [ ! -z `ls -A | egrep -v '^(main|child|grandchild|greatgrandchild|setup-3level-lein-checkouts.sh)$'` ]; then
  echo "Cowardly refusing to continue in a directory with unrecognized files."
  exit 0
fi

kyptin

(defn make-cdf
  "Given a seq of numbers, return a plottable vector of [x,y] pairs
  representing the cumulative distribution function.
  Ex:
    (cdf-data [1 2 1 3])
    ; => [[1 0] [1 1/2] [2 3/4] [3 1]]"
  [xs]
  {:pre [(sequential? xs)]}
  (let [n (count xs)
        uniq-xs (->> xs frequencies (into (sorted-map)))

kyptin

ec2-ssh ()
{
    local host="ec2-user@$1";
    local opts;
    opts="-i $HOME/TestKeyPair.pem";
    opts="$opts -o UserKnownHostsFile=/dev/null";
    opts="$opts -o StrictHostKeyChecking=no";
    scp $opts ~/aws-bashrc $host:.bashrc && ssh $opts ec2-user@$@
}

kyptin

(ns s3-presigned-url
  "You can pre-sign an S3 path to allow users to access it without credentials.
  This gives fine-grained access control with expiration to 'anonymous' (from
  the perspective of S3) users. It's a convenient mechanism, if you can get it
  to work.

  There are some relatively well-trod paths for doing pre-signed S3 URLs, e.g.
  when giving read-only access via an HTTP GET request. These paths have more
  convenient and well-known mechanisms out there.

kyptin

license: gpl-3.0

kyptin

Keybase proof

I hereby claim:

• I am kyptin on github.
• I am kyptin (https://keybase.io/kyptin) on keybase.
• I have a public key ASDD9FgPd0WBlTnf1EGJJlzQ2wQ_WhmtuNRrB5eVH5ZSgwo

To claim this, I am signing this object:

kyptin

// Goal: assign students to seats
// Usage: node before.js
// Context: UNC COMP 523 (https://comp523.cs.unc.edu)
// Exercise: refactor to manage effects better

const makePref = ([pid, section, isVip]) =>
  ({pid, section, isVip, isAssigned: false})

const makePrefs = (rows) => rows.map(makePref)

kyptin

;; To write tests for this function, what behaviors would you list?

(defn summation
  ([xs] (summation identity xs))
  ([f xs] (reduce + 0 (map f xs))))