Skip to content

Instantly share code, notes, and snippets.

@vorce
vorce / gist:8718599
Created Jan 30, 2014
Compojure example
View gist:8718599
(ns webpoints.handler
(:use compojure.core)
(:require [compojure.handler :as handler]
[compojure.route :as route]))
;; Our "database"
(def mydb (atom {}))
(defn set-points
"Update hostname with points"
@vorce
vorce / gist:9709863
Last active Aug 29, 2015
Conditional Observable stuff
View gist:9709863
// First sketch, with just functions.
// Usage:
// Observable<Boolean> myCondition = ...
// Observable<List<Foo>> foos = onCondition(myCondition,
// fetchFoos(a1, a2, a3), // returns a Func0<Observable<List<Foo>>>
// { empty() })
// .flatMap({it})
public final static <R> Observable<R> onCondition(Observable<Boolean> observable,
final Func0<? extends R> onTrue,
final Func0<? extends R> onFalse) {
@vorce
vorce / gist:9791756
Created Mar 26, 2014
ObservableCondition
View gist:9791756
/**
* Observes an {@link Observable<T>} and returns a new Observable<R> that emits
* items based on the predicate<T> and the <R> onTrue and <R> onFalse functions.
*/
public class ObservableCondition<R, T> {
private final rx.Observable<T> condition;
private Func0<? extends R> onTrue = {}
private Func0<? extends R> onFalse = {}
private Predicate<T> predicate;
@vorce
vorce / gist:10004442
Created Apr 6, 2014
Example usage of raev
View gist:10004442
(ns symmetri.core
(:use quil.core
raev.core))
(def mid-x 400)
(def mid-y 300)
(defrecord Point [x y z])
(defrecord Sym [s1 s2 col])
(defrecord Colors [r g b a])
@vorce
vorce / simplex.clj
Created Nov 28, 2014
Clojure simplex 2d noise (translated from java)
View simplex.clj
(ns vorce.procedural.simplex)
; Direct translation of
; https://github.com/mikera/clisk/blob/develop/src/main/java/clisk/noise/Simplex.java
; to clojure.
; ...... friday night fun.
; Only supports 2d right now.
(defstruct grad :x :y :z :w)
@vorce
vorce / Elixir ExUNit error message
Created Mar 23, 2013
Test case failure from Elixir's ExUnit
View Elixir ExUNit error message
% elixir test/elixir_roman1_test.exs
1) test roman 1 should return I (ElixirRoman1Test)
** (ExUnit.ExpectationError)
expected: "I"
to be equal to (==): ""
at /home/vorce/code/elixir_roman1/test/elixir_roman1_test.exs:19
3 tests, 1 failures.
@vorce
vorce / gist:5227527
Last active Dec 15, 2015
Roman numerals kata in Elixir lang. My very first use of the language >_<
View gist:5227527
Code.require_file "../test_helper.exs", __FILE__
defmodule ElixirRoman1Test do
@moduledoc "Tests number to roman numerals"
use ExUnit.Case
defp romans_list do
HashDict.new [ {10, "X"}, {9, "IX"}, {5, "V"},
{4, "IV"}, {1, "I"}]
@vorce
vorce / gist:5373385
Created Apr 12, 2013
SHahara. Shell script sandbox for VirtualBox. Basically just a wrapper for VBoxManage snapshot.
View gist:5373385
#!/bin/sh
# SHahara
# Inspired by: https://github.com/jedi4ever/sahara
#
# Sandbox for virtualbox for shell scripts
# Wrapper for VBoxManage and snapshots
SH_TEST_SNAPSHOT=sh_test_snapshot
VBOX=VBoxManage
View gist:5748534
(defn hex-to-rgb
"Convert hex strings to rgb list. Ex: 'FF0000' -> (255 0 0)"
[hex]
(let [ hex-pairs (partition 2 hex) ]
(for [p hex-pairs]
(java.lang.Integer/parseInt (apply str p) 16))))
@vorce
vorce / gist:5817721
Created Jun 19, 2013
Spazmo-qore, contribution to the 4k source compo 2004
View gist:5817721
#include "g.h"
#define f float
f P=3.1415,X= 500,Y=400, o;
#define e glEnd
#define g glVertex3d
#define n glEnable
#define N glNormal3d
#define fl for(
#define i int
c(f h) { f j; glBegin(6); N(0,0,-1);g(0,0,0);
You can’t perform that action at this time.