Skip to content

Instantly share code, notes, and snippets.

View sordina's full-sized avatar

Lyndon Maydwell sordina

104 followers · 83 following
View GitHub Profile
@sordina
sordina / complex_plot.hs
Created June 17, 2014 03:52
import Data.Complex
import Data.List
import Data.Ord
type Coord = (Int,Int)
type Bounds = (Coord,Coord)
type Table = [Coord]
instance Functor Complex where fmap f (r :+ i) = (f r :+ f i)
@sordina
sordina / greyimage.html
Created June 9, 2014 02:23
<html>
<head>
<style type="text/css" media="all">
canvas {
width: 300px;
height: 300px;
border: 3px solid blue;
margin: 5px;
}
img {
@sordina
sordina / movement.html
Created June 3, 2014 08:20
<!DOCTYPE HTML>
<html>
<head>
<title>movement</title>
<style type="text/css" media="all">
body {
position: absolute;
width: 100%;
height: 100%;
margin: 0;
@sordina
sordina / gist:4d441485f4276aba281d
Created May 23, 2014 06:54
(defmacro single-call [[x y & z]]
`(~x ~y ~@z))
(defmacro multi-call [ & xs]
`(do ~@(for [x xs] `(single-call ~x))))
(prn (macroexpand-1 `(single-call (+ 1 2 3 4))))
(prn (macroexpand-1 `(multi-call (+ 1 2 3 4) (+ 4 5 6 7))))
@sordina
sordina / getpass.sh
Created May 12, 2014 03:28
#!/bin/bash
read -s -p "Enter Password: " foo
echo
echo $foo | md5 | tr -d '\n' | pbcopy
@sordina
sordina / fastfib.clj
Last active August 29, 2015 14:01
;; Anything you type in here will be executed
;; immediately with the results shown on the
;; right.
(import 'java.lang.Math)
(def fibmatrix [[1 1] [1 0]])
(defn matrix-times [[[a1 a2] [a3 a4]] [[b1 b2] [b3 b4]]]
@sordina
sordina / gist:11208512
Created April 23, 2014 09:26
;; User keymap
;; -----------------------------
;; Keymaps are stored as a set of diffs that are merged together to create
;; the final set of keys. You can modify these diffs to either add or
;; subtract bindings.
;;
;; Like behaviors, keys are bound by tag. When objects with those tags are active
;; the key bindings are live. Keys can be bound to any number of Light Table commands,
;; allowing you the flexibility to execute multiple operations together. To see a list
;; of all the commands you can execute, start typing a word related to the thing you
@sordina
sordina / exceptionalmap.clj
Created April 23, 2014 07:20
(defn err [kerr] (throw (Throwable. (str "Error: Key [" kerr "] not in ExceptionalMap."))))
; http://david-mcneil.com/post/16535755677/clojure-custom-map
(deftype ExceptionalMap [contents]
clojure.lang.IPersistentMap
(assoc [_ k v]
@sordina
sordina / fun.clj
Created April 21, 2014 10:50
(def x 10)
(def y 5)
(def z (* x y))
(defn a [b c & d] (+ z x b c
(first d)))
(a 4 5 10 598798787 876 5765 98798 57679 98797 5765)
(defn mult2 [q r]
(if (<= q 0)
0
(+ r (mult2 (- q 1) r))))
@sordina
sordina / let!.clj
Created April 19, 2014 01:25
(defn raise [k] )
(defn get-symbols [coll]
(let [atm (atom [])]
(clojure.walk/postwalk
(fn [x] (if (symbol? x) (swap! atm conj x)))
coll)
@atm))
(defmacro let! [bindings & body]