I hereby claim:
- I am cushon on github.
- I am cushon (https://keybase.io/cushon) on keybase.
- I have a public key whose fingerprint is CA45 8B81 BFFF F2BE 04CF 6802 A2C1 0047 21A7 7AAF
To claim this, I am signing this object:
(define (foldl f b l) | |
((foldr (lambda (x y) (lambda (b) (y (f x b)))) values l) b)) |
(define (hamming) | |
(lcons 1 (lfoldr merge (map (lambda (p) (map (lambda (x) (* p x)) (hamming))) | |
(lazy-list 2 3 5))))) | |
; lazy-list library | |
(define-syntax lcons | |
(syntax-rules () | |
((_ a b) (lambda (f) (f a (lambda () b)))))) | |
(define (lazy-list . x) | |
(foldr (lambda (x y) (lcons x y)) '() x)) |
(define (subsets l) | |
(foldl (lambda (x y) | |
(foldr (lambda (u v) (cons (cons x u) (cons u v))) | |
'() y)) | |
'(()) l)) | |
(define permutations | |
(lambda (l) | |
(((lambda (f) | |
((lambda (x) (f (lambda arg (apply (x x) arg)))) |
(define foldr | |
((lambda (f) | |
((lambda (x) (f (lambda arg (apply (x x) arg)))) | |
(lambda (x) (f (lambda arg (apply (x x) arg)))))) | |
(lambda (g) | |
(lambda (f b l) | |
(if (empty? l) b | |
(f (car l) (g f b (cdr l)))))))) | |
(define foldl |
(define Y | |
(λ (f) | |
(define t (make-hash)) | |
((λ (x) (x x)) | |
(λ (x) (f (λ a (hash-ref! t a (λ () (apply (x x) a))))))))) | |
(define fib | |
(Y (λ (f) (λ (n) | |
(if (< n 2) n | |
(+ (f (- n 1)) (f (- n 2)))))))) |
(define (list-uniq l) | |
(define t (make-hasheq)) | |
(define (check l) | |
(or (empty? l) | |
(not (cons? l)) | |
(and (cons? l) | |
(not (hash-ref t l #f)) | |
(begin | |
(hash-set! t l #t) | |
(check/list l))))) |
static <T extends Enum<T>> T getOrCreateEnum(Class<T> enumType, | |
String name, int ordinal) { | |
try { | |
return Enum.valueOf(enumType, name); | |
} catch (IllegalArgumentException createFascimileInstead) { | |
} | |
try { | |
T enumValue = (T) getUnsafe().allocateInstance(enumType); | |
Field nameField = Enum.class.getDeclaredField("name"); |
I hereby claim:
To claim this, I am signing this object: