Jud

/*****************************************************************************
 *                QuantCup 1:   Price-Time Matching Engine
 *
 * Submitted by: voyager
 * 
 * Design Overview:
 *   In this implementation, the limit order book is represented using 
 *   a flat linear array (pricePoints), indexed by the numeric price value. 
 *   Each entry in this array corresponds to a specific price point and holds 
 *   an instance of struct pricePoint. This data structure maintains a list 

ckirkendall

(use '[clojure.core.match :only [match]])

(defn evaluate [env [sym x y]]
  (match [sym]
    ['Number]   x
    ['Add]      (+ (evaluate env x) (evaluate env y))
    ['Multiply] (* (evaluate env x) (evaluate env y))
    ['Variable] (env x)))
    
(def environment {"a" 3, "b" 4, "c" 5})

fogus

;; My good-enough glomming together of clojure.test and test.generative

(ns cemerick.generative
  (:require [clojure.test.generative.generators :as gens]
            [clojure.test.generative :as gen])
  (:use clojure.test))

;; Too bad last-report isn't sent an action upon success as well.
;; Perhaps this should just be replaced with a try/catch/rethrow
;; around the body in defspectest

swannodette

;; based on core.logic 0.8-alpha2 or core.logic master branch

(ns sudoku
  (:refer-clojure :exclude [==])
  (:use clojure.core.logic))

(defn get-square [rows x y]
  (for [x (range x (+ x 3))
        y (range y (+ y 3))]
    (get-in rows [x y])))

scttnlsn

git-store

$ git init mystore
$ cd mystore

$ git store set foo "this is foo"
$ git store get foo
this is foo

brendanzab

World building miscellany

Procedural Generation

• Wikipedia: Noctis (Web page)
• Noctis - Official site (Web page)
• Proteus - early prototype screenshots (Blog post)
• Gamasutra: The Making of Elite (Video)
• The Brilliance of Dwarf Fortress
• Interview with Tarn Adams (creator of Dwarf Fortress) (Slides) (Video)

rygorous

#include <immintrin.h>
#include <intrin.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

union Mat44 {
    float m[4][4];
    __m128 row[4];
};

mebens

// adapted from http://www.youtube.com/watch?v=qNM0k522R7o

extern vec2 size;
extern int samples = 5; // pixels per axis; higher = bigger glow, worse performance
extern float quality = 2.5; // lower = smaller glow, better quality

vec4 effect(vec4 colour, Image tex, vec2 tc, vec2 sc)
{
  vec4 source = Texel(tex, tc);
  vec4 sum = vec4(0);

alexpw

(defn group-by-with
  "A group-by factory that accepts a combiner-fn to control how the values
  of the grouping fn are collected."
  [combiner-fn]
  (fn [f coll]
    (persistent!
     (reduce
      (fn [ret x]
        (let [k (f x)]
          (assoc! ret k (combiner-fn (get ret k) x))))

bnyeggen

(defmacro hinttype
  [type-name & hint-symbols]
  `(deftype ~type-name
     [~@(for [s hint-symbols] 
          (with-meta (gensym "a") 
            {:tag (case s 
                    :int 'int
                    :long 'long
                    :float 'float
                    :double 'double