Skip to content

Instantly share code, notes, and snippets.

Avatar

Burton Samograd burtonsamograd

View GitHub Profile
@burtonsamograd
burtonsamograd / CULT.js
Created Jul 4, 2018
Chat User Logger Thing (CULT) - a Chaturbate Chat user logger and note taker runnable in node.js
View CULT.js
////////////////////////////////////////////////////////////////////////////////
// Chatubate API Emultaion - Make work on node stuff.
////////////////////////////////////////////////////////////////////////////////
var stdin = process.openStdin();
function randomBoolean () {
if(Math.random() < .5) {
return true;
} else {
return false;
@burtonsamograd
burtonsamograd / nock.lisp
Created Oct 9, 2015
A Nock Interpreter and Compiler in Common Lisp #Urbit
View nock.lisp
;; A nock interpreter
(defun tar (a f)
(labels ((fas (b a)
(declare (integer b))
(cond
((= b 1) a)
((= b 2) (car a))
((= b 3) (cdr a))
((evenp b) (car (fas (/ b 2) a)))
((oddp b) (cdr (fas (/ (1- (the integer b)) 2) a))))))
@burtonsamograd
burtonsamograd / save-lisp-tree-shake-and-die.lisp
Last active Sep 13, 2020
A quick and dirty tree shaker for SBCL, giving about a 40% reduction in dump size.
View save-lisp-tree-shake-and-die.lisp
;; -*- mode: lisp -*-
;;
;; A quick and dirty tree shaker for SBCL. Basically, it destroys the
;; package system and does a gc before saving the lisp image. Gives
;; about a 40% reduction in image size on a basic hello world test.
;; Would like to hear how it works on larger projects.
;;
;; Original idea from: https://groups.google.com/d/msg/comp.lang.lisp/6zpZsWFFW18/WMy4PyA9B4kJ
;;
;; Burton Samograd