This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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. | |
# |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# .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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# ~/.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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; | |
;; 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 |