samdphillips

#lang racket/base

(require (for-syntax racket/base)
         (only-in racket/base
                  [define orig-define]))

(define-syntax (define stx)
  (syntax-case stx ()
    [(_ x e) 
     (when (identifier-binding #'x)                                 

samdphillips

#lang racket/base

(require racket/class
         (only-in racket/draw
                  make-bitmap)
         (only-in racket/gui
                  canvas%
                  frame%)
         (only-in racket/math
                  exact-ceiling)

samdphillips

#lang racket/base

(require racket/block
         racket/class
         racket/generic)

(define gar<%>
  (interface ()    
    do-foo
    do-bar))

samdphillips

  
  ask patches
   [ set chemical chemical * (90 - evaporation-rate) / 90  ;; slowly evaporate chemical
     set water water * water-evaporation-rate
     recolor-patch ]

samdphillips

import re
import sys

keys = sys.argv[1:]
kv_re = re.compile(r'(?P<key>[^ =]+)=(?P<value>\S+)')

def strip_comma(s):
    if s[-1] == ',':
        return s[:-1]
    return s

samdphillips

import sys

d = {}
for line in sys.stdin:
    key,value = line.strip().split('\t')
    count, running_value = d.get(key, [0, 0])
    d[key] = (count + 1, running_value + float(value))

for k,v in d.iteritems():

samdphillips

import sys

from datetime import datetime, timedelta
from syslog import syslog

five_sec = timedelta(seconds=5)
last = datetime.now()
count = 0
while True:

samdphillips

import json

from collections import namedtuple
from datetime import datetime

from log_dumb import *

def from_json():
    return map(json.loads)

samdphillips

# WIP 

import boto3
import logging
import requests
import spur

AMI_ID = "ami-1c1d9664"
SG_IDS = ['sg-f3d1e28b']

samdphillips

Macros By Example in Typed Racket

Based on ftp://www.cs.indiana.edu/pub/techreports/TR206.pdf

(Yep people still have FTP servers out there...)

NO HYGIENE. NO LITERALS.

Just matches a sexp and expands it (once.)