Skip to content

Instantly share code, notes, and snippets.

View jesboat's full-sized avatar

Jade Sailor jesboat

  • Boston, MA
View GitHub Profile
@jesboat
jesboat / gist:1685492
Created January 26, 2012 22:23
Timing multiple value return techniques
running automated test.
noMultipleValues time 433
noMultipleValues time 426
noMultipleValues time 412
noMultipleValues time 412
noMultipleValues time 417
noMultipleValues time 416
@jesboat
jesboat / gist:1685474
Created January 26, 2012 22:20
Timing multiple value return techniques
running automated test.
noMultipleValues time 431
noMultipleValues time 419
noMultipleValues time 427
noMultipleValues time 429
noMultipleValues time 421
@jesboat
jesboat / svg.svg
Created January 21, 2012 00:52 — forked from anonymous/svggenerated.xml
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@jesboat
jesboat / find-in-ash.noemptydirs.sh
Created November 29, 2011 23:04
Roughly equivalent to "find .", only in less-than-POSIX ash
#!/system/bin/sh
stat() {
local lsout="$(ls -ld "$1" 2>/dev/null)"
case "$lsout" in
"") nex=1; fil= ; dir= ;;
d*) nex= ; fil= ; dir=1 ;;
*) nex= ; fil=1; dir= ;;
esac
}
@jesboat
jesboat / utils.rkt
Created May 25, 2011 22:38
type-case and list-case for typed/racket
(define-syntax (type-case stx)
(define (add-huh s)
(datum->syntax stx (string->symbol (string-append (symbol->string (syntax-e s)) "?"))))
(syntax-case stx ()
[(_ val
[(ty field ...) body]
...)
(with-syntax ([(p ...) (map add-huh (syntax-e #'(ty ...)))])
#'(let ([v val])
(cond