Jay Kominek jkominek
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket | |
| (require graph plot) | |
| (define (distance a b) | |
| (sqrt (for/sum ([a a] [b b]) | |
| (expt (- a b) 2)))) | |
| (define (every-edge l) | |
| (if (null? l) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket | |
| (require (for-syntax syntax/parse) | |
| syntax/parse) | |
| ; why would you want infix syntax, when you can | |
| ; change your syntax to suit the task at hand? | |
| (define-syntax ($ stx) | |
| (syntax-parse stx |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket | |
| (require ffi/unsafe) | |
| (define llvm (ffi-lib "/usr/lib/x86_64-linux-gnu/libLLVM-3.7.so.1")) | |
| (define get-global-context | |
| (get-ffi-obj 'LLVMGetGlobalContext llvm | |
| (_fun -> _pointer))) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket | |
| (define (distance a b) | |
| (sqrt (for/sum ([a a] [b b]) | |
| (expt (- a b) 2)))) | |
| (define (greedy-tsp data #:start [start #f]) | |
| (if (null? data) | |
| '() | |
| (if start |
jkominek
/ while<>.rkt
Created
April 20, 2015 03:06
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| (require racket/cmdline) | |
| (define-syntax-rule | |
| (while<> line body ...) | |
| (let ([process-port | |
| (lambda () | |
| (for ([line (in-port read-line)]) | |
| body ...))]) |
jkominek
/ locked-boxes.rkt
Created
May 28, 2015 18:28
inspectors & parameters to limit the dynamic extent values can be used within
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket | |
| ; idea: use inspectors & parameters to protect values so they | |
| ; can't be used outside of approved dynamic extents. | |
| ; probably not fully baked? (continuations, etc) | |
| ; (define-values (b lock) (locked-box important-v key)) | |
| ; (parameterize ([lock key]) | |
| ; ; in here b can be used | |
| ; (less-trusted-code b)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import java.util.ArrayList; | |
| import java.util.Arrays; | |
| import java.util.Collections; | |
| import java.util.List; | |
| import java.util.Map; | |
| import java.util.HashMap; | |
| public class KellysFavorite implements Player { | |
| private ArrayList<Double> cache = new ArrayList<Double>(); |
jkominek
/ updatestars.py
Last active
March 26, 2022 15:21
Maintain a mirror of all your Github stars.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/python | |
| ################# | |
| # NOTE | |
| # Now at https://github.com/jkominek/updatestars | |
| ################# | |
| import requests | |
| import json | |
| import re |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #lang racket/base | |
| (require racket/tcp racket/async-channel racket/match racket/function) | |
| (define-struct ami [input-port | |
| output-port thread | |
| request-channel | |
| response-channel | |
| event-channel | |
| [dead? #:mutable]] |
jkominek
/ NumericNegationFunctionKeyExpression.java
Created
August 12, 2019 21:32
numeric negation function key expression
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| age record.layer.demo; | |
| import com.apple.foundationdb.record.metadata.expressions.FunctionKeyExpression; | |
| import com.apple.foundationdb.record.metadata.expressions.QueryableKeyExpression; | |
| import com.apple.foundationdb.record.metadata.expressions.KeyExpression; | |
| import com.apple.foundationdb.annotation.API; | |
| import com.apple.foundationdb.record.metadata.Key; | |
| import com.apple.foundationdb.record.metadata.MetaDataException; | |
| import com.apple.foundationdb.record.provider.foundationdb.FDBRecord; | |
| import com.google.protobuf.Message; |