Skip to content

Instantly share code, notes, and snippets.

View sir-pinecone's full-sized avatar
👁️

Michael Campagnaro sir-pinecone

👁️
77 followers · 79 following
View GitHub Profile
@sir-pinecone
sir-pinecone / ratelimit.clj
Last active August 29, 2015 14:07 — forked from danneu/ratelimit.clj
(ns x.ratelimit
(:require
[taoensso.carmine :as car :refer [wcar]]
[ring.util.response :as response]
[ring.mock.request :as mock])
(:import
[java.util Calendar]))
;; Util ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@sir-pinecone
sir-pinecone / csv-parsing.clj
Created June 10, 2016 15:27
A very simple csv parser in Clojure
(defn lazy-file-lines [file]
(try
(letfn [(helper [rdr]
(lazy-seq
(if-let [line (.readLine rdr)]
(cons line (helper rdr))
(do (.close rdr) nil))))]
(helper (clojure.java.io/reader file)))
(catch Exception e nil)))
@sir-pinecone
sir-pinecone / user32.def
Last active February 6, 2017 23:02 — forked from robert-nix/test.cpp
LIBRARY user32
EXPORTS
UserGetPrecisionTouchPadConfiguration @2548
UserSetPrecisionTouchPadConfiguration @2549
@sir-pinecone
sir-pinecone / collection_api.scm
Last active April 12, 2017 15:09
Having some fun with Scheme by implementing sequence operations in various ways. All tests are done on my computer using the very primitive method of wrapping the call with (time).
;; ======================================================================================
;; # Uses the Berkeley simple stk package for the `bf` and `se`.
;; ======================================================================================
(define (reduce-berk f start coll)
(define (iter rest ret)
(if (empty? rest)
ret
(iter (bf rest) (f ret (first rest)))))
(iter coll start))
@sir-pinecone
sir-pinecone / range.scm
Created April 12, 2017 15:13
Experiments with writing range functions in Scheme.
; Uses Berkeley's (sentence) helper - slow after 1-5k, but supports larger range than `range-se-recur`
(define (range-se-iter start end)
(define (iter c ret)
(if (= c end)
ret
(iter (+ c 1) (se ret c))))
(iter start '()))
; Uses Berkeley's (sentence) helper - quite slow after 1-5k, seg faults around 1-15k
(define (range-se-recur start end)
@sir-pinecone
sir-pinecone / gist:9914ab506e34230846a72d3b9fcc897e
Created April 24, 2017 04:37 — forked from jlongster/gist:1712455
macro system
;; outlet code for implementing traditional macro expansion
;; macros
(define (expand form)
(cond
((variable? form) form)
((literal? form) form)
((macro? (car form))
(expand ((macro-function (car form)) form)))
@sir-pinecone
sir-pinecone / augmented.c
Created July 19, 2017 06:02 — forked from gingerBill/augmented.c
Augmented C - 002
#ifndef AUGMENTED_C_GUARD
#define AUGMENTED_C_GUARD
#include <stddef.h>
typedef ptrdiff_t isize;
#define offset_of(Type, element) ((isize)&(((Type *)0)->element))
#define JOIN2_IND(a, b) a##b
#define JOIN2(a, b) JOIN2_IND(a, b)
@sir-pinecone
sir-pinecone / gist:01161c1620147c93ccb5ed7980958a1f
Last active February 24, 2018 17:32 — forked from rygorous/gist:16796a0c876cf8a5f542caddb55bce8a
Bink GL extension loader
#define BINKGL_LIST \
/* ret, name, params */ \
GLE(void, LinkProgram, GLuint program) \
GLE(void, GetProgramiv, GLuint program, GLenum pname, GLint *params) \
GLE(GLuint, CreateShader, GLenum type) \
GLE(void, ShaderSource, GLuint shader, GLsizei count, const GLchar* const *string, const GLint *length) \
GLE(void, CompileShader, GLuint shader) \
GLE(void, GetShaderiv, GLuint shader, GLenum pname, GLint *params) \
GLE(void, GetShaderInfoLog, GLuint shader, GLsizei bufSize, GLsizei *length, GLchar *infoLog) \
GLE(void, DeleteShader, GLuint shader) \
@sir-pinecone
sir-pinecone / GPUOptimizationForGameDev.md
Created June 29, 2020 20:40 — forked from silvesthu/GPUOptimizationForGameDev.md
GPU Optimization for GameDev
@sir-pinecone
sir-pinecone / 00_the-problem-with-UI.org
Created January 7, 2021 16:48 — forked from uucidl/00_the-problem-with-UI.org
The Problem Of UI (User Interfaces)

Links

Note: a lot of programmers talk about UI without mentionning the user even once, as if it was entirely a programming problem. I wonder what we’re leaving off the table when we do that.