jkominek

#!/usr/bin/python

#################
# NOTE
# Now at https://github.com/jkominek/updatestars
#################

import requests
import json
import re

jkominek

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

#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))

jkominek

#lang racket/base

(require racket/cmdline)

(define-syntax-rule
  (while<> line body ...)
  (let ([process-port
         (lambda ()
           (for ([line (in-port read-line)])
             body ...))])

jkominek

#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

#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)))

jkominek

#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

jkominek

#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)

jkominek

#!/usr/bin/python

# resistor colors
colors = [ 'black', '#964b00', 'red', '#ffa500', 'yellow',
           '#9acd32', '#6495ed', '#ee82ee', 'gray', 'white' ]
# borders around some of the lighter colors
border = [ 0, 0, 0, 0, 1, 0, 0, 0, 1, 1 ]

out = open("labels.html","wb")

jkominek

#lang racket

(require openssl)

(define (make-sctx pem)
  (define sctx (ssl-make-server-context 'tls))
  (ssl-load-default-verify-sources! sctx)
  (ssl-set-ciphers! sctx "DEFAULT:!aNULL:!eNULL:!LOW:!EXPORT:!SSLv2")
  (ssl-load-certificate-chain! sctx pem)
  (ssl-load-private-key! sctx pem)