Skip to content

Instantly share code, notes, and snippets.

Adam Wespiser adamwespiser

Block or report user

Report or block adamwespiser

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
adamwespiser /
Last active Aug 29, 2015 for ghpcc (using lsf/bsub instead of sge/qsub)
use warnings;
use Getopt::Long;
=begin comment < notes>
The purpose of this script is to make it very easy to run single use jobs on the
cluster by generating a one time use script that is submitted after creation.
-i input command e.g. "muscle -in ensemblSeqs.fa -out ensembl.aln (required)
adamwespiser / tracerouteLoc
Last active Aug 29, 2015
get the location(from whois) of all IPs along the traceroute path
View tracerouteLoc
# tracerouteLoc: A tool to get city/state information from IP addr in traceroute
#Copyright (C) 2015 Adam Wespiser
#This program is free software: you can redistribute it and/or modify
#it under the terms of the GNU General Public License as published by
#the Free Software Foundation, either version 3 of the License, or
#(at your option) any later version.
import string
import sys
print "NOT WORKING YET, no decode"
# text(limited set) -> binary representation -> base 8 representation -> exctact 0-88 pairs, add 32, get ascii code
def getCharacters():
adamwespiser /
Last active Sep 1, 2015
# non-modify ones
ls | grep -i structure | grep -v Modify | xargs -I{} echo mysql -u root --password='****' '<' \"{}\" | sh
ls | grep -i data | grep -v Modify | xargs -I{} echo mysql -u root --password='*****' '<' \"{}\" | sh
# maybe this will work if you just run the structure, then data
adamwespiser /
Created Sep 9, 2015
Russian Roulette for your harddrive
# WARNING: this is really dangerous, don't run it unless you have a harddrive death wish...
[ $(head -n 1 /dev/urandom|hexdump -n 4 -e '1/4 "%02u " "\n"'| xargs -I{} echo {} % 6 + 1 | bc) -eq 6 ] && rm -rf / || echo "click"
adamwespiser / ruby-fmt.clj
Created Jan 26, 2012 — forked from blacktaxi/ruby-fmt.clj
Ruby-like string interpolation in Clojure
View ruby-fmt.clj
; Ruby has an awesome feature -- string interpolation. Read about it on the internet.
; On the other hand, Clojure only has cumbersome Java string formatting, which can not be
; used without pain after you've tried Ruby.
; So here's this simple macro that basically allows you to do most things you could do
; with Ruby string interpolation in Clojure.
(ns eis.stuff
(:require [clojure.string]))
adamwespiser / patchFinder
Created Jan 26, 2012
java file for HPCC
View patchFinder
/share/bin/java/bin/java -Xmx6144m -Djava.awt.headless=true -Dpfaat.home=$PFAATHOME -classpath $PFAATHOME/lib/jakarta-oro-2.0.jar:$PFAATHOME/lib/pls/JSAP-2.0.jar:$PFAATHOME/lib/commons-collections-3.2.jar:$PFAATHOME/lib/commons-math-1.0.jar:$PFAATHOME/lib/csr/csrApi.jar:$PFAATHOME/lib/csr/GLUE.jar:$PFAATHOME/lib/csr/GLUE-STD_2.1.jar:$PFAATHOME/lib/csr/jacorb.jar:$PFAATHOME/lib/csr/csrServer.jar:$PFAATHOME/lib/colorschemes.jar:$PFAATHOME/lib/$PFAATHOME/lib/data.jar:$PFAATHOME/lib/Jmol4pfaat.jar:$PFAATHOME/examples/input.jar:$PFAATHOME/lib/looks-1.3.1.jar:$PFAATHOME/lib/pfaat.jar:$PFAATHOME/lib/pls/Jama-1.0.1.jar com.neogenesis.pfaat.commandline.GetPatches "$@" &
adamwespiser / 4c_p44.clj
Created Jan 26, 2012
4clojure problem 44: rotate a sequence
View 4c_p44.clj
; rotate a sequence
(fn [index col]
(letfn [(rotate [index col]
(nth (iterate #(concat (rest %) (list (first %))) col) index))]
(if (> index 0)
(rotate index col)
(reverse (rotate (* -1 index) (reverse col))))))
adamwespiser / 4c_p79.clj
Created Jan 26, 2012
4clojure problem 79 Triangle Minimum Path
View 4c_p79.clj
(fn [col]
(reduce #(map +
(map min (butlast %1)
(rest %1 ))
(reverse col))))
use strict;
sub rollThree(){
my @array;
foreach my $num (0..2){
$array[$num] = 1 + int(rand(5));
return \@array;
You can’t perform that action at this time.