ckirkendall’s gists

ckirkendall / index-char-x-y.clj

Created July 11, 2012 21:33

	(defn charx [[ch str] idx]
	(if ch
	(conj [ch idx] (charx str (inc idx)))
	())

	(defn charxy
	([str] (charxy (.spit str "\n") 0)
	([[s1 rst] idx]
	(if s1
	(concat (map (concat % [idx]) (charx s1)) (charxy rst (inc idx)))

ckirkendall / cust-enfocus-transform.clj

Created June 27, 2012 11:19

	(defn modal-show
	"displays a modal window"
	[]
	(chainable-standard
	(fn [node]
	(.modal node "show"))))

	; Note: chainable-standard is a base wrapper that
	; in enfocus.core that enables you to work with all
	; other transforms

ckirkendall / A-sum-higher-kinds.clj

Created June 19, 2012 22:12 — forked from bkyrlach/GenericVersion.scala

Polymorphism - Summation of Higher Kinds(Clojure, Ocaml, Haskell, Scala, Java).

	(defrecord Tree [left elm right])

	(defprotocol Monoid
	(append [a b] )
	(identity [a] ))

	(defprotocol Foldable
	(foldl [l f i])
	(mfirst [l]))

ckirkendall / Lambda.scala

Created June 18, 2012 16:09 — forked from bkyrlach/AST.cs

Lambda for Scala...

	object Lambda extends App {
	val number = (num: Int) => (env: Map[Symbol, Int]) => num
	val variable = (id: Symbol) => (env: Map[Symbol, Int]) => env(id)
	val add = (a: (Map[Symbol, Int]) => Int, b: (Map[Symbol, Int]) => Int ) => (env: Map[Symbol, Int]) => a(env) + b(env)
	val multiply = (a: (Map[Symbol, Int]) => Int, b: (Map[Symbol, Int]) => Int ) => (env: Map[Symbol, Int]) => a(env) * b(env)

	val environment = Map('a -> 1, 'b -> 2, 'c -> 3)
	val expr_tree = add(variable('a), multiply(number(2), variable('b)))

	println(expr_tree(environment))

ckirkendall / ExpressionTree.rb

Created June 18, 2012 15:18 — forked from jimweirich/Expression Tree

Another expression tree evaluator

	Number = lambda { \|env, num\| num }
	Variable = lambda { \|env, var\| env[var] }
	Add = lambda { \|env, a, b\| evaluate(env, a) + evaluate(env, b) }
	Multiply = lambda { \|env, a, b\| evaluate(env, a) * evaluate(env, b) }

	def evaluate(env, exp)
	op, *args = exp
	op.(env, *args)
	end

ckirkendall / output.txt

Created June 18, 2012 02:11

J Program for creation of AST Add(Variable 'a',Multiply(Number 2, Variable 'b'))

ckirkendall / clojure-match.clj

Created June 15, 2012 02:26 — forked from bkyrlach/Expression.fs

Language Compare F#, Ocaml, Scala, Clojure, Ruby and Haskell - Simple AST example

	(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})

ckirkendall / sample.clj

Created May 2, 2012 14:03

multimethods clojure

	;you have a map with a key :action
	;this contains a known list of actions:
	;:login, :register, :play, :logout

	(defmulti appy-action :action)

	;input looks like this
	;{:action :login :username "test" :password "test"}
	(defmethod apply-action :login [msg]
	(let [username (:username msg)

ckirkendall / core.cljs

Created March 9, 2012 23:35

	(ns goog-test.core
	(:require [goog.testing.jsunit :as unit]
	[goog.testing :as gt]
	[goog.testing.TestCase :as tc])
	(:use [midje.cljs.core :only [run-test]])
	(:use-macros [midje.cljs.semi-sweet :only [expect fact run-tests]]
	[midje.cljs.sweet :only [fact provided]]))

	(defn world [] "world")

ckirkendall / basic.cljs

Created February 26, 2012 23:21

Creighton Kirkendall ckirkendall