nowl’s gists

nowl / gist:4752490

Last active September 22, 2019 23:48

Monte Carlo Tree Search implemented in Common Lisp to play Tic-Tac-Toe. Adapted from some of the example python code found on www.mcts.ai

	;; adapted to lisp from the python code found here:
	;; http://www.mcts.ai/?q=code/python

	(defgeneric do-move (state move))
	(defgeneric get-random-move (state))
	(defgeneric get-moves (state))
	(defgeneric get-result (state player-just-moved))
	(defgeneric clone (state))
	(defgeneric print-state (state))
	(defgeneric player-just-moved (state))

nowl / los_spiral.c

Created September 20, 2011 03:12

Spiral FOV test

	#include "lapis.h"

	#include <math.h>

	#define DIAMETER 30
	#define PI 3.1415926

	struct los
	{
	float default_mina, default_maxa;

nowl / random-word.lisp

Created September 9, 2011 03:23

Common Lisp code to generate random words based on next-letter frequency from a predefined corpus

	(defparameter valid-chars '(#\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z))

	(defparameter table nil)
	(defparameter norm-table nil)

	(defun build-table ()
	(setf table (make-hash-table))
	(with-open-file (in #p"corpus.txt" :direction :input)
	(loop with lower-c with c with p while (not (eql c :eof)) do
	(setf c (read-char in nil :eof)

nowl / k-means.lisp

Created April 13, 2011 23:08

k-means clustering in Common Lisp

	(defun classify (means data dist-func)
	(let ((sets (loop for m in means collect '())))
	(loop for d in data do
	(let ((min 0)
	(dist (funcall dist-func d (car means))))
	(loop for m in (cdr means) for n from 1 do
	(when (< (funcall dist-func d m) dist)
	(setf min n
	dist (funcall dist-func d m))))
	(push d (nth min sets))))

nowl / perlin.py

Created April 6, 2011 16:42

python Perlin Noise

nowl / gtk_file_dialog.c

Created March 12, 2011 06:06

Opening a file dialog with gtk

	#include <gtk/gtk.h>

	static gboolean
	menu_close_program(GtkWidget *widget,
	GdkEvent *event,
	gpointer data)
	{
	gtk_main_quit();

	return TRUE;

nowl / ppm.c

Created February 16, 2011 01:56

simple PPM output


	static void
	write_header(FILE *out, int width, int height, int max_color_val)
	{
	fprintf(out, "P3\n%d %d\n%d\n", height, width, max_color_val);
	}

	static void
	write_color_val(FILE *out, int red, int green, int blue)
	{

nowl / perlin.lisp

Created February 16, 2011 01:55

Perlin Noise in Common Lisp (slightly optimized)

	(defpackage #:perlin
	(:use #:cl)
	(:export #:perlin2d
	#:seed))

	(in-package #:perlin)

	(declaim (optimize (speed 3) (safety 0) (debug 0)))

	(defparameter seed 0)

nowl / perlin.c

Created February 15, 2011 19:04

Perlin Noise in C

nowl / gist:823527

Created February 12, 2011 04:47

nowl nowl