View absorb.sh
#!/bin/bash | |
yesno() | |
{ | |
echo -ne "$1 [Y/n] " | |
read -r | |
case $REPLY in | |
[yY]) return 0 ;; | |
*) return 1 ;; | |
esac |
View chess960.rb
#!/usr/bin/ruby | |
board = Array.new(8) | |
# Bishops | |
2.times do |i| | |
r = rand(4) * 2 | |
if i == 1 | |
r += 1 |
View ci-new.sh
#!/bin/bash | |
if [ -z "$1" ]; then | |
echo "Usage: $0 [app]" | |
exit | |
fi | |
cache_dir="$XDG_CONFIG_HOME/codeigniter" | |
if [ ! -d $cache_dir ]; then |
View chess960.py
#!/usr/bin/env python | |
import random | |
def empty(lst): | |
return [i for i, value in enumerate(lst) if value == 0] | |
board = [0] * 8 | |
# Bishops | |
for i in range(2): |
View absorb.pl
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use File::Copy::Recursive "dircopy"; | |
use Cwd; | |
use autodie; | |
use feature 'say'; | |
my @ABS_DIRS = qw(core extra community multilib); | |
my $BUILD_DIR = "$ENV{HOME}/abs"; |
View vector.py
#!/usr/bin/env python | |
import math | |
class Vector(tuple): | |
def __add__(self, other): | |
return Vector(x + y for x, y in zip(self, other)) | |
def __sub__(self, other): | |
return Vector(x - y for x, y in zip(self, other)) |
View beer-song.lisp
(defun plural (n) | |
(if (> n 1) "s" "")) | |
(defun beer-song (n) | |
(format t "~a bottle~a of beer on the wall.~%" n (plural n)) | |
(format t "~a bottle~a of beer.~%" n (plural n)) | |
(format t "Take one down.~%") | |
(format t "Pass it around.~%") | |
(decf n) |
View unixlab.pl
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use 5.012; | |
use feature qw(switch say); | |
use LWP::Simple; | |
my $url = "http://apps.cs.utexas.edu/unixlabstatus/"; | |
my $html = get $url; |
View Makefile
me: | |
@true | |
a: | |
@true | |
sandwich: | |
@if test `whoami` != "root"; \ | |
then \ | |
echo "What? Make it yourself."; \ | |
exit; \ | |
else \ |
View gist:3824517
(defun midpoint (lst) | |
(setq current lst) | |
(setq prev lst) | |
(loop while (and lst (rest lst)) do | |
(setq lst (rest (rest lst))) | |
(setq prev current) | |
(setq current (rest current))) | |
prev) | |
(defun dmerj (x y) |
OlderNewer