psyllo

;;;;
;; Sort a list by joining neighboring elements with `+'
;; This is in exponential time.
;;
;; Pseudo-code:
;;
;; Function "join" (list, max-join-count, join-count) ->
;;     Fail if join-count is greater than max-join-count.
;;     If the list looks sorted return join-count.
;;     For Each number In List

psyllo

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(column-number-mode t)
 '(custom-enabled-themes (quote (wombat)))
 '(global-whitespace-mode t)
 '(indent-tabs-mode nil)
 '(inhibit-startup-screen t)

psyllo

#!/usr/bin/env bash
#
# Checks AT&T U-Verse DSL modem for DSL Up/Down status
#
# Compatibility:
#
# Works at least with the following modem/router:
#  Manufacturer     : Pace Plc
#  Model            : 3800HGV-B
#  Software Version : 6.9.1.42-plus.tm

psyllo

# ~/.bashrc: executed by bash(1) for non-login shells.
# see /usr/share/doc/bash/examples/startup-files (in the package bash-doc)
# for examples
#
# Benjamin Cluff - 2011-2013
# - Added a handy git prompt
# - Added context specific colors for iTerm2
# - And more

# If not running interactively, don't do anything

psyllo

# .bash_profile - Benjamin Cluff - 2013

if [ -r $HOME/.profile ]; then
    source $HOME/.profile
fi

# More colors for xterm
export TERM=xterm-256color

# Emacs as default editor

psyllo

#!/usr/bin/env bash
#
# Author: Benjamin Cluff - 2013
#
# Synopsis:
#
#  Start ssh-agent and create file containing the environment
#  variables that can be sourced by .bash_profile so that other ssh
#  commands (ssh, ssh-add) can find it.
#

psyllo

#!/usr/bin/env bash

# Synopsis:
#   Build a scotty.exe from a scotty.jar using Launch4j

# Helpful docs:
# - http://launch4j.sourceforge.net/docs.html
# - https://gist.github.com/iantruslove/8fe3631fdd14b2417758

# The primary dependencies to resolve are:

psyllo

(defun wendler (week one-rm)
  (let ((one-rm (* one-rm 0.9)))
    (if (eq week 4)
        (mapcar (lambda (n)
                  (format "%0.2fx5" n))
                (list (* one-rm 0.4)
                      (* one-rm 0.5)
                      (* one-rm 0.6)))
      (let ((pct (+ 0.6 (* week 0.05)))
            (reps (cond ((eq week 1) '(5 5 5))