apg

Subject: Round 19: Beware of the spooks.

(Have a complaint about this email? Want to make it better, fix a typo, or add more info? Fork the gist on GitHub! https://gist.github.com/4045257)

Hello Hackers-

Thanks to Facebook NYC for hosting us! I always give Facebook a lot of crap, but they were very gracious

apg

;;; RC4, just for the hell of it.
;;; Written for Guile 2.0+
;;; Use like so: 
;;;   Encypher: (rc4 "Key" (map char->integer (string->list "Plaintext")))
;;;    $1 = (187 243 22 232 217 64 175 10 211)
;;;   Decypher: (rc4 "Key" $1)
;;;    $2 = (80 108 97 105 110 116 101 120 116)

(define (rc4-make-schedule key)
  (let ((L (string-length key)))

apg

;; Hygme. A simple language with a hygienic macro expander.
;; 
;; Abs -> (fn var body)
;; Var -> <symbol>
;; Const -> <string> | <symbol> | <number> | <boolean> ...
;; Cond -> (if <condition> <consequent> <alternate>)
;; Assm -> (set! var value)
;; App -> (<expr> <expr> ...)
;;
;; in the environment: cons, car, cdr, list, not, +, -, *, /

apg

package pool

import (
	"container/list"
	"sync"
	)

type Pool struct {
	capacity int
	cons func() interface{}

apg

Subject: Round 18: Wrap Up, Schmap Up

(Have a complaint about this email? Want to make it better, fix a typo, or add more info? Fork the gist on GitHub!)

Hello Hackers-

Thanks to Meetup for hosting us! They've supported us since the very beginning, and of course are amazing hosts!

apg

package main

import (
	"fmt"
	"reflect"
	)

type Server struct {
	name string
}

apg

(defun replace-string-beg-buffer ()
   "Whole buffer version of `replace-string'"
   (interactive)
   (save-excursion
      (beginning-of-buffer)
      (call-interactively 'replace-string)))

apg

import sys
import os
import boto

from optparse import OptionParser
from contextlib import closing

parser = OptionParser()
parser.add_option('-a', '--access-key', default=None, dest='access_key',
                  help="AWS access key (required)")

apg

Subject: Cease fire! The war is over? (Round 17: Wrap up!)

(Turns out, I have no idea when the Germanian war that started in 17 AD ended, but if you happen to know, feel free to reach out.[0])

(Have a complaint about this email? Want to make it better, fix a typo, or add more info? Fork the gist on GitHub!)

Hello Hackers-

apg

(define-image "/tmp/push.png" (500 500)
  (steps
   (move 0 0)
   (rectangle 0 0 500 500)
   (color 0.2 0.2 0.2 1.0)
   (fill)

   (push)

   (translate 250 250)