Skip to content

Instantly share code, notes, and snippets.

View pjb3's full-sized avatar

Paul Barry pjb3

76 followers · 57 following
View GitHub Profile
@pjb3
pjb3 / detect.clj
Created November 16, 2008 23:08
(defn detect [pred coll]
(if (empty? coll) nil
(if (pred (first coll))
(first coll)
(recur pred (rest coll)))))
@pjb3
pjb3 / gist:35259
Created December 12, 2008 20:21
<html>
<head>
<title>JavaScript</title>
<script type="text/javascript">
var template = function() {
with(this) {
buf = []
buf.push("Here are the ")
buf.push( name )
buf.push(":\n<ul>")
@pjb3
pjb3 / shapes.clj
Created December 22, 2008 14:42
(defn move-to [shape x y] (merge shape {:x x :y y}))
(defn r-move-to [shape x y] (move-to shape (+ (shape :x) x) (+ (shape :y) y)))
(derive ::rectangle ::shape)
(derive ::circle ::shape)
(defn rectangle [x y w h] (with-meta {:x x :y y :width w :height h} {:type ::rectangle}))
(defn circle [x y r] (with-meta {:x x :y y :radius r} {:type ::circle}))
(defmulti draw (fn [shape] ((meta shape) :type)))
(defmethod draw ::rectangle [rect]
(println (str "Draw a Rectangle at:(" (rect :x) ", " (rect :y)
"), width " (rect :width) ", height " (rect :height))))
@pjb3
pjb3 / lat_lon.rb
Created December 31, 2008 20:45
R = 3963.1676
def miles_to_lat(x)
x*(1/((Math::PI/180)*R))
end
def miles_to_lon(x, lat)
x*(1/(((Math::PI/180)*R) * Math.cos(lat*(Math::PI/180))))
end
@pjb3
pjb3 / MyProgram.java
Created January 13, 2009 22:52
import clojure.lang.Compiler;
import clojure.lang.PersistentList;
import clojure.lang.Symbol;
import clojure.lang.IPersistentCollection;
public class MyProgram {
public static void main(String[] args) throws Exception {
IPersistentCollection myProgram = new PersistentList(41);
myProgram = myProgram.cons(1);
@pjb3
pjb3 / gist:50339
Created January 21, 2009 23:26
# true if any fields of this object match any of the values
def any_field_matches_any_value?(fields, values)
re = Regexp.new(values.join("|"), Regexp::IGNORECASE)
fields.map{|f| send(f)}.any?{|v| v.to_s.match(re)}
end
@pjb3
pjb3 / gist:50340
Created January 21, 2009 23:27
# true if any fields of this object match any of the values
def any_field_matches_any_value?(fields, values)
re = Regexp.new(values.join("|"), Regexp::IGNORECASE)
fields.map{|f| send(f)}.any?{|v| v.to_s.match(re)}
end
@pjb3
pjb3 / gist:54370
Created January 29, 2009 03:58
$ mkdir -p src/ex
$ echo "(ns ex.Foo (:gen-class :extends Exception))" > src/ex/Foo.clj
$ mkdir classes
$ java -cp src:classes:/Users/pbarry/src/clojure/clojure.jar clojure.lang.Repl
Clojure
user=> (compile 'ex.Foo)
ex.Foo
user=> (ex.Foo. "FAIL")
#<Foo ex.Foo FAIL>
user=> (defn f [x] (if (nil? x) (throw (ex.Foo. "FAIL")) x))
@pjb3
pjb3 / parse_query_string.clj
Created February 19, 2009 05:11
; HTTP query string parser, Clojure
(defn parse-query-string
"Parses a querystring into a hash"
[qs]
(into {} (map #(vec (.split % "=")) (.split qs "&"))))
@pjb3
pjb3 / class_variables.rb
Created April 7, 2009 14:32
class Whatever
def foo
@@foo = 42
end
end
class Bar < Whatever
def bar
@@foo = 41
end
end