Thomas G. Kristensen tgk
tgk
/ gist:558652
Created
August 31, 2010 06:41
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $n^2 + 3$ |
tgk
/ gist:549142
Created
August 25, 2010 08:58
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defn same-keys? [m & ms] | |
| (->> (cons m ms) (map keys) (map set) (apply =))) |
tgk
/ gist:482662
Created
July 20, 2010 07:52
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defproject testing "1.0.0-SNAPSHOT" | |
| :old-dependencies [[org.clojure/clojure "1.2.0-master-SNAPSHOT"] | |
| [org.clojure/clojure-contrib "1.2.0-SNAPSHOT"]] | |
| :dependencies [[org.clojure/clojure "1.2.0-beta1"] | |
| [org.clojure/clojure-contrib "1.2.0-beta1"]] | |
| :namespaces [testing.core] | |
| :jvm-opts "-Xmx512M") |
tgk
/ gist:482661
Created
July 20, 2010 07:51
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Exception in thread "main" java.lang.ClassCastException: java.lang.Character cannot be cast to java.lang.CharSequence (NO_SOURCE_FILE:0) | |
| at clojure.lang.Compiler.eval(Compiler.java:5435) | |
| at clojure.lang.Compiler.eval(Compiler.java:5386) | |
| at clojure.core$eval.invoke(core.clj:2382) | |
| at clojure.main$eval_opt.invoke(main.clj:235) | |
| at clojure.main$initialize.invoke(main.clj:254) | |
| at clojure.main$script_opt.invoke(main.clj:270) | |
| at clojure.main$main.doInvoke(main.clj:354) | |
| at clojure.lang.RestFn.invoke(RestFn.java:458) | |
| at clojure.lang.Var.invoke(Var.java:377) |
tgk
/ gist:481197
Created
July 19, 2010 09:26
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ lein native-deps | |
| Exception in thread "main" java.lang.IllegalAccessError: make-dependency does not exist (native_deps.clj:1) | |
| at clojure.lang.Compiler.eval(Compiler.java:5435) | |
| at clojure.lang.Compiler.eval(Compiler.java:5410) | |
| at clojure.lang.Compiler.load(Compiler.java:5852) | |
| at clojure.lang.RT.loadResourceScript(RT.java:340) | |
| at clojure.lang.RT.loadResourceScript(RT.java:331) | |
| at clojure.lang.RT.load(RT.java:409) | |
| at clojure.lang.RT.load(RT.java:381) | |
| at clojure.core$load$fn__4504.invoke(core.clj:4905) |
tgk
/ gist:481194
Created
July 19, 2010 09:25
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defproject testing "1.0.0-SNAPSHOT" | |
| :description "FIXME: write" | |
| :dependencies [[org.clojure/clojure "1.2.0-master-SNAPSHOT"] | |
| [org.clojure/clojure-contrib "1.2.0-SNAPSHOT"] | |
| [penumbra "0.6.0-SNAPSHOT"]] | |
| :native-dependencies [[penumbra/lwjgl "2.4.2"]] | |
| :dev-dependencies [[native-deps "1.0.0"]]) |
tgk
/ gist:478150
Created
July 16, 2010 08:48
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns penumbra-fail | |
| (:use [penumbra opengl]) | |
| (:require [penumbra.app :as app] | |
| [penumbra.text :as text])) | |
| (defn init [state] | |
| (enable :blend) | |
| state) | |
| (defn display [[delta time] state] |
tgk
/ gist:478049
Created
July 16, 2010 07:16
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defproject penumbra-fail "1.0.0-SNAPSHOT" | |
| :description "FIXME: write" | |
| :dependencies [[org.clojure/clojure "1.1.0"] | |
| [org.clojure/clojure-contrib "1.1.0"] | |
| [penumbra "0.5.0"]] | |
| :native-dependencies [[lwjgl "2.2.2"]] | |
| :dev-dependencies [[lein-run "1.0.0-SNAPSHOT"] | |
| [native-deps "1.0.0"]]) |
tgk
/ gist:478042
Created
July 16, 2010 07:11
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns penumbra-fail | |
| (:use [penumbra opengl]) | |
| (:require [penumbra.app :as app] | |
| [penumbra.text :as text])) | |
| (defn display [[delta time] state] | |
| (text/write-to-screen "hello world" 0 0)) | |
| (defn view-text [& args] | |
| (app/start {:display display} {})) |
tgk
/ gist:411683
Created
May 24, 2010 09:21
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defmacro todo | |
| "Annotates a form with a comment for later review. | |
| Adds the comment and the form to the batch of todos, which | |
| can be revied later using todo-summary." | |
| [comment & more] | |
| (do | |
| (save-code-and-snippet comment (apply | |
| #(with-out-str pprint %) more)) | |
| `(do ~@more))) |