gar3thjon3s

#!/usr/bin/env jruby
#-*-ruby-*-
# A script to run ctags on all .rb files in a project. Can be run on
# the current dir, called from a git callback, or install itself as a
# git post-merge and post-commit callback.

CTAGS = '/usr/local/bin/ctags'
HOOKS = %w{ post-merge post-commit post-checkout }
HOOKS_DIR = '.git/hooks'

gar3thjon3s

(ns clojure-scratch.gettysburg
  (:require [clojure.contrib.lazy-seqs :as ls]
            [clojure.contrib.combinatorics :as comb]))

;; level-one

(def level-one "FourscoreandsevenyearsagoourfaathersbroughtforthonthiscontainentanewnationconceivedinzLibertyanddedicatedtothepropositionthatallmenarecreatedequalNowweareengagedinagreahtcivilwartestingwhetherthatnaptionoranynartionsoconceivedandsodedicatedcanlongendureWeareqmetonagreatbattlefiemldoftzhatwarWehavecometodedicpateaportionofthatfieldasafinalrestingplaceforthosewhoheregavetheirlivesthatthatnationmightliveItisaltogetherfangandproperthatweshoulddothisButinalargersensewecannotdedicatewecannotconsecratewecannothallowthisgroundThebravelmenlivinganddeadwhostruggledherehaveconsecrateditfaraboveourpoorponwertoaddordetractTgheworldadswfilllittlenotlenorlongrememberwhatwesayherebutitcanneverforgetwhattheydidhereItisforusthelivingrathertobededicatedheretotheulnfinishedworkwhichtheywhofoughtherehavethusfarsonoblyadvancedItisratherforustobeherededicatedtothegreattd

gar3thjon3s

(defn atom? [x]
  (not (list? x)))

(def car first)
(def cdr next)
(def add1 inc)
(def sub1 dec)

(defn lat? [lst]
  (every? atom? lst))

gar3thjon3s

#!/usr/bin/env python

import sys
import os
import os.path
import time
import re
from datetime import date, timedelta, datetime
from subprocess import check_output