Skip to content

Instantly share code, notes, and snippets.

View justinmeiners's full-sized avatar

Justin Meiners justinmeiners

View GitHub Profile
indent -bl -lp -bap -npsl -l160 -nut -ldi1 -di1 -i4 vec_math.h vec_math3.h
#!/bin/bash
convert lena.tiff test0.jpg
b=4
for i in `seq 1 360`; do
x=$(($i-1))
if [ $(($i%2)) -eq 0 ];
then
b=$((4))
else
#include <iostream>
#include <cmath>
template <class T, class F>
struct double_decorator
{
F func;
double_decorator(F func) : func(func) {}
T operator()(T x)
#include <iostream>
template <typename T>
struct vector
{
constexpr static int DEFAULT_SIZE = 16;
vector()
{
size = 0;
capacity = 0;
(define (eval-html templ env)
(define (lookup-var key env)
(let ((pair (assoc key env)))
(if (pair? pair)
(cdr pair)
'())))
(define (tag? templ)
(use srfi-1)
(define (advance ls n)
(if (< n 1)
ls
(advance (cdr ls) (- n 1))))
(define (subset ls start count)
(define (build-cell it i)
(if (= i count)
#include <stdint.h>
#include <stdio.h>
#include <memory.h>
#define STB_IMAGE_WRITE_IMPLEMENTATION
#include "stb_image_write.h"
#define DDS_MAGIC 542327876
#define FOUR_CC_DXT1 0x31545844
(define (prime-sieve count)
(let ((marked (make-vector count #f)))
(define (build-list index)
(if (>= index count)
'()
(if (vector-ref marked index)
(build-list (+ index 1))
(cons (+ index 1) (build-list (+ index 1))))))
#include <stdint.h>
#include <stdio.h>
typedef struct
{
float x, y, z;
} Vec3;
typedef struct
@justinmeiners
justinmeiners / lisp.cpp
Last active June 23, 2018 06:05
Incomplete Lisp interpreter. See the one on my github.
#include <iostream>
#include <string>
#include <vector>
#include <map>
#include <regex>
#include <ctype.h>
namespace Lisp
{