Skip to content

Instantly share code, notes, and snippets.

View edt11x's full-sized avatar

Edward Thompson edt11x

View GitHub Profile
@edt11x
edt11x / Displacement
Created December 31, 2014 19:18
Displacement
Displacement
@edt11x
edt11x / Main.lua
Created December 31, 2014 19:26
Displacement AutoInstall
--# Main
--Displacement Single Install
--Installer created by @Briarfox
--- This will pull the Displacement project into Codea for you
-- Instructions:
-- * Create a new project in Codea named Displacement If you chose another name please change the variable Below
--This is case sensitive
ProjectName = "Displacement"
-- * Paste this into the Main (not from the raw view, as iSafari will escape special characters)
@edt11x
edt11x / 1aTabOrder
Created December 31, 2014 19:29
Displacement Release v0.02 -Displacement Calculator
Displacement Tab Order Version: 0.02
------------------------------
This file should not be included in the Codea project.
#cDisplacement
#Dialog
#Displacement
#Input
#Main
@edt11x
edt11x / compareIntoDirectory.pl
Last active November 6, 2017 02:18
Compare the contents of one directory into another
#!/usr/bin/env perl
use lib 'r:/tools/PerlScripts/lib';
use lib '/Users/edt/jnk/perlmodules';
use lib '/home/edt/jnk/perlmodules';
use Cwd 'realpath';
use Getopt::Long;
use Pod::Usage;
use File::Basename;
use File::Compare;
@edt11x
edt11x / ppath.pl
Created March 3, 2015 19:49
Print the PATH with each directory on a separate line
#!/usr/bin/env perl
use strict;
use warnings;
use Env;
if ($^O eq "MSWin32") {
print join($/, split(/;/, $PATH)), "\n";
} else {
print join($/, split(/:/, $PATH)), "\n";
}
@edt11x
edt11x / hp.py
Last active October 1, 2023 06:22
Horsepower Python Script
from __future__ import print_function
import math
try: input = raw_input
except NameError: pass
#
# Next Steps
# * Compute HP loss or gain based on Barometric Pressure and Temperature
# * Can I make an estimate of manifold vacuum at wide open throttle
#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use Env;
my @dirs = ();
my $help = 0;
@edt11x
edt11x / archivedirectory
Last active November 6, 2017 02:17
Archive files or directories in a way that works pretty well across Mac, Linux and Windows
#!/bin/bash
# bail out on any failure, we do not want a bad archive
set -e
die() {
set +x
echo >&2 "$@"
usage
exit 1
}
#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;
# my @set = ('0' .. '9', 'A' .. 'Z', 'a' .. 'z');
# non ambiguous characters
# https://ux.stackexchange.com/questions/21076/are-there-numbers-and-letters-to-avoid-for-activation-codes-via-sms
my @set = split //,'abcdefghkmnoprstwxzABCDEFGHJKLMNPQRTWXY34689';
#!/usr/bin/env perl
# generate an 8 x 8 password grid
use String::Random;
use strict;
use warnings;
# some characters are hard to distinguish when written
# or in certain typefaces. I am going to ignore