Skip to content

Instantly share code, notes, and snippets.

View KirinDave's full-sized avatar

Dave Fayram KirinDave

446 followers · 10 following
View GitHub Profile
@KirinDave
KirinDave / id2_util.erl
Created January 29, 2010 19:00
ping_any_master(AllNodes) ->
error_logger:info_msg("~nAttempting to connect to master via: ~p~n", [AllNodes]),
[N|RN] = AllNodes,
ping_any_master(N, RN, AllNodes).
ping_any_master(N, [], AllNodes) ->
ping_any_master(N, AllNodes, AllNodes);
ping_any_master(N, RN, AllNodes) ->
case net_adm:ping(N) of
pong ->
@KirinDave
KirinDave / radicalawesome.js
Created February 21, 2010 17:33
// Simply place the following text in a bookmark on your browser bar to make any page better.
javascript:(function () {document.getElementsByTagName("body")[0].style.fontFamily="Comic Sans, Comic Sans MS";})();void(0);
@KirinDave
KirinDave / enlive-template.html
Created February 27, 2010 06:05
<!DOCTYPE html>
<html>
<head>
<title>BAD DATA</title>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<meta content="en-us" http-equiv="Content-Language" />
</head>
<body>
<header><h1>BAD DATA</h1></header>
@KirinDave
KirinDave / gist:371551
Created April 19, 2010 20:28
Line 1
Line A
Line B
Line C
@KirinDave
KirinDave / neko_vm-excerpt.c
Created May 17, 2010 19:15
int_val neko_interp_loop( neko_vm *VM_ARG, neko_module *m, int_val _acc, int_val *_pc ) {
register int_val acc ACC_REG = _acc;
register int_val *pc PC_REG = _pc;
# ifdef VM_REG
register neko_vm *vm VM_REG = VM_ARG;
# endif
# ifdef NEKO_THREADED
static void *instructions[] = {
# undef _NEKO_OPCODES_H
# undef OPBEGIN
@KirinDave
KirinDave / gist:404114
Created May 17, 2010 19:15
int_val neko_interp_loop( neko_vm *VM_ARG, neko_module *m, int_val _acc, int_val *_pc ) {
register int_val acc ACC_REG = _acc;
register int_val *pc PC_REG = _pc;
# ifdef VM_REG
register neko_vm *vm VM_REG = VM_ARG;
# endif
# ifdef NEKO_THREADED
static void *instructions[] = {
# undef _NEKO_OPCODES_H
# undef OPBEGIN
@KirinDave
KirinDave / gist:404271
Created May 17, 2010 21:46
; He's asking why this isn't tail recursive.
(def date-seq
(fn [d1 d2]
(loop [b (-> d1
(.dayOfMonth)
(.withMinimumValue))
e d2]
(cons b (if (time/before? b e)
@KirinDave
KirinDave / monkeypatching.rb
Created June 3, 2010 03:36
class String
def monkeypatched
puts "Invisible Cavemen!"
end
end
=> nil
#>> "madness".monkeypatched # prints “Invisible Cavemen!”
@KirinDave
KirinDave / protos-ex1.clj
Created June 3, 2010 03:39
(ns blogpost.bloomfilters)
(defprotocol BloomFilterable
(make-hash [object])
(human-readable-hash [object]))
@KirinDave
KirinDave / protos-ex2.clj
Created June 3, 2010 03:41
;; Some type examples:
(deftype MyType [three data fields])
(defrecord MyRecord [three data fields])
(deftype MyIntHolder [#^int data])